X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=base%2Fbasic-sql.lisp;h=cd9c177bab8545812c8c8aa0fae4e396f1d76c68;hp=b0a2dad2ddc2138189ac64ada417101a55511ee7;hb=7e20a5285824bbbd2aa6fae61da73465ed2e8557;hpb=1b5725b57eb64c5e3a688f805f46d5f66e11db7b

diff --git a/base/basic-sql.lisp b/base/basic-sql.lisp
index b0a2dad..cd9c177 100644
--- a/base/basic-sql.lisp
+++ b/base/basic-sql.lisp
@@ -61,7 +61,7 @@ pair."))
   (values))
 
 (defmacro do-query (((&rest args) query-expression
-		     &key (database '*default-database*) (result-types nil))
+		     &key (database '*default-database*) (result-types :auto))
 		    &body body)
   "Repeatedly executes BODY within a binding of ARGS on the
 attributes of each record resulting from QUERY-EXPRESSION. The
@@ -94,7 +94,7 @@ default value of DATABASE is *DEFAULT-DATABASE*."
 
 (defun map-query (output-type-spec function query-expression
 		  &key (database *default-database*)
-		  (result-types nil))
+		  (result-types :auto))
   "Map the function over all tuples that are returned by the
 query in QUERY-EXPRESSION. The results of the function are
 collected as specified in OUTPUT-TYPE-SPEC and returned like in