X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fchill.lisp;h=92b19c907884f1dc8b0436e8e4222c4d6177ac8d;hb=f5133ab2ffcddbcdb330cbbceff3af8d66673ce8;hp=50f0b9e3a7cfd40171f694f7a08fb7ae90f7bc9f;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/cold/chill.lisp b/src/cold/chill.lisp
index 50f0b9e..92b19c9 100644
--- a/src/cold/chill.lisp
+++ b/src/cold/chill.lisp
@@ -1,6 +1,6 @@
-;;;; This file is not used cold load time. Instead, it can be loaded
-;;;; into an initialized SBCL to get it into a nostalgic frame of
-;;;; mind, remembering the way things were in cold init, so that it
+;;;; This file is not used at cold load time. Instead, it can be
+;;;; loaded into an initialized SBCL to get it into a nostalgic frame
+;;;; of mind, remembering the way things were in cold init, so that it
 ;;;; can READ code which is ordinarily read only when bootstrapping.
 ;;;; (This can be useful when debugging the system, since the debugger
 ;;;; likes to be able to read the source for the code. It can also be
@@ -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"