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

c::emit-inlined-values did not contemplate the empty values form (values)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-03-30 22:50:40 +01:00
parent e90ff5a6c7
commit 8fddfe4076
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpinline.lsp
View file

@ -91,7 +91,7 @@
(defun emit-inlined-values (form forms)
(let ((args (c1form-arg 0 form)))
(prog1 (emit-inline-form (pop args) forms)
(prog1 (emit-inline-form (or (pop args) (c1nil)) forms)
(loop with *destination* = 'TRASH
for form in args
do (c2expr* form)))))