projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1b0508a
)
added reset-command-object to allow using the same command against multiple connections
author
Russ Tyndall
<russ@acceleration.net>
Mon, 14 Dec 2009 23:05:07 +0000
(18:05 -0500)
committer
Russ Tyndall
<russ@acceleration.net>
Mon, 14 Dec 2009 23:05:07 +0000
(18:05 -0500)
sql/command-object.lisp
patch
|
blob
|
history
diff --git
a/sql/command-object.lisp
b/sql/command-object.lisp
index c7b0ae5c4be3b5e25e96afe2b0ca78ee2967970e..1a9cc3e6edd159d2cdfe82957a053ff6a12c4121 100644
(file)
--- a/
sql/command-object.lisp
+++ b/
sql/command-object.lisp
@@
-32,12
+32,18
@@
:documentation "Have we already prepared this command object")
))
:documentation "Have we already prepared this command object")
))
+(defun reset-command-object (co)
+ "Resets the command object to have no name and to be unprepared
+ (This is useful if you want to run a command against a second database)"
+ (setf (prepared-name co) ""
+ (has-been-prepared co) nil))
+
(defun command-object (expression &optional parameters (prepared-name ""))
(make-instance 'command-object
:expression expression
:parameters parameters
:prepared-name prepared-name))
(defun command-object (expression &optional parameters (prepared-name ""))
(make-instance 'command-object
:expression expression
:parameters parameters
:prepared-name prepared-name))
-(export '(expression parameters prepared-name has-been-prepared command-object))
+(export '(expression parameters prepared-name has-been-prepared command-object
reset-command-object
))