-(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
- :components ((:file "mysql-package")\r
- (:file "mysql-loader" :depends-on ("mysql-package"))\r
- (:file "mysql-api" :depends-on ("mysql-loader"))\r
- (:file "mysql-sql" :depends-on ("mysql-api"))\r
- (:file "mysql-usql" :depends-on ("mysql-sql")))\r
- :depends-on (:uffi :clsql-base :clsql-uffi)\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
+(defsystem :clsql-mysql\r
+ :source-pathname #.(format nil "~A:clsql-mysql;"\r
+ #+common-lisp-controller "cl-library"\r
+ #-common-lisp-controller "clsql")\r
+ :source-extension "cl"\r
+ :components ((:file "mysql-package")\r
+ (:file "mysql-loader" :depends-on ("mysql-package"))\r
+ (:file "mysql-api" :depends-on ("mysql-loader"))\r
+ (:file "mysql-sql" :depends-on ("mysql-api"))\r
+ (:file "mysql-usql" :depends-on ("mysql-sql")))\r
+ :depends-on (:uffi :clsql-base :clsql-uffi))\r
+\r