From mvilleneuve at common-lisp.net  Wed Sep 12 07:13:37 2007
From: mvilleneuve at common-lisp.net (mvilleneuve)
Date: Wed, 12 Sep 2007 03:13:37 -0400 (EDT)
Subject: [zlib-cvs] CVS zlib/src
Message-ID: <20070912071337.61360601B7@common-lisp.net>

Update of /project/zlib/cvsroot/zlib/src
In directory clnet:/tmp/cvs-serv6262/src

Modified Files:
	zlib.lisp 
Log Message:
Fix what looks like a typo

--- /project/zlib/cvsroot/zlib/src/zlib.lisp	2007/01/04 09:03:37	1.2
+++ /project/zlib/cvsroot/zlib/src/zlib.lisp	2007/09/12 07:13:37	1.3
@@ -767,7 +767,7 @@
   (let ((values (gethash hash-value hash-table)))
     (if (>= (length values) +deflate-max-hash-table-contents-length+)
 	(progn
-	  (setq valuef (subseq values
+	  (setq values (subseq values
                                0
                                (1- +deflate-max-hash-table-contents-length+)))
 	  (push index values)