X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fsql.lisp;h=64f74739a0e33ca3bd6c586f3300bceab0544773;hp=ae4da839514b7b8b32b0a32ee9f696308b41aa85;hb=f1ff5842ce264fbe47e8ef98e33e4aca3b71d863;hpb=d62773c32c5bd4bf57a4eda31a7825a5607ec87f

diff --git a/sql/sql.lisp b/sql/sql.lisp
index ae4da83..64f7473 100644
--- a/sql/sql.lisp
+++ b/sql/sql.lisp
@@ -33,8 +33,8 @@
          :result-types result-types :field-names field-names))
 
 (defmethod query ((expr sql-object-query) &key (database *default-database*)
-					       (result-types :auto) (flatp nil))
-  (declare (ignore result-types))
+		  (result-types :auto) (flatp nil) (field-names t))
+  (declare (ignore result-types field-names))
   (apply #'select (append (slot-value expr 'objects)
 			  (slot-value expr 'exp) 
 			  (when (slot-value expr 'refresh)