0.6.8.2: converted /SHOW to /SHOW0 in SUB-GC to avoid infinite regress

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

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 27d08c7..6cd611a 100644 (file)
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -374,7 +374,7 @@
       (incf *gc-run-time* (- (get-internal-run-time)
                             start-time))))
   ;; FIXME: should probably return (VALUES), here and in RETURN-FROM
-  (/show "returning from tail of SUB-GC")
+  (/show0 "returning from tail of SUB-GC")
   nil)
 
 ;;; This routine is called by the allocation miscops to decide whether