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
be6d1fee
Commit
be6d1fee
authored
Nov 16, 1991
by
ram
Browse files
Deleted some confusing dead code.
parent
355b39ec
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/pack.lisp
View file @
be6d1fee
...
...
@@ -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
3
1991/11/
05 17:36
:0
8
ram Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.4
4
1991/11/
16 16:03
:0
2
ram Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -1324,9 +1324,9 @@
((
null
current-scs
)
(
unless
allowed
(
no-load-scs-allowed-by-primitive-type-error
op
))
(
dolist
(
sc
allowed
(
failed-to-pack-load-tn-error
allowed
op
)
)
(
when
(
unpack-for-load-tn
sc
op
)
(
return
))
)
(
setq
current-scs
scs
allowed
()
))
(
dolist
(
sc
allowed
)
(
unpack-for-load-tn
sc
op
))
(
failed-to-pack-load-tn-error
allowed
op
))
(
t
(
let*
((
sc
(
svref
(
backend-sc-numbers
*backend*
)
(
pop
current-scs
)))
(
target
(
find-load-tn-target
op
sc
)))
...
...
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