r5209: Auto commit for Debian build

[uffi.git] / tests / foreign-loader.lisp

diff --git a/tests/foreign-loader.lisp b/tests/foreign-loader.lisp
index 9351fb76b7571e16346c0a43a512b13b5a9647ab..eea47945833bdec2517ce43ab170e69c089789bb 100644 (file)
--- 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"))