Index: combined/src/odbc/odbc-functions.lisp
===================================================================
--- combined/src/odbc/odbc-functions.lisp	(revision combined,2.1.4)
+++ combined/src/odbc/odbc-functions.lisp	(revision combined,2.1.11)
@@ -261,5 +261,5 @@
 ; 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,5 +272,5 @@
                             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,5 +499,5 @@
 ;; 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,5 +593,5 @@
 ; 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,5 +600,5 @@
 
 (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))