From 1e8d22b3fdace44a45b6b0702da5587e136e2398 Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Mon, 30 Nov 2009 15:18:27 -0500 Subject: [PATCH] created a command object function to slim down the typing neccessary to use one --- sql/command-object.lisp | 6 ++++++ 1 file changed, 6 insertions(+) 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)) -- 2.34.1