X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=uffi%2Fclsql-uffi-loader.cl;h=e13bd68b1e0a376bd5fbe463a21099cdfe5fa32e;hb=fb3fa36a2446cccd10aaa2a7cfb221d86ea76f74;hp=e131bd1d605818dd736024f08a1eb43e4d084d5d;hpb=640853df9917329179ee5a6c3067eb27da586523;p=clsql.git

diff --git a/uffi/clsql-uffi-loader.cl b/uffi/clsql-uffi-loader.cl
index e131bd1..e13bd68 100644
--- 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")))