;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: mysql-loader.cl,v 1.4 2002/04/01 05:27:55 kevin Exp $
+;;;; $Id: mysql-loader.cl,v 1.9 2002/05/14 16:10:55 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;; -- support Allegro CL and Lispworks
(defvar *clsql-mysql-library-filename*
- (translate-logical-pathname
- #+(or linux unix) "CLSQL:interfaces;mysql;clsql-mysql.so"
- #+(or mswindows win32) "CLSQL:interfaces;mysql;clsql-mysql.dll"
- ))
+ (uffi:find-foreign-library
+ "clsql-mysql"
+ `(,(translate-logical-pathname
+ "CL-LIBRARY:clsql;interfaces;clsql-uffi;")
+ "/usr/share/common-lisp/source/clsql/interfaces/clsql-uffi/")))
(defvar *mysql-library-filename*
(cond
*mysql-library-candidate-directories*
:drive-letters
*mysql-library-candidate-drive-letters*)))
+ ;; zlib required to load mysql on CMUCL Solaris
+ (uffi:load-foreign-library
+ (uffi:find-foreign-library '("libz" "zlib")
+ '("/usr/lib/" "/usr/local/" "/lib/")))
(when
(and
(uffi:load-foreign-library mysql-path
(clsql-sys:database-type-load-foreign :mysql)
-
-
+(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*))