0.7.1.26:

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

diff --git a/.cvsignore b/.cvsignore
index 8771e24..3dc13ee 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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*))
 \f
 ;;;; cold-init-related PACKAGE and SYMBOL tools
 

diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp
index 20d21cc..0184618 100644 (file)
--- 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 (file)
--- 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"