0.pre7.95:

[sbcl.git] / src / code / show.lisp

diff --git a/src/code/show.lisp b/src/code/show.lisp
index d5a38f4..67234e0 100644 (file)
--- 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