X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fcommand-object.lisp;h=d931bac46ed4fd63240c5ada0b0003844b4804a0;hb=7cdd27f6a65387461baea7099a9e674e42ba26d4;hp=3b752ef3ca003a902c79b696eb4b8838a3d3773b;hpb=b49459599b33655a541817d317dfeb6f839f637e;p=clsql.git

diff --git a/sql/command-object.lisp b/sql/command-object.lisp
index 3b752ef..d931bac 100644
--- a/sql/command-object.lisp
+++ b/sql/command-object.lisp
@@ -23,13 +23,16 @@
 (in-package #:clsql-sys)
 
 (defclass command-object ()
-  ((expression :accessor expression :initarg :expression :initform nil)
-   (parameters :accessor parameters :initarg :parameters :initform nil)
+  ((expression :accessor expression :initarg :expression :initform nil
+               :documentation "query that refers to parameters using \"$1\", \"$2\", \"$n\".
+       These match positions in the parameters list.")
+   (parameters :accessor parameters :initarg :parameters :initform nil
+               :documentation "list of parameters")
    (prepared-name :accessor prepared-name :initarg :prepared-name :initform ""
     :documentation "If we want this to be a prepared statement, give it a name
        to identify it to this session")
    (has-been-prepared :accessor has-been-prepared :initarg :has-been-prepared :initform nil
-		      :documentation "Have we already prepared this command object")
+		      :documentation "Have we already prepared this command object?")
    ))
 
 (defmethod initialize-instance :after ((o command-object) &key &allow-other-keys )