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

Merge branch 'develop' into 'develop'

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

Closes #330

See merge request !48
This commit is contained in:
Daniel Kochmański 2017-02-02 07:28:34 +00:00
commit 470ad979be
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)))))