clsql/db-mysql mysql-api.lisp,1.1,1.2

Update of /pubcvs/clsql/db-mysql
In directory boa.b9.com:/tmp/cvs-serv23725/db-mysql

Modified Files:
	mysql-api.lisp 
Log Message:
more win32 changes

Index: mysql-api.lisp
===================================================================
RCS file: /pubcvs/clsql/db-mysql/mysql-api.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** mysql-api.lisp	30 Sep 2002 10:19:23 -0000	1.1
--- mysql-api.lisp	17 May 2003 07:27:15 -0000	1.2
***************
*** 109,112 ****
--- 109,113 ----
       (:string 254)))
    
+ #-(or win32 mswindows)
  (uffi:def-struct mysql-field
      (name (* :char))
***************
*** 118,121 ****
--- 119,136 ----
    (flags :unsigned-int)
    (decimals :unsigned-int))
+ 
+ ;; structure changed in mysql 4.0.12, win32
+ #+(or win32 mswindows)
+ (uffi:def-struct mysql-field
+     (name (* :char))
+   (table (* :char))
+   (org_table (* :char))
+   (db (* :char))
+   (def (* :char))
+   (length :unsigned-int)
+   (max-length :unsigned-int)
+   (flags :unsigned-int)
+   (decimals :unsigned-int)
+   (type mysql-field-types))
  
  ;;; MYSQL-ROWS