[cffi-devel] def-foreign-type and with-foreign-object

[Yaroslav Kavenchuk]

odbc-ff-interface.lisp:

(in-package #:odbc)

(def-foreign-type sql-handle :pointer-void)
...

odbc-api.lisp:
...
(defun %new-db-connection-handle (henv)
  (with-foreign-object (phdbc 'sql-handle)
    (setf (deref-pointer phdbc sql-handle) +null-handle-ptr+)
    (with-error-handling
      (:henv henv)
      (SQLAllocHandle $SQL_HANDLE_DBC henv phdbc)
      (deref-pointer phdbc 'sql-handle))))

result:
*** - ODBC::%NEW-DB-CONNECTION-HANDLE-1: symbol ODBC::SQL-HANDLE has no
value

[4]> (describe 'ODBC::SQL-HANDLE)

ODBC::SQL-HANDLE is the symbol ODBC::SQL-HANDLE, lies in #<PACKAGE
ODBC>, is accessible in 1 package ODBC.

 #<PACKAGE ODBC> is the package named ODBC.
 It imports the external symbols of 2 packages COMMON-LISP,
CFFI-UFFI-COMPAT and exports 43 symbols to 1
 package ODBC-DBI.

[5]> (apropos "SQL-HANDLE" :ODBC)
ODBC::SQL-HANDLE
ODBC::SQL-HANDLE-PTR

Thanks!

-- 
WBR, Yaroslav Kavenchuk.