+04 Oct 2004 Kevin Rosenberg <kevin@rosenberg.net>
+ * db-mysql/mysql-sql.lisp, db-db2/db2-sql.lisp: Add
+ missing quotes for types in code that is still in development
+ (thanks to Joerg Hoehle)
+
03 Oct 2004 Kevin Rosenberg <kevin@rosenberg.net>
* Version 3.0.8 released
* db-sqlite/sqlite-*.lisp: Apply patch from
`(the handle-type (uffi:deref-pointer (the handle-ptr-type ,foreign-object) cli-handle)))
(defun db2-connect (db server user password)
- (let ((henv (uffi:allocate-foreign-object cli-handle))
- (hdbc (uffi:allocate-foreign-object cli-handle)))
+ (let ((henv (uffi:allocate-foreign-object 'cli-handle))
+ (hdbc (uffi:allocate-foreign-object 'cli-handle)))
(sql-alloc-handle SQL_HANDLE_ENV SQL_NULL_HANDLE henv)
(setf (slot-value db 'henv) henv)
(setf (slot-value db 'hdbc) hdbc)
(let* ((field-vec (mysql-fetch-fields rs))
(num-fields (mysql-num-fields rs))
- (input-bind (uffi:allocate-foreign-object mysql-bind (length types)))
- (output-bind (uffi:allocate-foreign-object mysql-bind num-fields))
+ (input-bind (uffi:allocate-foreign-object 'mysql-bind (length types)))
+ (output-bind (uffi:allocate-foreign-object 'mysql-bind num-fields))
(length-ptr (uffi:allocate-foreign-object :unsigned-long num-fields))
(is-null-ptr (uffi:allocate-foreign-object :byte num-fields))
(mysql-types (mapcar 'clsql-type->mysql-type types)))