clsql/db-mysql mysql-api.lisp,1.3,1.4 mysql-sql.lisp,1.6,1.7

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

Modified Files:
	mysql-api.lisp mysql-sql.lisp 
Log Message:


Index: mysql-api.lisp
===================================================================
RCS file: /pubcvs/clsql/db-mysql/mysql-api.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** mysql-api.lisp	8 Jun 2003 12:48:55 -0000	1.3
--- mysql-api.lisp	24 Jun 2003 01:12:57 -0000	1.4
***************
*** 19,25 ****
  ;;;; *************************************************************************
  
- (eval-when (:compile-toplevel)
-   (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))))
- 
  (in-package #:mysql)
  
--- 19,22 ----

Index: mysql-sql.lisp
===================================================================
RCS file: /pubcvs/clsql/db-mysql/mysql-sql.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** mysql-sql.lisp	23 Jun 2003 19:25:30 -0000	1.6
--- mysql-sql.lisp	24 Jun 2003 01:12:57 -0000	1.7
***************
*** 44,47 ****
--- 44,48 ----
  
  (defun make-type-list-for-auto (num-fields res-ptr)
+   (declare (fixnum num-fields))
    (let ((new-types '())
  	#+ignore (field-vec (mysql-fetch-fields res-ptr)))
***************
*** 70,83 ****
  
  (defun canonicalize-types (types num-fields res-ptr)
!   (if (null types)
!       nil
!       (let ((auto-list (make-type-list-for-auto num-fields res-ptr)))
! 	(cond
! 	  ((listp types)
! 	   (canonicalize-type-list types auto-list))
! 	  ((eq types :auto)
! 	   auto-list)
! 	  (t
! 	   nil)))))
  
  (defmethod database-initialize-database-type ((database-type (eql :mysql)))
--- 71,83 ----
  
  (defun canonicalize-types (types num-fields res-ptr)
!   (when types
!     (let ((auto-list (make-type-list-for-auto num-fields res-ptr)))
!       (cond
! 	((listp types)
! 	 (canonicalize-type-list types auto-list))
! 	((eq types :auto)
! 	 auto-list)
! 	(t
! 	 nil)))))
  
  (defmethod database-initialize-database-type ((database-type (eql :mysql)))