;;;; Programmer: Kevin M. Rosenberg\r
;;;; Date Started: Feb 2002\r
;;;;\r
-;;;; $Id: compress.lisp,v 1.9 2003/05/02 02:36:22 kevin Exp $\r
+;;;; $Id: compress.lisp,v 1.10 2003/05/02 02:40:52 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-toplevel :load-toplevel :execute)\r
(unless (uffi:load-foreign-library\r
#-(or macosx darwin)\r
(uffi:find-foreign-library\r
`(,(pathname-directory *load-pathname*)))\r
:module "zlib" \r
:supporting-libraries '("c"))\r
- (warn "Unable to load zlib"))\r
+ (warn "Unable to load zlib")))\r
\r
(uffi:def-function ("compress" c-compress)\r
((dest (* :unsigned-char))\r