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)