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