projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4781983
)
r11060: fix loop error on clisp. RESULT-SET should be T at start of loop to avoid...
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 30 Aug 2006 08:58:47 +0000
(08:58 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 30 Aug 2006 08:58:47 +0000
(08:58 +0000)
sql/loop-extension.lisp
patch
|
blob
|
history
diff --git
a/sql/loop-extension.lisp
b/sql/loop-extension.lisp
index 98597a688fa3b381a2c2dc17b29752c5f713be0e..802533092c71b36a0c5ac8fa1655219ce622c674 100644
(file)
--- 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))
`(((,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)
(,step-var nil))
((multiple-value-bind (%rs %cols)
(database-query-result-set ,query-var ,db-var :result-types :auto)