projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
8b46025
)
created a command object function to slim down the typing neccessary to use one
author
Russ Tyndall
<russ@acceleration.net>
Mon, 30 Nov 2009 20:18:27 +0000
(15:18 -0500)
committer
Russ Tyndall
<russ@acceleration.net>
Mon, 30 Nov 2009 20:18:27 +0000
(15:18 -0500)
sql/command-object.lisp
patch
|
blob
|
history
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))