oops. Good fix to empty setq

[jscl.git] / src / compiler.lisp

diff --git a/src/compiler.lisp b/src/compiler.lisp
index c14584f..c988050 100644 (file)
--- 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"))