X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler.lisp;h=c98805021d3e3b39d14576a1097a20fcbb015a1f;hb=2305b15fffc6679e9fdf42f6cd5bf49ee0dd3ce8;hp=c14584f866d1732e3dae0148411ee3ddbd0aae11;hpb=1ce47de561f80debf6ffd8efeac4eaf962de65f7;p=jscl.git

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"))