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
ecl
ecl
Commits
cdeea489
Commit
cdeea489
authored
Apr 01, 2021
by
Marius Gerbershagen
Browse files
cmp: fix typo to make constant folding work again
parent
9e204464
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/cmp/cmpeval.lsp
View file @
cdeea489
...
...
@@ -173,14 +173,15 @@
(
push
v
all-values
)
(
return
nil
))
finally
(
let
((
results
(
multiple-value-list
(
apply
fname
(
nreverse
all-values
)))))
(
if
(
endp
(
rest
results
))
(
c1constant-value
(
first
results
)
:only-small-values
nil
)
(
let
((
results
(
mapcar
(
lambda
(
r
)
(
c1constant-value
r
:only-small-values
nil
))
results
)))
(
when
(
every
#'
identity
results
)
(
make-c1form*
'values
:args
results
))))))
(
return
(
let
((
results
(
multiple-value-list
(
apply
fname
(
nreverse
all-values
)))))
(
if
(
endp
(
rest
results
))
(
c1constant-value
(
first
results
)
:only-small-values
nil
)
(
let
((
results
(
mapcar
(
lambda
(
r
)
(
c1constant-value
r
:only-small-values
nil
))
results
)))
(
when
(
every
#'
identity
results
)
(
make-c1form*
'values
:args
results
)))))))
(
error
(
c
)
(
cmpdebug
"Can't constant-fold ~s ~s: ~a~%"
fname
forms
c
)))))
(
defun
c2expr
(
form
)
...
...
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