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

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 )