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

cosmetic indent fix

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-03 18:13:18 +01:00 • committed by Daniel Kochmanski
parent aa2a88160c
commit 0cd581d08b
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpinline.lsp
View file

@ -94,10 +94,9 @@
(defun emit-inlined-values (form forms)
(let ((args (c1form-arg 0 form)))
(prog1 (emit-inline-form (or (pop args) (c1nil))
;; the rest of the form
;; in a inlined values
;; the rest of the form in inlined values
;; are the rest of the values args
args )
args)
(loop with *destination* = 'TRASH
for form in args
do (c2expr* form)))))