X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=clsql-mysql.system;h=767257557e4bcb5eaaa3e31dab9b86825ac2b620;hb=c1a4d6ce4083a3e5db3872c3ed6b46d15a59698c;hp=4122b47e7c16f3620d6c83e477e7e24d96db152e;hpb=8213ff48f5362c3d4792444c929f50bd128bd044;p=clsql.git

diff --git a/clsql-mysql.system b/clsql-mysql.system
index 4122b47..7672575 100644
--- a/clsql-mysql.system
+++ b/clsql-mysql.system
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: clsql-mysql.system,v 1.1 2002/03/23 14:04:49 kevin Exp $
+;;;; $Id: clsql-mysql.system,v 1.3 2002/03/24 04:01:26 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -28,11 +28,11 @@
     :binary-pathname "CLSQL:interfaces;mysql;bin;"
     :components ((:file "mysql-package")
 		 (:file "mysql-loader" :depends-on ("mysql-package"))
-		 (:file "mysql-uffi" :depends-on ("mysql-loader"))
-		 (:file "mysql-sql" :depends-on ("mysql-uffi")))
+		 (:file "mysql-api" :depends-on ("mysql-loader"))
+		 (:file "mysql-sql" :depends-on ("mysql-api")))
     :depends-on (:uffi :clsql)
     :finally-do
-    (progn
+    (when (clsql-sys:database-type-library-loaded :mysql)
       (clsql-sys:initialize-database-type :database-type :mysql)
       (setq clsql:*default-database-type* :mysql)
       (pushnew :mysql cl:*features*)))