r2174: *** empty log message ***

[clsql.git] / clsql-mysql.system

diff --git a/clsql-mysql.system b/clsql-mysql.system
index 44fe0ef558ae673f8b5c985a445155a23440c961..dacf165ec868c841b39e38921864324f4dfb1f33 100644 (file)
--- a/clsql-mysql.system
+++ b/clsql-mysql.system
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg\r
 ;;;; Date Started:  Feb 2002\r
 ;;;;\r
-;;;; $Id: clsql-mysql.system,v 1.7 2002/05/13 20:33:56 kevin Exp $\r
+;;;; $Id: clsql-mysql.system,v 1.13 2002/05/14 16:25:29 kevin Exp $\r
 ;;;;\r
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
 ;;;;\r
@@ -18,11 +18,11 @@
 \r
 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))\r
 \r
-(in-package :make)\r
+(in-package :cl-user)\r
 \r
 ;;; System definition\r
 \r
-(defsystem :clsql-mysql\r
+(mk:defsystem :clsql-mysql\r
     :source-pathname "CL-LIBRARY:clsql;interfaces;mysql;"\r
     :source-extension "cl"\r
     :binary-pathname "CL-LIBRARY:clsql;interfaces;mysql;bin;"\r
@@ -33,13 +33,6 @@
                 (:file "mysql-usql" :depends-on ("mysql-sql")))\r
     :depends-on (:uffi :clsql-base :clsql-uffi))\r
 \r
-#|\r
-    :finally-do\r
-    (when (clsql-sys:database-type-library-loaded :mysql)\r
-      (clsql-sys:initialize-database-type :database-type :mysql)\r
-      (setq clsql:*default-database-type* :mysql)\r
-      (pushnew :mysql cl:*features*)))\r
-|#\r
 \r
 \r
 \r