clsql/db-mysql mysql-api.lisp,1.4,1.5

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

Modified Files:
	mysql-api.lisp 
Log Message:


Index: mysql-api.lisp
===================================================================
RCS file: /pubcvs/clsql/db-mysql/mysql-api.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** mysql-api.lisp	24 Jun 2003 01:12:57 -0000	1.4
--- mysql-api.lisp	8 Jul 2003 20:15:13 -0000	1.5
***************
*** 106,111 ****
       (:var-string 253)
       (:string 254)))
!   
! #-(or win32 mswindows)
  (uffi:def-struct mysql-field
      (name (* :char))
--- 106,115 ----
       (:var-string 253)
       (:string 254)))
! 
! #-(or mysql-client-v3 mysql-client-v4)
! (eval-when (:compile-toplevel :load-toplevel :execute)
!   (pushnew :mysql-client-v3 cl:*features*))
! 
! #+mysql-client-v3
  (uffi:def-struct mysql-field
      (name (* :char))
***************
*** 118,123 ****
    (decimals :unsigned-int))
  
! ;; structure changed in mysql 4.0.12, win32
! #+(or win32 mswindows)
  (uffi:def-struct mysql-field
      (name (* :char))
--- 122,127 ----
    (decimals :unsigned-int))
  
! ;; structure changed in mysql 4 client
! #+mysql-client-v4
  (uffi:def-struct mysql-field
      (name (* :char))