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
c400b7cf
Commit
c400b7cf
authored
May 15, 1993
by
ram
Browse files
Moved compilation of top-level forms in compile-top-level inside binding of
*byte-compile* so that this compilation is affected.
parent
ea3c0f45
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main.lisp
View file @
c400b7cf
...
@@ -7,7 +7,7 @@
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
;;;
(
ext:file-comment
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.8
6
1993/05/1
3
1
1:3
7:
1
3 ram Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.8
7
1993/05/1
5
1
8:2
7:
0
3 ram Exp $"
)
;;;
;;;
;;; **********************************************************************
;;; **********************************************************************
;;;
;;;
...
@@ -1391,15 +1391,15 @@
...
@@ -1391,15 +1391,15 @@
(
dolist
(
component
components
)
(
dolist
(
component
components
)
(
compile-component
component
)
(
compile-component
component
)
(
when
(
replace-top-level-xeps
component
)
(
when
(
replace-top-level-xeps
component
)
(
setq
top-level-closure
t
)))
)
(
setq
top-level-closure
t
)))
(
when
*check-consistency*
(
when
*check-consistency*
(
maybe-mumble
"[Check]~%"
)
(
maybe-mumble
"[Check]~%"
)
(
check-ir1-consistency
*all-components*
))
(
check-ir1-consistency
*all-components*
))
(
if
load-time-value-p
(
if
load-time-value-p
(
compile-load-time-value-lambda
lambdas
)
(
compile-load-time-value-lambda
lambdas
)
(
compile-top-level-lambdas
lambdas
top-level-closure
))
(
compile-top-level-lambdas
lambdas
top-level-closure
))
)
(
dolist
(
component
components
)
(
dolist
(
component
components
)
(
clear-ir1-info
component
))
(
clear-ir1-info
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