Commit fc34cc10 authored by Luís Oliveira's avatar Luís Oliveira
Browse files

Small fix to COPY-HASH-TABLE

- New hash-table was being created with a bogus rehash-size.
- Added regression test in another patch.
parent 130b7da6
......@@ -12,7 +12,7 @@ copy is returned by default."
(setf key (or key 'identity))
(setf test (or test (hash-table-test table)))
(setf size (or size (hash-table-size table)))
(setf rehash-size (or rehash-size (hash-table-size table)))
(setf rehash-size (or rehash-size (hash-table-rehash-size table)))
(setf rehash-threshold (or rehash-threshold (hash-table-rehash-threshold table)))
(let ((copy (make-hash-table :test test :size size
:rehash-size rehash-size
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment