From 8fddfe40764e39c985a6e1319c1bade4ab1cddcc Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sat, 30 Mar 2013 22:50:40 +0100
Subject: [PATCH] c::emit-inlined-values did not contemplate the empty values
 form (values)

---
 src/cmp/cmpinline.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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