r5493: *** empty log message ***

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

diff --git a/tests/foreign-loader.lisp b/tests/foreign-loader.lisp
index 9351fb76b7571e16346c0a43a512b13b5a9647ab..569b0989e15208275496702b097081023c545282 100644 (file)
--- a/tests/foreign-loader.lisp
+++ b/tests/foreign-loader.lisp
@@ -7,19 +7,16 @@
 ;;;; 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.4 2003/08/13 18:53:42 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
-;;;; UFFI users are granted the rights to distribute and use this software
-;;;; as governed by the terms of the Lisp Lesser GNU Public License
-;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
 ;;; For CMUCL, it's necessary to load foreign files separate from their
 ;;; usage
 
-(in-package :uffi-tests)
+(in-package #:uffi-tests)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
 (unless (uffi:load-foreign-library
@@ -37,8 +34,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"))