r4997: win32 fixes

[clsql.git] / db-mysql / mysql-loader.lisp

diff --git a/db-mysql/mysql-loader.lisp b/db-mysql/mysql-loader.lisp
index f62296d9d14de106814352feeae135101b5c5f39..be2455bdbf363658a0d34b39f7b59cd910aeab08 100644 (file)
--- a/db-mysql/mysql-loader.lisp
+++ b/db-mysql/mysql-loader.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: mysql-loader.lisp,v 1.7 2003/03/27 01:13:33 kevin Exp $
+;;;; $Id: mysql-loader.lisp,v 1.9 2003/05/17 06:11:16 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -32,7 +32,7 @@
      "/usr/lib/clsql/"
      "/sw/lib/clsql/"
      "/home/kevin/debian/src/clsql/db-mysql/")
-   :drive-letters '("C" "D" "E")))
+   :drive-letters '("C")))
 
 (defparameter *libz-library-path* 
   (uffi:find-foreign-library
@@ -42,7 +42,7 @@
       "/sw/lib/"
       "/usr/local/lib/"
       "/home/kevin/debian/src/clsql/db-mysql/")
-   :drive-letters '("C" "D" "E")))
+   :drive-letters '("C")))
   
 (defvar *mysql-library-candidate-names*
     '("libmysqlclient" "libmysql"))
@@ -83,6 +83,7 @@ set to the right path before compiling or loading the system.")
                                    :supporting-libraries 
                                    (append *mysql-supporting-libraries*)))
        (setq *mysql-library-loaded* t)
+       #+ignore ;; return value not set
       (error "Unable to load MySQL client library ~A or CLSQL-MySQL library ~A"
            mysql-path *clsql-mysql-library-path*))))