X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-postgresql-socket3%2Fsql.lisp;h=db3ba86e8942660c51e73779d5645a4a1251742e;hb=f5b49cfe271f8c467f74002eaf27e1d93409cdc5;hp=1f27989c15149875a971edb46d5b9dc41876f5b1;hpb=6e49d313475d42d2ef7b4eea626f2d7da902d09e;p=clsql.git

diff --git a/db-postgresql-socket3/sql.lisp b/db-postgresql-socket3/sql.lisp
index 1f27989..db3ba86 100644
--- a/db-postgresql-socket3/sql.lisp
+++ b/db-postgresql-socket3/sql.lisp
@@ -203,7 +203,11 @@
 
 (defmethod query ((obj command-object) &key (database *default-database*)
                   (result-types :auto) (flatp nil) (field-names t))
-  (clsql-sys::record-sql-command (expression obj) database)
+  (clsql-sys::record-sql-command
+   (format nil "~&~A~&{Params: ~{~A~^, ~}}"
+           (expression obj)
+           (parameters obj))
+   database)
   (multiple-value-bind (rows names)
       (database-query obj database result-types field-names)
     (let ((result (if (and flatp (= 1 (length (car rows))))
@@ -330,4 +334,3 @@
 (defmethod read-sql-value (val (type (eql 'generalized-boolean)) (database postgresql-socket3-database) db-type)
   (declare (ignore database db-type))
   val)
-