clsql/db-mysql mysql-api.lisp,1.5,1.6 mysql-sql.lisp,1.7,1.8

Update of /pubcvs/clsql/db-mysql
In directory boa.b9.com:/tmp/cvs-serv3800/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.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** mysql-api.lisp	8 Jul 2003 20:15:13 -0000	1.5
--- mysql-api.lisp	21 Jul 2003 01:45:45 -0000	1.6
***************
*** 3,7 ****
  ;;;; FILE IDENTIFICATION
  ;;;;
! ;;;; Name:          mysql.cl
  ;;;; Purpose:       Low-level MySQL interface using UFFI
  ;;;; Programmers:   Kevin M. Rosenberg based on 
--- 3,7 ----
  ;;;; FILE IDENTIFICATION
  ;;;;
! ;;;; Name:          mysql-api.lisp
  ;;;; Purpose:       Low-level MySQL interface using UFFI
  ;;;; Programmers:   Kevin M. Rosenberg based on 

Index: mysql-sql.lisp
===================================================================
RCS file: /pubcvs/clsql/db-mysql/mysql-sql.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** mysql-sql.lisp	24 Jun 2003 01:12:57 -0000	1.7
--- mysql-sql.lisp	21 Jul 2003 01:45:45 -0000	1.8
***************
*** 3,7 ****
  ;;;; FILE IDENTIFICATION
  ;;;;
! ;;;; Name:          mysql-sql.cl
  ;;;; Purpose:       High-level MySQL interface using UFFI
  ;;;; Programmers:   Kevin M. Rosenberg based on
--- 3,7 ----
  ;;;; FILE IDENTIFICATION
  ;;;;
! ;;;; Name:          mysql-sql.lisp
  ;;;; Purpose:       High-level MySQL interface using UFFI
  ;;;; Programmers:   Kevin M. Rosenberg based on
***************
*** 303,306 ****
  
  (when (clsql-base-sys:database-type-library-loaded :mysql)
!   (clsql-base-sys:initialize-database-type :database-type :mysql)
!   (pushnew :mysql cl:*features*))
--- 303,305 ----
  
  (when (clsql-base-sys:database-type-library-loaded :mysql)
!   (clsql-base-sys:initialize-database-type :database-type :mysql))