From ff7d1c8b3cc34df5dae93202c6830b4449cb52fb Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@sift.net> Date: Wed, 3 May 2023 09:52:17 -0500 Subject: [PATCH] Fix issue 30 - testing value of `hash-table-size`. As far as I can tell from the spec, the meaning of `hash-table-size` is not dictated, and implementations are free to return just about anything; it's just a way to provide useful information (hints) when creating a new hash-table. I disabled this test on Allegro originally, but Attila Lendvai proposes we simply remove it altogether, as this commit does. --- alexandria-1/tests.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/alexandria-1/tests.lisp b/alexandria-1/tests.lisp index 71e8248..9274951 100644 --- a/alexandria-1/tests.lisp +++ b/alexandria-1/tests.lisp @@ -283,7 +283,7 @@ (eql-copy (copy-hash-table orig :test 'eql)) (equal-copy (copy-hash-table orig :test 'equal)) (equalp-copy (copy-hash-table orig :test 'equalp))) - (list #-allegro (eql (hash-table-size eq-copy) (hash-table-size orig)) + (list (eql (hash-table-rehash-size eq-copy) (hash-table-rehash-size orig)) (hash-table-count eql-copy) @@ -293,7 +293,7 @@ (gethash (copy-seq foo) equal-copy) (gethash "FOO" equal-copy) (gethash "FOO" equalp-copy)))) - (#-allegro t t 2 t nil t t nil t)) + (t 2 t nil t t nil t)) (deftest copy-hash-table.2 (let ((ht (make-hash-table)) -- GitLab