X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fcommand-object.lisp;h=1a9cc3e6edd159d2cdfe82957a053ff6a12c4121;hb=a5eb71537ba68b002a54752f484b23306aa0761f;hp=c7b0ae5c4be3b5e25e96afe2b0ca78ee2967970e;hpb=1e8d22b3fdace44a45b6b0702da5587e136e2398;p=clsql.git

diff --git a/sql/command-object.lisp b/sql/command-object.lisp
index c7b0ae5..1a9cc3e 100644
--- a/sql/command-object.lisp
+++ b/sql/command-object.lisp
@@ -32,12 +32,18 @@
 		      :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))
 
-(export '(expression parameters prepared-name has-been-prepared command-object))
+(export '(expression parameters prepared-name has-been-prepared command-object reset-command-object))