From 3a63fef9b1fc50e4cacbd84cc2e0eca51977fd0f Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 28 Jul 1992 20:23:02 +0000 Subject: [PATCH] Moved the (compiler-mumble "~&") from native-compile-component to compile- component, so it happens when byte compiling also. --- compiler/main.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index 34509fcab..a6aee90df 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.66 1992/07/22 22:48:08 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.67 1992/07/28 20:23:02 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -320,9 +320,6 @@ (t (assem:nuke-segment *code-segment*))))) - (when *compile-print* - (compiler-mumble "~&")) - ;; We are done, so don't bother keeping anything around. (clear-ir2-info component) @@ -362,6 +359,9 @@ (byte-compile-component component) (native-compile-component component))) + (when *compile-print* + (compiler-mumble "~&")) + (undefined-value)) -- GitLab