From: David Vázquez <davazp@gmail.com>
Date: Tue, 11 Jun 2013 16:10:26 +0000 (+0200)
Subject: oops. Good fix to empty setq
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1be162e1ed191a148ef302a3b1ee93eae6700890;p=jscl.git

oops. Good fix to empty setq
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index c14584f..c988050 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -468,10 +468,11 @@
 
 (define-compilation setq (&rest pairs)
   (let ((result ""))
+    (when (null pairs)
+      (return-from setq (ls-compile nil)))
     (while t
       (cond
 	((null pairs)
-         (setq result (ls-compile nil))
          (return))
 	((null (cdr pairs))
 	 (error "Odd pairs in SETQ"))