From: William Harold Newman <william.newman@airmail.net>
Date: Wed, 27 Feb 2002 04:09:51 +0000 (+0000)
Subject: 0.7.1.26:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=28d9bb7a509695caaf78d647b6aa1b0f02c0e83a;p=sbcl.git

0.7.1.26:
	merged CSR backend-subfeatures patch (sbcl-devel 2002-02-22)
---

diff --git a/.cvsignore b/.cvsignore
index 8771e24..3dc13ee 100644
--- a/.cvsignore
+++ b/.cvsignore
@@ -1,5 +1,6 @@
 obj
 output
 ChangeLog
+customize-backend-subfeatures.lisp
 customize-target-features.lisp
 local-target-features.lisp-expr
diff --git a/src/cold/chill.lisp b/src/cold/chill.lisp
index 50f0b9e..7158435 100644
--- a/src/cold/chill.lisp
+++ b/src/cold/chill.lisp
@@ -26,7 +26,9 @@
 ;;; that they referred to special target-only *SHEBANG-FEATURES* values
 ;;; during cold init).
 (setf sb-cold:*shebang-features* *features*)
-
+;;; Just in case we want to play with the initial value of
+;;; backend-subfeatures
+(setf sb-cold:*shebang-backend-subfeatures* sb-c:*backend-subfeatures*)
 ;;; The nickname SB!XC now refers to the CL package.
 (rename-package "COMMON-LISP"
 		"COMMON-LISP"
diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp
index 0abec7b..b4ff892 100644
--- a/src/cold/shared.lisp
+++ b/src/cold/shared.lisp
@@ -227,6 +227,21 @@
   (format t
 	  "target features *SHEBANG-FEATURES*=~@<~S~:>~%"
 	  *shebang-features*))
+
+(defvar *shebang-backend-subfeatures*
+  (let* ((default-subfeatures nil)
+	 (customizer-file-name "customize-backend-subfeatures.lisp")
+	 (customizer (if (probe-file customizer-file-name)
+			 (compile nil 
+				  (read-from-file customizer-file-name))
+			 #'identity)))
+    (funcall customizer default-subfeatures)))
+(export '*shebang-backend-subfeatures*)
+(let ((*print-length* nil)
+      (*print-level* nil))
+  (format t
+	  "target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=~@<~S~:>~%"
+	  *shebang-backend-subfeatures*))
 
 ;;;; cold-init-related PACKAGE and SYMBOL tools
 
diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp
index 20d21cc..0184618 100644
--- a/src/compiler/backend.lisp
+++ b/src/compiler/backend.lisp
@@ -263,8 +263,10 @@ yet an ideal interface, but it does allow for compile-time
 conditionalization.
 |#
 
-;;; The default value of NIL means use only unguarded VOPs.
-(defvar *backend-subfeatures* nil)
+;;; The default value of NIL means use only unguarded VOPs. The
+;;; initial value is customizeable via
+;;; customize-backend-subfeatures.lisp
+(defvar *backend-subfeatures* '#.sb-cold:*shebang-backend-subfeatures*)
 
 ;;; possible *BACKEND-SUBFEATURES* values:
 ;;;
diff --git a/version.lisp-expr b/version.lisp-expr
index c427b5a..2b6ff5c 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.1.25"
+"0.7.1.26"