From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 1 May 2004 04:10:23 +0000 (+0000)
Subject: r9184: use new clsql :field-names keyword for QUERY call
X-Git-Tag: v2006ac.2~100
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=7924236e2d4095f8e04a5598a8464f35c1829f20

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

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))