do
(setf res (%sql-get-data hstmt column-nr c-type data-ptr +max-precision+ out-len-ptr)
out-len (deref-pointer out-len-ptr #.$ODBC-LONG-TYPE)))
do
(setf res (%sql-get-data hstmt column-nr c-type data-ptr +max-precision+ out-len-ptr)
out-len (deref-pointer out-len-ptr #.$ODBC-LONG-TYPE)))