r2893: *** empty log message ***

diff --git a/db-mysql/mysql-sql.cl b/db-mysql/mysql-sql.cl
index 7edc058628352305f0592df99af801d14853d28b..4d7102a2923260ded3a965c660cc2b81afc785f6 100644 (file)
--- a/db-mysql/mysql-sql.cl
+++ b/db-mysql/mysql-sql.cl
@@ -8,7 +8,7 @@
 ;;;;                Original code by Pierre R. Mai 
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: mysql-sql.cl,v 1.2 2002/09/30 01:57:32 kevin Exp $
+;;;; $Id: mysql-sql.cl,v 1.3 2002/09/30 02:07:42 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -47,7 +47,7 @@
     (dotimes (i num-fields)
       (declare (fixnum i))
       (let* ( (field (mysql-fetch-field-direct res-ptr i))
-            #+ignore (field (uffi:deref-array field-vec '(* mysql-field) i))
+            #+ignore (field (uffi:deref-array field-vec '(:array mysql-field) i))
              (type (uffi:get-slot-value field 'mysql-field 'type)))
        (push
         (case type
@@ -160,7 +160,7 @@
                              (loop for i from 0 below num-fields
                                    collect
                                    (convert-raw-field
-                                    (uffi:deref-array row '(* (* :unsigned-char)) i)
+                                    (uffi:deref-array row '(:array (* :unsigned-char)) i)
                                     types i)))
                     (mysql-free-result res-ptr)))
               (error 'clsql-sql-error
@@ -249,7 +249,7 @@
            do
            (setf (car rest) 
                  (convert-raw-field
-                  (uffi:deref-array row '(* (* :unsigned-char)) i)
+                  (uffi:deref-array row '(:array (* :unsigned-char)) i)
                   types
                   i)))
       list)))