uffi/tests compress.lisp,1.10,1.11 uffi-c-test-lib.lisp,1.1,1.2

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

Modified Files:
	compress.lisp uffi-c-test-lib.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.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** compress.lisp	2 May 2003 02:40:52 -0000	1.10
--- compress.lisp	2 May 2003 02:50:12 -0000	1.11
***************
*** 3,9 ****
  ;;;; FILE IDENTIFICATION
  ;;;;
! ;;;; Name:          compress.cl
  ;;;; Purpose:       UFFI Example file for zlib compression
! ;;;; Programmer:    Kevin M. Rosenberg
  ;;;; Date Started:  Feb 2002
  ;;;;
--- 3,9 ----
  ;;;; FILE IDENTIFICATION
  ;;;;
! ;;;; Name:          compress.lisp
  ;;;; Purpose:       UFFI Example file for zlib compression
! ;;;; Author:        Kevin M. Rosenberg
  ;;;; Date Started:  Feb 2002
  ;;;;
***************
*** 19,36 ****
  (in-package :uffi-tests)
  
- (eval-when (:compile-toplevel :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)
      ((dest (* :unsigned-char))
--- 19,22 ----

Index: uffi-c-test-lib.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/uffi-c-test-lib.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** uffi-c-test-lib.lisp	29 Apr 2003 14:08:02 -0000	1.1
--- uffi-c-test-lib.lisp	2 May 2003 02:50:12 -0000	1.2
***************
*** 19,28 ****
  (in-package :uffi-tests)
  
- (unless (uffi:load-foreign-library 
- 	 (uffi:find-foreign-library "uffi-c-test-lib" 
- 				    (list *load-truename*
- 					  "/usr/lib/"))
- 	 :supporting-libraries '("c"))
-   (warn "Unable to load uffi-c-test-lib library"))
  
  (uffi:def-function ("cs_to_upper" cs-to-upper)
--- 19,22 ----