From: Kevin M. Rosenberg Date: Mon, 4 Oct 2004 16:13:20 +0000 (+0000) Subject: r10085: 04 Oct 2004 Kevin Rosenberg X-Git-Tag: v3.8.6~222 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=510b3d1d2d18c73ca222fce2b711f1b2f5025ba0 r10085: 04 Oct 2004 Kevin Rosenberg * 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) --- diff --git a/ChangeLog b/ChangeLog index 1eb770b..a199e8f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +04 Oct 2004 Kevin Rosenberg + * 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 * Version 3.0.8 released * db-sqlite/sqlite-*.lisp: Apply patch from diff --git a/db-db2/db2-sql.lisp b/db-db2/db2-sql.lisp index 16aa216..6224756 100644 --- a/db-db2/db2-sql.lisp +++ b/db-db2/db2-sql.lisp @@ -55,8 +55,8 @@ `(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) diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp index 11a51b0..33d84e7 100644 --- a/db-mysql/mysql-sql.lisp +++ b/db-mysql/mysql-sql.lisp @@ -493,8 +493,8 @@ (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)))