From: Russ Tyndall <russ@acceleration.net>
Date: Mon, 30 Nov 2009 20:18:27 +0000 (-0500)
Subject: created a command object function to slim down the typing neccessary to use one
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;ds=sidebyside;h=1e8d22b3fdace44a45b6b0702da5587e136e2398;hp=8b4602546d876db6e9853635d694de1993214127;p=clsql.git

created a command object function to slim down the typing neccessary to use one
---

diff --git a/sql/command-object.lisp b/sql/command-object.lisp
index 47dad33..c7b0ae5 100644
--- a/sql/command-object.lisp
+++ b/sql/command-object.lisp
@@ -32,6 +32,12 @@
 		      :documentation "Have we already prepared this command object")
    ))
 
+(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))