Commit 8217f1e9 authored by Matthieu Villeneuve's avatar Matthieu Villeneuve
Browse files

Fix what looks like a typo

parent 7891821b

zlib.lisp

+1 −1
Original line number Diff line number Diff line
@@ -767,7 +767,7 @@ push INDEX into HASH-TABLE" 
  (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)