uffi/tests compress.lisp,1.8,1.9

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

Modified Files:
	compress.lisp 
Log Message:
Automatic commit for debian_version_1_2_13-1

Index: compress.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/compress.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** compress.lisp	2 May 2003 02:30:07 -0000	1.8
--- compress.lisp	2 May 2003 02:36:22 -0000	1.9
***************
*** 19,35 ****
  (in-package :uffi-tests)
  
! (eval-when (:compile-tolevel :load-toplevel :execute)
!   (unless (uffi:load-foreign-library
! 	   #-(or macosx darwin)
! 	   (uffi:find-foreign-library
! 	    "libz"
! 	    '("/usr/local/lib/" "/usr/lib/" "/zlib/")
! 	    :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")))
    
  (uffi:def-function ("compress" c-compress)
--- 19,34 ----
  (in-package :uffi-tests)
  
! (unless (uffi:load-foreign-library
! 	 #-(or macosx darwin)
! 	 (uffi:find-foreign-library
! 	  "libz"
! 	  '("/usr/local/lib/" "/usr/lib/" "/zlib/")
! 	  :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"))
    
  (uffi:def-function ("compress" c-compress)