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