X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=base%2Fbasic-sql.lisp;h=055e33a20dda2b351c09b0869049e5170afadac3;hp=4546f4e1b4214b874887ef350940f8db9015c1f0;hb=f716bb1161cf9e89a96945c4a444244f9d303691;hpb=8b5250e14e3280bdc4641c3b35a8dc68ca4dbde7

diff --git a/base/basic-sql.lisp b/base/basic-sql.lisp
index 4546f4e..055e33a 100644
--- 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