From 1ce47de561f80debf6ffd8efeac4eaf962de65f7 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Tue, 11 Jun 2013 17:54:19 +0200 Subject: [PATCH] Fix empty setq --- src/compiler.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 1.7.10.4