;;;; Programmer: Kevin M. Rosenberg\r
;;;; Date Started: Feb 2002\r
;;;;\r
-;;;; $Id: compress.lisp,v 1.8 2003/05/02 02:30:07 kevin Exp $\r
+;;;; $Id: compress.lisp,v 1.9 2003/05/02 02:36:22 kevin Exp $\r
;;;;\r
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg\r
;;;;\r
\r
(in-package :uffi-tests)\r
\r
-(eval-when (:compile-tolevel :load-toplevel :execute)\r
- (unless (uffi:load-foreign-library\r
- #-(or macosx darwin)\r
- (uffi:find-foreign-library\r
- "libz"\r
- '("/usr/local/lib/" "/usr/lib/" "/zlib/")\r
- :types '("so" "a"))\r
- #+(or macosx darwin)\r
- (uffi:find-foreign-library "z"\r
- `(,(pathname-directory *load-pathname*)))\r
- :module "zlib" \r
- :supporting-libraries '("c"))\r
- (warn "Unable to load zlib")))\r
+(unless (uffi:load-foreign-library\r
+ #-(or macosx darwin)\r
+ (uffi:find-foreign-library\r
+ "libz"\r
+ '("/usr/local/lib/" "/usr/lib/" "/zlib/")\r
+ :types '("so" "a"))\r
+ #+(or macosx darwin)\r
+ (uffi:find-foreign-library "z"\r
+ `(,(pathname-directory *load-pathname*)))\r
+ :module "zlib" \r
+ :supporting-libraries '("c"))\r
+ (warn "Unable to load zlib"))\r
\r
(uffi:def-function ("compress" c-compress)\r
((dest (* :unsigned-char))\r