Index: /trunk/source/lib/macros.lisp
===================================================================
--- /trunk/source/lib/macros.lisp	(revision 14890)
+++ /trunk/source/lib/macros.lisp	(revision 14891)
@@ -931,8 +931,5 @@
         (warn "Duplicate keyform ~s in ~s statement." atom-or-list statement-type)
         (setq used-keys (nconc used-keys (list (cons atom-or-list t)))))
-      `((,(if (typep atom-or-list '(and number (not fixnum)))
-              'eql
-              'eq)
-         ,symbol ',atom-or-list)))
+      `((eql ,symbol ',atom-or-list)))
     (nconc (case-key-testers symbol used-keys (car atom-or-list) statement-type t)
            (when (cdr atom-or-list)