X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql.lisp;h=863c9ef79604dd0e0c3d8dd782608774cfc1dc95;hb=7924236e2d4095f8e04a5598a8464f35c1829f20;hp=86f689328f0b2925819c5285874d993ebc6fe4fc;hpb=d77ffdd5904e25e51304bdefbca3a0887e75e82c;p=umlisp.git

diff --git a/sql.lisp b/sql.lisp
index 86f6893..863c9ef 100644
--- 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))