From c40156739121a52094d2f587fdd0f8f045baa724 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 22 Jul 1993 11:17:54 +0000 Subject: [PATCH] Bind *error-output* to *compile-error-output* around the call to dylan::convert-top-level. --- compiler/main.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index ce3ff7c0d..189bdc6f9 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.88 1993/07/22 08:42:43 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.89 1993/07/22 11:17:54 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -868,7 +868,9 @@ (res (careful-read stream eof pos language))) (unless (eq res eof) (let ((form (ecase language - (:dylan (dylan::convert-top-level res)) + (:dylan + (let ((*error-output* *compiler-error-output*)) + (dylan::convert-top-level res))) (:lisp res)))) (let* ((forms (file-info-forms file)) (current-idx (+ (fill-pointer forms) -- GitLab