X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=base%2Fbasic-sql.lisp;h=a7d32cfba64a92d3278750975fae24c2f92929cb;hp=258832d573b738d7bb749f164e2f09b948758612;hb=09f07ac9d914a83f9426609f3264f4e66b5a6d97;hpb=279b34c9e8e28545c8f2a0959acb01d90138eeda

diff --git a/base/basic-sql.lisp b/base/basic-sql.lisp
index 258832d..a7d32cf 100644
--- a/base/basic-sql.lisp
+++ b/base/basic-sql.lisp
@@ -31,13 +31,13 @@ that expression and a list of field names selected in sql-exp."))
 
 (defmethod query ((query-expression string) &key (database *default-database*)
                   (result-types :auto) (flatp nil) (field-names t))
-  (record-sql-action query-expression :query database)
+  (record-sql-command query-expression database)
   (multiple-value-bind (rows names) (database-query query-expression database result-types
                                                     field-names)
     (let ((result (if (and flatp (= 1 (length (car rows))))
                       (mapcar #'car rows)
                     rows)))
-      (record-sql-action result :result database)
+      (record-sql-result result database)
       (if field-names
 	  (values result names)
 	result))))
@@ -55,9 +55,9 @@ pair."))
 
 (defmethod execute-command ((sql-expression string)
                             &key (database *default-database*))
-  (record-sql-action sql-expression :command database)
+  (record-sql-command sql-expression database)
   (let ((res (database-execute-command sql-expression database)))
-    (record-sql-action res :result database))
+    (record-sql-result res database))
   (values))
 
 ;;; Large objects support