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)
