X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=uffi%2Fclsql-uffi-loader.lisp;h=a8f7173a84ea4657004f40a9f4fec9f75426e7b8;hb=645d2ea7396466b8673e3421b55e45cd327f0195;hp=fc9f3d842b9c38ae727d0ec4a9a50c230aedc2cc;hpb=eb21ebac347671b183a2250bbb4f233e66bf86d6;p=clsql.git diff --git a/uffi/clsql-uffi-loader.lisp b/uffi/clsql-uffi-loader.lisp index fc9f3d8..a8f7173 100644 --- a/uffi/clsql-uffi-loader.lisp +++ b/uffi/clsql-uffi-loader.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: clsql-uffi-loader.lisp,v 1.5 2003/07/08 20:15:13 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -20,7 +20,7 @@ (defvar *clsql-uffi-library-filename* (uffi:find-foreign-library - "clsql-uffi" + "uffi" `(,(make-pathname :directory (pathname-directory *load-truename*)) "/usr/lib/clsql/" "/opt/lisp/clsql/uffi/" @@ -37,7 +37,7 @@ set to the right path before compiling or loading the system.") (defun load-uffi-foreign-library () (unless (probe-file *clsql-uffi-library-filename*) - (error "Unable to find clsql-uffi.so")) + (error "Unable to find uffi.so")) (if (uffi:load-foreign-library *clsql-uffi-library-filename* :module "clsql-uffi" @@ -48,5 +48,3 @@ set to the right path before compiling or loading the system.") (load-uffi-foreign-library) - -