From 96e5780d91a8c4166b4f238aff57ee46de2aa7d5 Mon Sep 17 00:00:00 2001 From: Fabrizio Fabbri Date: Tue, 31 Jan 2017 21:51:25 +0100 Subject: [PATCH] fix #330 - Order of evaluation of VALUES forms was incorrect in compiled code --- src/cmp/cmpinline.lsp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmpinline.lsp b/src/cmp/cmpinline.lsp index fec6f4195..d2c2f799f 100644 --- a/src/cmp/cmpinline.lsp +++ b/src/cmp/cmpinline.lsp @@ -93,7 +93,11 @@ (defun emit-inlined-values (form forms) (let ((args (c1form-arg 0 form))) - (prog1 (emit-inline-form (or (pop args) (c1nil)) forms) + (prog1 (emit-inline-form (or (pop args) (c1nil)) + ;; the rest of the form + ;; in a inlined values + ;; are the rest of the values args + args ) (loop with *destination* = 'TRASH for form in args do (c2expr* form)))))