X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fforeign-loader.lisp;h=eea47945833bdec2517ce43ab170e69c089789bb;hb=cf57d11caa2750f8a1777865f235089ac2a11cfb;hp=9351fb76b7571e16346c0a43a512b13b5a9647ab;hpb=87ee0e3f7d4e5c779b381ee8aff3e036fb2e7333;p=uffi.git diff --git a/tests/foreign-loader.lisp b/tests/foreign-loader.lisp index 9351fb7..eea4794 100644 --- a/tests/foreign-loader.lisp +++ b/tests/foreign-loader.lisp @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: foreign-loader.lisp,v 1.2 2003/05/05 14:56:46 kevin Exp $ +;;;; $Id: foreign-loader.lisp,v 1.3 2003/06/26 18:02:08 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -37,8 +37,9 @@ (unless (uffi:load-foreign-library (uffi:find-foreign-library "uffi-c-test-lib" - (list *load-truename* - "/usr/lib/uffi/")) + (list + (pathname-directory *load-truename*) + "/usr/lib/uffi/")) :supporting-libraries '("c")) (warn "Unable to load uffi-c-test-lib library"))