- ;; (FORMAT *TRACE-OUTPUT* ..) to work, part I: Obviously
- ;; we need *TRACE-OUTPUT* bound.
- (not (boundp '*trace-output*))
- (cannot-/show "*TRACE-OUTPUT* isn't bound. (Try /SHOW0.)")
- t)
- (;; protection against /SHOW too early in cold init for
- ;; (FORMAT *TRACE-OUTPUT* ..) to work, part II: In a virtuoso
- ;; display of name mnemonicity, *READTABLE* is used by the
- ;; printer to decide which case convention to use when
- ;; writing symbols, so we need it bound.
- (not (boundp '*readtable*))
- (cannot-/show "*READTABLE* isn't bound. (Try /SHOW0.)")
- t)
- (;; more protection against /SHOW too early in cold init, part III
- (not (boundp '*/show*))
- (cannot-/show "*/SHOW* isn't bound. (Try initializing it earlier.)")
- t)
- (;; ordinary, healthy reason to suppress /SHOW, no error
- ;; output needed
- (not */show*)
- t)
- (t
- ;; Let the /SHOW go on.
- nil)))
+ ;; (FORMAT *TRACE-OUTPUT* ..) to work, part I: Obviously
+ ;; we need *TRACE-OUTPUT* bound.
+ (not (boundp '*trace-output*))
+ (cannot-/show "*TRACE-OUTPUT* isn't bound. (Try /SHOW0.)")
+ t)
+ (;; protection against /SHOW too early in cold init for
+ ;; (FORMAT *TRACE-OUTPUT* ..) to work, part II: In a virtuoso
+ ;; display of name mnemonicity, *READTABLE* is used by the
+ ;; printer to decide which case convention to use when
+ ;; writing symbols, so we need it bound.
+ (not (boundp '*readtable*))
+ (cannot-/show "*READTABLE* isn't bound. (Try /SHOW0.)")
+ t)
+ (;; more protection against /SHOW too early in cold init, part III
+ (not (boundp '*/show*))
+ (cannot-/show "*/SHOW* isn't bound. (Try initializing it earlier.)")
+ t)
+ (;; ordinary, healthy reason to suppress /SHOW, no error
+ ;; output needed
+ (not */show*)
+ t)
+ (t
+ ;; Let the /SHOW go on.
+ nil)))