r10085: 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)

diff --git a/ChangeLog b/ChangeLog
index 1eb770bedd721961626bbcde2c3db7470f72876f..a199e8f6bb42357301e23d164dbf2088920b87b3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/db-db2/db2-sql.lisp b/db-db2/db2-sql.lisp
index 16aa2165cf3613808749948aa2b7440843f2b237..62247567debdf86e77022dd9de309e264d84323c 100644 (file)
--- 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 11a51b00941c0c781fa6d63e22e89908e45e4948..33d84e7ff3dbe9aa2ceccd229aa02edfb7f2b4bd 100644 (file)
--- 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)))