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
dbfbf11f
Commit
dbfbf11f
authored
Sep 23, 1992
by
ram
Browse files
Don't compile load-time-value lambdas if they've already been compiled
because they ended up in a non-top-level component.
parent
d5db694b
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main.lisp
View file @
dbfbf11f
...
...
@@ -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.7
4
1992/09/2
2 00:06:14
ram Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.7
5
1992/09/2
3 17:05:30
ram Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -1105,15 +1105,18 @@
;;;
;;; Called by COMPILE-TOP-LEVEL when it was pased T for LOAD-TIME-VALUE-P
;;; (which happens in COMPILE-LOAD-TIME-STUFF). We don't try to combine
;;; this component with anything else and frob the name.
;;; this component with anything else and frob the name. If not in a
;;; :TOP-LEVEL component, then don't bother compiling, because it was merged
;;; with a run-time component.
;;;
(
defun
compile-load-time-value-lambda
(
lambdas
)
(
assert
(
null
(
cdr
lambdas
)))
(
let*
((
lambda
(
car
lambdas
))
(
component
(
block-component
(
node-block
(
lambda-bind
lambda
)))))
(
setf
(
component-name
component
)
(
leaf-name
lambda
))
(
compile-component
component
)
(
clear-ir1-info
component
)))
(
when
(
eq
(
component-kind
component
)
:top-level
)
(
setf
(
component-name
component
)
(
leaf-name
lambda
))
(
compile-component
component
)
(
clear-ir1-info
component
))))
;;; EMIT-MAKE-LOAD-FORM -- interface.
...
...
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