anchor.diff:  				    *mysql-library-candidate-drive-letters*)))
       (unless (probe-file mysql-path)
         (error "Can't find mysql client library to load"))
  -    (if	(and
  -	 (uffi:load-foreign-library *libz-library-path*) 
  -	 (uffi:load-foreign-library mysql-path
  -				    :module "mysql" 
  -				    :supporting-libraries 
  -				    *mysql-supporting-libraries*)
  -	 (uffi:load-foreign-library *clsql-mysql-library-path* 
  -				    :module "clsql-mysql" 
  -				    :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*))))
  +    (uffi:load-foreign-library *libz-library-path*) 
  +    (uffi:load-foreign-library mysql-path
  +			       :module "mysql" 
  +			       :supporting-libraries 
  +			       *mysql-supporting-libraries*)
  +    (uffi:load-foreign-library *clsql-mysql-library-path* 
  +			       :module "clsql-mysql" 
  +			       :supporting-libraries 
  +			       (append *mysql-supporting-libraries*)))
  +  (setq *mysql-library-loaded* t))
   
   
   (clsql-base-sys:database-type-load-foreign :mysql)
  
positive.code: 
  (defparameter *libz-library-path* 
    (uffi:find-foreign-library
     "libz"
     `(,(make-pathname :directory (pathname-directory *load-truename*))
        "/usr/lib/"
        "/sw/lib/"
        "/usr/local/lib/"
        "/home/kevin/debian/src/clsql/db-mysql/")
     :drive-letters '("C")))
    
  (defvar *mysql-library-candidate-names*
  
negative.code: ;;;; Programmers:   Kevin M. Rosenberg
  ;;;; Date Started:  Feb 2002
  ;;;;
  ;;;; $Id: mysql-loader.lisp,v 1.10 2003/05/17 07:02:00 kevin Exp $
  ;;;;
  ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
  ;;;;
  