mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-21 03:51:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: fix constant folding for functions that return multiple values

Browse source
This commit is contained in:
Marius Gerbershagen 2019-03-23 18:51:18 +01:00
parent 0407b9697c
commit 209434f91a
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpeval.lsp
View file

@ -157,9 +157,8 @@
(push v all-values)
(return nil))
finally
(return (c1constant-value
(apply fname (nreverse all-values))
:only-small-values nil)))
(return (c1expr `(values ,@(multiple-value-list
(apply fname (nreverse all-values)))))))
(error (c)))))
(defun c2expr (form)