Merge branch 'master' of http://git.b9.com/clsql

diff --git a/ChangeLog b/ChangeLog
index ae9680c916883da9589dc67208593cea61f6c934..005158fa5f0cff7847a2f6c83cf9c7010f7fde96 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-18  Russ Tyndall  <russ@acceleration.net>
+       * db-odbc/odbc-api.lisp
+
+       Added type specifier so MSSQL nvarchar fields can make it through
+
 2011-09-12  Russ Tyndall  <russ@acceleration.net>
        * sql/fddl.lisp sql/generic-postgres.lisp db-mysql/mysql-sql.lisp
        sql/generic-odbc.lisp sql/odbc-api.lisp sql/odbc-dbi.lisp

diff --git a/db-odbc/odbc-api.lisp b/db-odbc/odbc-api.lisp
index af36bb91f02530d6fd66b63b644da3c8d94e22ef..85411459d00f6185a35342e43b359806b0459b65 100644 (file)
--- a/db-odbc/odbc-api.lisp
+++ b/db-odbc/odbc-api.lisp
@@ -586,8 +586,9 @@ as possible second argument) to the desired representation of date/time/timestam
 
 (defun sql-to-c-type (sql-type)
   (ecase sql-type
+    ;; Added -10 for MSSQL ntext type and -11 for nvarchar
     ((#.$SQL_CHAR #.$SQL_VARCHAR #.$SQL_LONGVARCHAR
-      #.$SQL_NUMERIC #.$SQL_DECIMAL -8 -9 -10) $SQL_C_CHAR) ;; Added -10 for MSSQL ntext type
+      #.$SQL_NUMERIC #.$sql_decimal -8 -9 -10 -11) $SQL_C_CHAR)
     (#.$SQL_INTEGER $SQL_C_SLONG)
     (#.$SQL_BIGINT $SQL_C_SBIGINT)
     (#.$SQL_SMALLINT $SQL_C_SSHORT)

diff --git a/sql/command-object.lisp b/sql/command-object.lisp
index 3b752ef3ca003a902c79b696eb4b8838a3d3773b..d931bac46ed4fd63240c5ada0b0003844b4804a0 100644 (file)
--- 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 )