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

diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp
index b4ff892..a55036c 100644
--- a/src/cold/shared.lisp
+++ b/src/cold/shared.lisp
@@ -250,11 +250,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