From 57369303399f4029ab1876c85fa35cc57e76e387 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 7 Jan 2008 03:07:40 +0100 Subject: [PATCH] Fix literal hash tables test suite on CLISP. Signed-off-by: Stelian Ionescu --- tests/misc.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/tests/misc.lisp b/tests/misc.lisp index fef101f..606a779 100644 --- a/tests/misc.lisp +++ b/tests/misc.lisp @@ -37,7 +37,8 @@ (is-true (let ((ht (read-from-string "#h{}"))) (and (zerop (hash-table-count ht)) - (eq (hash-table-test ht) 'eql))))) + (eq (hash-table-test ht) #-clisp 'eql + #+clisp 'ext:fasthash-eql))))) (test literal-hash-tables.creation.empty-hash-table-test-eq (finishes @@ -48,7 +49,8 @@ (is-true (let ((ht (read-from-string "#h:eq{}"))) (and (zerop (hash-table-count ht)) - (eq (hash-table-test ht) 'eq))))) + (eq (hash-table-test ht) #-clisp 'eq + #+clisp 'ext:fasthash-eq))))) (test literal-hash-tables.creation.one-element-hash-table-default-test (finishes @@ -59,7 +61,8 @@ (is-true (let ((ht (read-from-string "#h{1 => 3}"))) (and (= 1 (hash-table-count ht)) - (eq (hash-table-test ht) 'eql) + (eq (hash-table-test ht) #-clisp 'eql + #+clisp 'ext:fasthash-eql) (= 3 (gethash 1 ht)))))) (test literal-hash-tables.creation.one-element-hash-table-test-eq @@ -71,7 +74,8 @@ (is-true (let ((ht (read-from-string "#h:eq{:a => :test}"))) (and (= 1 (hash-table-count ht)) - (eq (hash-table-test ht) 'eq) + (eq (hash-table-test ht) #-clisp 'eq + #+clisp 'ext:fasthash-eq) (eq :test (gethash :a ht)))))) (test literal-hash-tables.error.only-key -- 2.11.4.GIT