r9186: add attribute caching, improve inititialize-database-type

[clsql.git] / base / basic-sql.lisp

diff --git a/base/basic-sql.lisp b/base/basic-sql.lisp
index 4546f4e1b4214b874887ef350940f8db9015c1f0..055e33a20dda2b351c09b0869049e5170afadac3 100644 (file)
--- a/base/basic-sql.lisp
+++ b/base/basic-sql.lisp
@@ -38,7 +38,9 @@ that expression and a list of field names selected in sql-exp."))
                       (mapcar #'car rows)
                     rows)))
       (record-sql-action result :result database)
-      (values result names))))
+      (if field-names
+         (values result names)
+       result))))
 
 ;;; Execute