X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=clsql-mysql.system;fp=clsql-mysql.system;h=bdf5aa68fe10a4e8bc166aaf19fff6cbb0a099da;hb=4f48d771ad17d7e753382fe8f551e7a9ca9e7b53;hp=2a3f9f3b2b7f7e824a6e7b5283134cbffa89a4e5;hpb=0ba06f88c7b2e70c3fe8007b9aa9d7bbfef9afcd;p=clsql.git

diff --git a/clsql-mysql.system b/clsql-mysql.system
index 2a3f9f3..bdf5aa6 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.8 2002/05/13 21:50:52 kevin Exp $
+;;;; $Id: clsql-mysql.system,v 1.9 2002/05/13 22:05:20 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -18,7 +18,7 @@
 
 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
 
-(in-package :clsql-sys)
+(in-package :cl-user)
 
 ;;; System definition
 
@@ -31,12 +31,8 @@
 		 (:file "mysql-api" :depends-on ("mysql-loader"))
 		 (:file "mysql-sql" :depends-on ("mysql-api"))
 		 (:file "mysql-usql" :depends-on ("mysql-sql")))
-    :depends-on (:uffi :clsql-base :clsql-uffi)
-    :finally-do
-    (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*)))
+    :depends-on (:uffi :clsql-base :clsql-uffi))
+