From f59ca3bd7f7442215f9c3c31b00f9c8d3d2e2b69 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 02:12:26 +0200 Subject: [PATCH] Migrate IF --- src/compiler.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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)) -- 1.7.10.4