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

fix #330 - Order of evaluation of VALUES forms was incorrect in compiled code

Browse source
This commit is contained in:
Fabrizio Fabbri 2017-01-31 21:51:25 +01:00
parent 9e944557de
commit 96e5780d91
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpinline.lsp
View file

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