From f7f9348b095060db1371fe4f6958ccc67131563e Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Wed, 11 Apr 2001 18:01:34 +0000
Subject: [PATCH] Call fflush after printf. Helps when stdout is a pipe.

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

diff --git a/lisp/interr.c b/lisp/interr.c
index a5fffc0ce..5cd9ae399 100644
--- a/lisp/interr.c
+++ b/lisp/interr.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interr.c,v 1.4 2000/09/04 15:35:52 dtc Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interr.c,v 1.5 2001/04/11 18:01:34 pw Exp $
  *
  * Stuff to handle internal errors.
  *
@@ -152,6 +152,7 @@ void internal_error(struct sigcontext *context)
 lispobj debug_print(lispobj string)
 {
     printf("%s\n", (char *)(((struct vector *)PTR(string))->data));
+    fflush(stdout);
 
     return NIL;
 }
-- 
GitLab