From 4951c2dad634560b91b4d0bf3b6545dd02bfa887 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Fri, 25 Jan 2013 14:20:01 +0000 Subject: [PATCH] IF can return multiple values --- ecmalisp.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4