From 0e43efc5b776edd86d304e103123944a84efd9a4 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 30 Aug 2006 08:58:47 +0000 Subject: [PATCH] r11060: fix loop error on clisp. RESULT-SET should be T at start of loop to avoid terminating before starting --- sql/loop-extension.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.34.1