mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 22:12:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: fix typo to make constant folding work again

Browse source
This commit is contained in:
Marius Gerbershagen 2021-04-01 16:18:52 +02:00
parent 9e204464ea
commit cdeea489cb
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/cmp/cmpeval.lsp
View file

@ -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)