From: Russ Tyndall <russ@acceleration.net>
Date: Mon, 25 Jul 2011 19:46:52 +0000 (-0400)
Subject: write out postgresql-socket-3 parameter values to the recording stream (when we write... 
X-Git-Tag: v6.0.0~4^2
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=6dd070b8280513e071eb57978c45b49af5759e5c

write out postgresql-socket-3 parameter values to the recording stream (when we write out command object expressions)
---

diff --git a/db-postgresql-socket3/sql.lisp b/db-postgresql-socket3/sql.lisp
index f8573a2..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))))