From 3d7dd92cb2cb00b1677299a77828948e2db108a0 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 22 Jul 1992 22:48:08 +0000 Subject: [PATCH] Bind *byte-compiling* to T and print ``Byte Compiling'' when we are byte compiling. --- compiler/main.lisp | 23 ++++++++++++++++------- 1 file changed, 16 insertions(+), 7 deletions(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index 601e1a29b..34509fcab 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.65 1992/07/11 02:11:20 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.66 1992/07/22 22:48:08 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -44,6 +44,9 @@ (defvar *byte-compile* :maybe "Whether or not to use the byte-compiler. Can be T, NIL, or :MAYBE") +(defvar *byte-compiling* nil + "Bound by COMPILE-COMPONENT to T when byte-compiling, and NIL when + native compiling.") (defvar compiler-version "1.0") (pushnew :python *features*) @@ -329,9 +332,18 @@ ;;; COMPILE-COMPONENT -- internal. ;;; (defun compile-component (component) - (let ((*compile-component* component)) + (let* ((*compile-component* component) + (*byte-compiling* + (ecase *byte-compile* + ((t) t) + ((nil) nil) + (:maybe + ;; ### Need some heuristic + nil)))) (when *compile-print* - (compiler-mumble "~&Compiling ~A: " (component-name component))) + (compiler-mumble "~&~:[~;Byte ~]Compiling ~A: " + *byte-compiling* + (component-name component))) (ir1-phases component) @@ -346,10 +358,7 @@ (environment-analyze component) (dfo-as-needed component) - (if (ecase *byte-compile* - ((t) t) - ((nil) nil) - (:maybe nil)) + (if *byte-compiling* (byte-compile-component component) (native-compile-component component))) -- GitLab