Explicityl make the *suites* hash table an eql table

diff --git a/src/suite.lisp b/src/suite.lisp
index 9ac85f0..9aab2cc 100644 (file)
--- 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.