1.0.9.21: Make less eager use of eval-when unless cross-compiling.

diff --git a/src/compiler/mips/macros.lisp b/src/compiler/mips/macros.lisp
index 7351e01..161f4fe 100644 (file)
--- a/src/compiler/mips/macros.lisp
+++ b/src/compiler/mips/macros.lisp
@@ -200,7 +200,7 @@
 
 \f
 ;;;; Error Code
-(eval-when (:compile-toplevel :load-toplevel :execute)
+(eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
   (defun emit-error-break (vop kind code values)
     (let ((vector (gensym)))
       `((let ((vop ,vop))

diff --git a/src/compiler/mips/static-fn.lisp b/src/compiler/mips/static-fn.lisp
index 8290e29..f92d727 100644 (file)
--- a/src/compiler/mips/static-fn.lisp
+++ b/src/compiler/mips/static-fn.lisp
@@ -16,7 +16,7 @@
   (:temporary (:sc control-stack :offset nfp-save-offset) nfp-save))
 
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
+(eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
 
 (defun static-fun-template-name (num-args num-results)
   (intern (format nil "~:@(~R-arg-~R-result-static-fun~)"

diff --git a/version.lisp-expr b/version.lisp-expr
index c4f497f..bb36821 100644 (file)
--- 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".)
-"1.0.9.20"
+"1.0.9.21"