From: David Vázquez <davazp@gmail.com>
Date: Sun, 23 Jun 2013 00:12:26 +0000 (+0200)
Subject: Migrate IF
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f59ca3bd7f7442215f9c3c31b00f9c8d3d2e2b69;p=jscl.git

Migrate IF
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 09abdeb..36eac60 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -190,10 +190,9 @@
          *compilations*))
 
 (define-compilation if (condition true &optional false)
-  `(code "(" ,(ls-compile condition) " !== " ,(ls-compile nil)
-         " ? " ,(ls-compile true *multiple-value-p*)
-         " : " ,(ls-compile false *multiple-value-p*)
-         ")"))
+  `(if (!== ,(ls-compile condition) ,(ls-compile nil))
+       ,(ls-compile true *multiple-value-p*)
+       ,(ls-compile false *multiple-value-p*)))
 
 (defvar *ll-keywords* '(&optional &rest &key))