From dd6b4ce61588205a9d9b6637291a16ea775496c4 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 27 Apr 1990 11:46:04 +0000
Subject: [PATCH] Added a stream arg to the FORCE-OUTPUT in COMPILER-MUMBLE.

---
 compiler/ir1util.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp
index f710851c8..fcf4ea1d7 100644
--- a/compiler/ir1util.lisp
+++ b/compiler/ir1util.lisp
@@ -1308,7 +1308,7 @@
     (setq *last-source-context* nil)
     (setq *last-format-string* nil))
   (apply #'format *compiler-error-output* format-string format-args)
-  (force-output))
+  (force-output *compiler-error-output*))
 
 
 ;;; Find-Component-Name  --  Interface
-- 
GitLab