diff --git a/src/cmp/cmpinline.lsp b/src/cmp/cmpinline.lsp index d2c2f799f..a4591cc3d 100644 --- a/src/cmp/cmpinline.lsp +++ b/src/cmp/cmpinline.lsp @@ -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)))))