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

The inliner for VALUES forms was not used

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-13 13:38:04 +02:00
parent edfdf47d22
commit 02bdb9df00
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cmp/cmpinline.lsp
View file

@ -80,10 +80,10 @@
(defun emit-inlined-values (form expected-type forms)
(let ((args (c1form-arg 0 form)))
(prog1 (emit-inline-form form expected-type forms)
(prog1 (emit-inline-form (pop args) expected-type forms)
(loop with *destination* = 'TRASH
while (rest args)
do (c2expr* (pop args))))))
for form in args
do (c2expr* form)))))
(defun emit-inlined-structure-ref (form expected-type rest-forms)
(let ((type (c1form-primary-type form)))
@ -131,6 +131,8 @@
(emit-inlined-setq form expected-type forms))
(PROGN
(emit-inlined-progn form expected-type forms))
(VALUES
(emit-inlined-values form expected-type forms))
(t (let* ((type (c1form-primary-type form))
(temp (make-inline-temp-var expected-type type)))
(let ((*destination* temp)) (c2expr* form))