uffi/tests foreign-loader.lisp,1.5,1.6

Update of /pubcvs/uffi/tests
In directory boa.b9.com:/tmp/cvs-serv19806

Modified Files:
	foreign-loader.lisp 
Log Message:


Index: foreign-loader.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/foreign-loader.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** foreign-loader.lisp	14 Aug 2003 21:40:13 -0000	1.5
--- foreign-loader.lisp	26 Aug 2003 17:27:01 -0000	1.6
***************
*** 17,23 ****
  ;;; usage
  
! (in-package #:uffi-tests)
  
- (eval-when (:compile-toplevel :load-toplevel :execute)
  (unless (uffi:load-foreign-library
  	 #-(or macosx darwin)
--- 17,22 ----
  ;;; usage
  
! (in-package uffi-tests)
  
  (unless (uffi:load-foreign-library
  	 #-(or macosx darwin)
***************
*** 27,35 ****
  	  :types '("so" "a"))
  	 #+(or macosx darwin)
! 	 (uffi:find-foreign-library "z"
! 				    `(,(pathname-directory *load-pathname*)))
  	 :module "zlib" 
  	 :supporting-libraries '("c"))
!   (warn "Unable to load zlib")))
    
  (unless (uffi:load-foreign-library 
--- 26,34 ----
  	  :types '("so" "a"))
  	 #+(or macosx darwin)
! 	 (uffi:find-foreign-library
! 	  "z" (list (pathname-directory *load-pathname*)))
  	 :module "zlib" 
  	 :supporting-libraries '("c"))
!   (warn "Unable to load zlib"))
    
  (unless (uffi:load-foreign-library