r11060: fix loop error on clisp. RESULT-SET should be T at start of loop to avoid...
authorKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 30 Aug 2006 08:58:47 +0000 (08:58 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 30 Aug 2006 08:58:47 +0000 (08:58 +0000)
sql/loop-extension.lisp

index 98597a6..8025330 100644 (file)
         `(((,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)