X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fshow.lisp;h=67234e085327598f2362bb19a317c5e59969463c;hb=4aef4760057ae2f236418ef5fcb410f027961a18;hp=d5a38f4ad725fad316e5638a2ec34ec931b26577;hpb=4eb1a6d3ad2b7dcc19ac0ec979a1eb1eb049659a;p=sbcl.git

diff --git a/src/code/show.lisp b/src/code/show.lisp
index d5a38f4..67234e0 100644
--- a/src/code/show.lisp
+++ b/src/code/show.lisp
@@ -48,6 +48,7 @@
 ;;; Note that despite the connoting-no-side-effects-pure-predicate
 ;;; name, we emit some error output if we're called at a point where
 ;;; /SHOW is inherently invalid.
+#!+sb-show
 (defun suppress-/show-p ()
   (cond (;; protection against /SHOW too early in cold init for
 	 ;; (FORMAT *TRACE-OUTPUT* ..) to work, part I: Obviously