From 2d23e048c42402246b4c3c6eba36c6a8c2988501 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Thu, 22 Jun 2000 12:55:19 +0000
Subject: [PATCH] Flush a verbose debug message that occurred rarely during
 code fixups.

---
 lisp/gencgc.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/gencgc.c b/lisp/gencgc.c
index 30468fd4a..1b9982a11 100644
--- a/lisp/gencgc.c
+++ b/lisp/gencgc.c
@@ -7,7 +7,7 @@
  *
  * Douglas Crosher, 1996, 1997, 1998, 1999.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.18 2000/01/19 18:09:16 dtc Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.19 2000/06/22 12:55:19 dtc Exp $
  *
  */
 
@@ -2208,7 +2208,9 @@ static void apply_code_fixups(struct code *old_code, struct code *new_code)
   /* Could be pointing to a forwarding pointer. */
   if (Pointerp(fixups) && find_page_index((void*) fixups_vector) != -1
       && fixups_vector->header == 0x01) {
+#if 0
     fprintf(stderr, "* FF\n");
+#endif
     /* If so then follow it. */
     fixups_vector = (struct vector *) PTR((lispobj) fixups_vector->length);
   }
-- 
GitLab