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