From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 30 Aug 2006 08:58:47 +0000 (+0000)
Subject: r11060: fix loop error on clisp. RESULT-SET should be T at start of loop to avoid... 
X-Git-Tag: v3.8.6~61
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=0e43efc5b776edd86d304e103123944a84efd9a4

r11060: fix loop error on clisp. RESULT-SET should be T at start of loop to avoid terminating before starting
---

diff --git a/sql/loop-extension.lisp b/sql/loop-extension.lisp
index 98597a6..8025330 100644
--- a/sql/loop-extension.lisp
+++ b/sql/loop-extension.lisp
@@ -110,7 +110,7 @@
 	 `(((,variable nil ,@(and data-type (list data-type)))
 	    (,query-var ,(first in-phrase))
 	    (,db-var ,(first from-phrase))
-	    (,result-set-var nil)
+	    (,result-set-var t)
 	    (,step-var nil))
 	   ((multiple-value-bind (%rs %cols)
 		(database-query-result-set ,query-var ,db-var :result-types :auto)