(in-package #:odbc)
(def-foreign-type sql-handle :pointer-void)
-(def-foreign-type sql-handle-ptr '(* sql-handle))
-(def-foreign-type string-ptr '(* :unsigned-char))
-(def-type long-ptr-type '(* #.$ODBC-LONG-TYPE))
+(def-foreign-type sql-handle-ptr (* sql-handle))
+(def-foreign-type string-ptr (* :unsigned-char))
+(def-type long-ptr-type (* #.$ODBC-LONG-TYPE))
;; odbc v3
(def-function "SQLAllocHandle"
(table-name-length :short)
(table-type-name :pointer-void)
(table-type-name-length :short))
+ :module "odbc"
:returning :short)
(table-name-length :short)
(unique :short)
(reserved :short))
+ :module "odbc"
:returning :short)