Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
3d7dd92c
Commit
3d7dd92c
authored
Jul 22, 1992
by
wlott
Browse files
Bind *byte-compiling* to T and print ``Byte Compiling'' when we are byte
compiling.
parent
a011e6b4
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main.lisp
View file @
3d7dd92c
...
...
@@ -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.6
5
1992/07/
11 02:11:20
wlott Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.6
6
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
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment