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
d0e137be
Commit
d0e137be
authored
Sep 26, 1991
by
ram
Browse files
Fixed UNPACK-FOR-LOAD-TN not to unpack *totally* random TNs (like restricted
temps.)
parent
1bf37a4e
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/pack.lisp
View file @
d0e137be
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.4
0
1991/0
8/05 15:51:2
8 ram Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.4
1
1991/0
9/26 17:50:5
8 ram Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -1281,9 +1281,10 @@
(
unpack-em
(
victims
)))
((
eq
conf
:overflow
))
((
not
fallback
)
(
if
(
find
conf
(
victims
))
(
setq
fallback
(
victims
))
(
setq
fallback
(
list
conf
)))))))))
(
cond
((
find
conf
(
victims
))
(
setq
fallback
(
victims
)))
((
find-in
#'
tn-next
conf
normal-tns
)
(
setq
fallback
(
list
conf
))))))))))
(
when
fallback
(
event
unpack-fallback
node
)
...
...
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