[zlib-cvs] CVS zlib/src

[mvilleneuve]

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)