From 1be162e1ed191a148ef302a3b1ee93eae6700890 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Tue, 11 Jun 2013 18:10:26 +0200 Subject: [PATCH] oops. Good fix to empty setq --- src/compiler.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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")) -- 1.7.10.4