Changeset 64-bit,13 for 64-bit/src/odbc/odbc-functions.lisp

Timestamp:

02/04/2008 12:59:54 AM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

test

parents:

Rev	Tree	Chgset
12	@64-bit,12	[64-bit,12]
2.1.1	@64-bit,2.1.1	[64-bit,2.1.1]

revision id:

dsowen@fugue88.ws-20080204005954-s1vx8hf9i7l2iqqe

Message:

Merged most of revision 3 from vendor. Vendor made some backtracks from sql-pointer to :long for unknown reason, and added MySQL stuff.

File:

• 64-bit/src/odbc/odbc-functions.lisp (modified) (5 diffs)

64-bit/src/odbc/odbc-functions.lisp

@@ -261 +261 @@
 ; col-nr = :bookmark retrieves a bookmark.
 (defun %bind-column (hstmt column-nr c-type data-ptr precision out-len-ptr)
-  (declare ((integer 0) column-nr))
+  (declare (type (integer 0) column-nr))
   (with-error-handling
       (:hstmt hstmt)
@@ -272 +272 @@
                             sql-type precision scale data-ptr
                             max-value out-len-ptr)
-  (declare ((integer 0) parameter-nr))
+  (declare (type (integer 0) parameter-nr))
   (with-error-handling
       (:hstmt hstmt)
@@ -499 +499 @@
 ;; Column counting is 1-based
 (defun %describe-column (hstmt column-nr)
-  (declare ((integer 1) column-nr))
+  (declare (type (integer 1) column-nr))
   (with-temporary-allocations
       ((column-name-ptr (alloc-chars 256))
@@ -593 +593 @@
 ; column-nr is zero-based
 (defun %sql-get-data (hstmt column-nr c-type data-ptr precision out-len-ptr)
-  (declare ((integer 0) column-nr))
+  (declare (type (integer 0) column-nr))
   (with-error-handling
       (:hstmt hstmt :print-info nil)
@@ -600 +600 @@
 
 (defun %sql-get-data-raw (hstmt position c-type data-ptr buffer-length ind-ptr)
-  (declare ((integer 0) position))
+  (declare (type (integer 0) position))
   (SQLGetData hstmt (1+ position)
               c-type data-ptr buffer-length ind-ptr))