X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fshared.lisp;h=1dd3ddd9dc00596b2f172196c7b03ebe07f75468;hb=1dfcd0ed5fc81f4355101c1eeb990a1f7d089e40;hp=b4ff892951989238d6f807e89cc5422c1a24f059;hpb=28d9bb7a509695caaf78d647b6aa1b0f02c0e83a;p=sbcl.git

diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp
index b4ff892..1dd3ddd 100644
--- a/src/cold/shared.lisp
+++ b/src/cold/shared.lisp
@@ -236,7 +236,6 @@
 				  (read-from-file customizer-file-name))
 			 #'identity)))
     (funcall customizer default-subfeatures)))
-(export '*shebang-backend-subfeatures*)
 (let ((*print-length* nil)
       (*print-level* nil))
   (format t
@@ -250,11 +249,11 @@
 ;;; values of special variables such as *** and +, anyway). Set up
 ;;; machinery to warn us when/if we change it.
 ;;;
-;;; FIXME: All this machinery should probably be conditional on
-;;; #!+SB-SHOW, i.e. we should be able to wrap #!+SB-SHOW around both
-;;; the LOAD and the DEFVAR here. 
-(load "src/cold/snapshot.lisp")
-(defvar *cl-snapshot* (take-snapshot "COMMON-LISP"))
+;;; All code depending on this is itself dependent on #!+SB-SHOW.
+#!+sb-show
+(progn
+  (load "src/cold/snapshot.lisp")
+  (defvar *cl-snapshot* (take-snapshot "COMMON-LISP")))
 
 ;;;; master list of source files and their properties