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
bf617e24
Commit
bf617e24
authored
Feb 25, 1992
by
wlott
Browse files
Also bind *features* to the value from the backend during a compile.
parent
4384682c
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main.lisp
View file @
bf617e24
...
...
@@ -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.5
3
1992/02/2
1 18:41:12 ram
Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.5
4
1992/02/2
5 07:16:15 wlott
Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -1366,7 +1366,10 @@
(
*last-message-count*
0
)
(
*info-environment*
(
or
(
backend-info-environment
*backend*
)
*info-environment*
)))
*info-environment*
))
(
*features*
(
or
(
backend-features
*backend*
)
*features*
)))
(
with-compilation-unit
()
(
loop
(
multiple-value-bind
(
form
tlf
eof-p
)
...
...
@@ -1679,6 +1682,9 @@
(
*info-environment*
(
or
(
backend-info-environment
*backend*
)
*info-environment*
))
(
*features*
(
or
(
backend-features
*backend*
)
*features*
))
(
start-errors
*compiler-error-count*
)
(
start-warnings
*compiler-warning-count*
)
(
start-notes
*compiler-note-count*
)
...
...
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