projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9231: add tests for fdml query, fix loop for single-variable, result-type :auto...
[clsql.git]
/
sql
/
sql.lisp
diff --git
a/sql/sql.lisp
b/sql/sql.lisp
index 8107bd96c1a0fe21b97a97b8d26cf6ed1bf185a1..c9a68a4e2e4105cc47b6f6ed917e681a765da6f8 100644
(file)
--- a/
sql/sql.lisp
+++ b/
sql/sql.lisp
@@
-29,9
+29,9
@@
(defmethod query ((expr %sql-expression) &key (database *default-database*)
(defmethod query ((expr %sql-expression) &key (database *default-database*)
- (result-types
nil) (flatp nil
))
+ (result-types
:auto) (flatp nil) (field-names t
))
(query (sql-output expr database) :database database :flatp flatp
(query (sql-output expr database) :database database :flatp flatp
- :result-types result-types))
+ :result-types result-types
:field-names field-names
))
(defun truncate-database (&key (database *default-database*))
(unless (typep database 'database)
(defun truncate-database (&key (database *default-database*))
(unless (typep database 'database)