From: David Vazquez <davazp@gmail.com>
Date: Fri, 25 Jan 2013 14:20:01 +0000 (+0000)
Subject: IF can return multiple values
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4951c2dad634560b91b4d0bf3b6545dd02bfa887;p=jscl.git

IF can return multiple values
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 900eef9..0d091a6 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1107,8 +1107,8 @@
 
 (define-compilation if (condition true false)
   (concat "(" (ls-compile condition) " !== " (ls-compile nil)
-          " ? " (ls-compile true)
-          " : " (ls-compile false)
+          " ? " (ls-compile true *multiple-value-p*)
+          " : " (ls-compile false *multiple-value-p*)
           ")"))
 
 (defvar *lambda-list-keywords* '(&optional &rest))