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

[clsql.git] / sql / command-object.lisp

diff --git a/sql/command-object.lisp b/sql/command-object.lisp
index 47dad33e28e651007533f0c516d84ab2d10444ae..c7b0ae5c4be3b5e25e96afe2b0ca78ee2967970e 100644 (file)
--- 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))