From 2733dc1598c592d6b1c411b81b67033279725e56 Mon Sep 17 00:00:00 2001 From: Marco Baringer Date: Thu, 29 Nov 2012 11:55:16 +0100 Subject: [PATCH] Explicityl make the *suites* hash table an eql table --- src/suite.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/suite.lisp b/src/suite.lisp index 9ac85f0..9aab2cc 100644 --- a/src/suite.lisp +++ b/src/suite.lisp @@ -16,7 +16,7 @@ ;;;; ** Creating Suits -(defvar *suites* (make-hash-table)) +(defvar *suites* (make-hash-table :test 'eql)) (defmacro def-suite (name &key description (in nil in-p) (fixture nil fixture-p)) "Define a new test-suite named NAME. -- 1.7.10.4