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

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