From 9c005200841b9945df859dbcf3c24f7f57812c68 Mon Sep 17 00:00:00 2001 From: Marijn Haverbeke Date: Mon, 27 Feb 2012 09:36:55 +0100 Subject: [PATCH] Swap loop directives to appease ECL --- s-sql/s-sql.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/s-sql/s-sql.lisp b/s-sql/s-sql.lisp index 47a5603e..c29a793b 100644 --- a/s-sql/s-sql.lisp +++ b/s-sql/s-sql.lisp @@ -558,7 +558,7 @@ the proper SQL syntax for joining tables." (member x '(:left-join :right-join :inner-join :outer-join :cross-join)))) (when (null args) (sql-error "Empty :from clause in select")) - (loop :while args :for first = t :then nil + (loop :for first = t :then nil :while args :append (cond ((is-join (car args)) (when first (sql-error ":from clause starts with a join.")) (expand-join nil))