X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=ce9e73f003b78a0223d6537bf8cca4a0a51dbda5;hb=fbe6e22af842835f7c70309f4d48064ca3984ad0;hp=d2e276c374ddec3d520963709dff15547349ed01;hpb=6879a37a9e6cceeab810636c5ef4a4da1444e275;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index d2e276c..ce9e73f 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -2422,7 +2422,7 @@
   ;; writing beginning boilerplate
   (format t "/*~%")
   (dolist (line
-	   '("This is a machine-generated file. Do not edit it by hand."
+	   '("This is a machine-generated file. Please do not edit it by hand."
 	     ""
 	     "This file contains low-level information about the"
 	     "internals of a particular version and configuration"
@@ -2437,6 +2437,15 @@
   (format t "#ifndef _SBCL_H_~%#define _SBCL_H_~%")
   (terpri)
 
+  ;; propagating *SHEBANG-FEATURES* into C-level #define's
+  (dolist (shebang-feature-name (sort (mapcar #'symbol-name
+					      sb-cold:*shebang-features*)
+				      #'string<))
+    (format t
+	    "#define LISP_FEATURE_~A~%"
+	    (substitute #\_ #\- shebang-feature-name)))
+  (terpri)
+
   ;; writing miscellaneous constants
   (format t "#define SBCL_CORE_VERSION_INTEGER ~D~%" sbcl-core-version-integer)
   (format t