projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ab6923b
)
write out postgresql-socket-3 parameter values to the recording stream (when we write...
author
Russ Tyndall
<russ@acceleration.net>
Mon, 25 Jul 2011 19:46:52 +0000
(15:46 -0400)
committer
Russ Tyndall
<russ@acceleration.net>
Mon, 25 Jul 2011 19:46:52 +0000
(15:46 -0400)
db-postgresql-socket3/sql.lisp
patch
|
blob
|
history
diff --git
a/db-postgresql-socket3/sql.lisp
b/db-postgresql-socket3/sql.lisp
index f8573a200b7e7432514900dc51eb22a5aec7743f..db3ba86e8942660c51e73779d5645a4a1251742e 100644
(file)
--- 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))))