From 209434f91a6d021e13060aef89a11ffd1483eafc Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sat, 23 Mar 2019 18:51:18 +0100 Subject: [PATCH] cmp: fix constant folding for functions that return multiple values --- src/cmp/cmpeval.lsp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpeval.lsp b/src/cmp/cmpeval.lsp index e853c6dd8..5bbdb1127 100644 --- a/src/cmp/cmpeval.lsp +++ b/src/cmp/cmpeval.lsp @@ -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)