r2897: *** empty log message ***

[clsql.git] / uffi / clsql-uffi-loader.cl

diff --git a/uffi/clsql-uffi-loader.cl b/uffi/clsql-uffi-loader.cl
index e131bd1d605818dd736024f08a1eb43e4d084d5d..e13bd68b1e0a376bd5fbe463a21099cdfe5fa32e 100644 (file)
--- a/uffi/clsql-uffi-loader.cl
+++ b/uffi/clsql-uffi-loader.cl
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: clsql-uffi-loader.cl,v 1.2 2002/09/26 18:18:39 kevin Exp $
+;;;; $Id: clsql-uffi-loader.cl,v 1.3 2002/09/30 05:32:35 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -22,10 +22,7 @@
 (defvar *clsql-uffi-library-filename* 
   (uffi:find-foreign-library
    "clsql-uffi"
-   `(,(directory-namestring
-       (translate-logical-pathname 
-       "cl-library:clsql-uffi;"))
-     "/usr/lib/clsql/"
+   `("/usr/lib/clsql/"
      "/opt/lisp/clsql/uffi/"
      "/home/kevin/debian/src/clsql/uffi/")
    :drive-letters '("C" "D" "E" "F" "G")))