From: David Vázquez <davazp@gmail.com>
Date: Tue, 11 Jun 2013 15:54:19 +0000 (+0200)
Subject: Fix empty setq
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1ce47de561f80debf6ffd8efeac4eaf962de65f7;p=jscl.git

Fix empty setq
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 2d541c7..c14584f 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -470,7 +470,9 @@
   (let ((result ""))
     (while t
       (cond
-	((null pairs) (return))
+	((null pairs)
+         (setq result (ls-compile nil))
+         (return))
 	((null (cdr pairs))
 	 (error "Odd pairs in SETQ"))
 	(t