From 6dd070b8280513e071eb57978c45b49af5759e5c Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Mon, 25 Jul 2011 15:46:52 -0400 Subject: [PATCH] write out postgresql-socket-3 parameter values to the recording stream (when we write out command object expressions) --- db-postgresql-socket3/sql.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)))) -- 2.34.1