From 510b3d1d2d18c73ca222fce2b711f1b2f5025ba0 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 4 Oct 2004 16:13:20 +0000 Subject: [PATCH] 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) --- ChangeLog | 5 +++++ db-db2/db2-sql.lisp | 4 ++-- db-mysql/mysql-sql.lisp | 4 ++-- 3 files changed, 9 insertions(+), 4 deletions(-) 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))) -- 2.34.1