r4704: Auto commit for Debian build

[uffi.git] / tests / compress.lisp

diff --git a/tests/compress.lisp b/tests/compress.lisp
index fcff615d1bfc79802d7a19383b9190bd19e8871f..acc6f0e2bc8ffc18859863423cbd0971c0d02c6e 100644 (file)
--- a/tests/compress.lisp
+++ b/tests/compress.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg\r
 ;;;; Date Started:  Feb 2002\r
 ;;;;\r
-;;;; $Id: compress.lisp,v 1.6 2003/04/29 13:16:14 kevin Exp $\r
+;;;; $Id: compress.lisp,v 1.7 2003/04/29 14:13:55 kevin Exp $\r
 ;;;;\r
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg\r
 ;;;;\r
@@ -100,7 +100,9 @@
 \r
 (defun compress-uncompress (str)\r
   (multiple-value-bind (compressed len) (compress str)\r
+    (declare (ignore len))\r
     (multiple-value-bind (uncompressed len2) (uncompress compressed)\r
+      (declare (ignore len2))\r
       uncompressed)))\r
 \r
 \r