r9184: use new clsql :field-names keyword for QUERY call

diff --git a/sql.lisp b/sql.lisp
index 86f689328f0b2925819c5285874d993ebc6fe4fc..863c9ef79604dd0e0c3d8dd782608774cfc1dc95 100644 (file)
--- a/sql.lisp
+++ b/sql.lisp
@@ -88,7 +88,7 @@
     (sql-execute stmt conn)))
 
 (defun sql-query (cmd conn &key (result-types :auto))
-  (clsql:query cmd :database conn :result-types result-types))
+  (clsql:query cmd :database conn :result-types result-types :field-names nil))
 
 (defun sql-execute (cmd conn)
   (clsql:execute-command cmd :database conn))