cl-user> (handler-case (ql:quickload "clsql") (error (e) (princ e)))

To load "clsql":

  Load 1 ASDF system:

    clsql

; Loading "clsql"

Undefined function clsql-sys::|view-class-slot-autoincrement-sequence| called with arguments (#<view-class-direct-slot-definition for instance slot clsql-sys::view-database #x302001C1DC1D>) .

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp

index 1c9a6c5..830cf2c 100644

--- a/sql/metaclasses.lisp

+++ b/sql/metaclasses.lisp

<at> <at> -482,7 +482,7 <at> <at> implementations."

 

          (macrolet

              ((safe-copy-value (name &optional default)

-                (let ((fn (intern (format nil "~A~A" 'view-class-slot- name ))))

+                (let ((fn (intern (format nil "~ <at> :(~A~A~)" 'view-class-slot- name ))))

                   `(setf (slot-value esd ',name)

                     (or (when (slot-boundp dsd ',name)

                           (delistify-dsd (,fn dsd)))

I am trying to run a query through ODBC on a Mssql Server 2008 database. The query runs on the database as expected, however it is support to return a single row of results which vary depending on the results of the query. I have tested the sql query directly against the database and it runs as expected, however with running it using clsql:query it only returns the number 1 instead of the expected list of results. Is there a step I am missing with my call? The following is an example of what I am trying to run:

---------------------------------------------------------------
(clsql:with-database (*default-database* *mssql-connect-writer-spec* :database-type :odbc
                                         :if-exists :new :make-default nil)
  (clsql:set-autocommit nil)
  (clsql:query "
DECLARE <at> batchID INT
DECLARE <at> batchIDNext INT
DECLARE <at> result INT
DECLARE <at> errorMessage VARCHAR(255)


-- Start the transaction process here
BEGIN TRANSACTION

-- Try attempts to run the code inside of the try, if it fails it is caught by the CATCH, the CATCH must immediately follow the TRY
BEGIN TRY
        SELECT <at> batchID = next_value from autoincrement a where a.company_id = 'TMS' and a.tablename = 'cash_batch' and a.fieldname = 'id'

        SELECT <at> batchIDNext = ( <at> batchID + 1)

        update autoincrement set next_value= <at> batchIDNext where company_id='TMS' and tablename='cash_batch' and fieldname='id' and next_value= <at> batchID

        INSERT INTO cash_batch(company_id, amount, amount_c, amount_d, amount_n, amount_r, glid, id, receipt_date)
                       values ('TMS','hi','USD',null,50.00,1.0000,'2015000000', <at> batchID,'2013-03-05 12:31:45')

END TRY
BEGIN CATCH
        -- TRANCOUNT checks how many transaction steps are currently uncommitted, so if there was an error roll them back which sets <at> <at> TRANCOUNT to zero
        IF <at> <at> TRANCOUNT > 0
           BEGIN
              ROLLBACK TRANSACTION;
              SELECT <at> result = -1;
              SELECT <at> errorMessage = ERROR_MESSAGE();
           END

END CATCH

-- If there were errors <at> <at> TRANCOUNT will be rolled back to zero, Otherwise commit and return the batch id
IF <at> <at> TRANCOUNT > 0
    BEGIN
        COMMIT TRANSACTION;
        SELECT <at> result = <at> batchID;
        SELECT <at> errorMessage = 'ok';
    END    

SELECT <at> result as resultid, <at> errorMessage as message;"
   :result-types '(:int :string)))

-------------------------------------------------------------