= vs equalp =)

; SLIME 2013-09-30
(defun == (x y) (= x y))
 
(defun sxhash= (x) (sxhash x))
 
(sb-ext:define-hash-table-test == sxhash=)
 
(defparameter *hash-equalp*
            (make-hash-table :size 10000000
                             :test #'equalp))
 
(defparameter *hash-=*
            (make-hash-table :size 10000000
                             :test #'==))
 
(for key 0 10000000 () 
            (setf (gethash 
                   (coerce key 'single-float)
                   *hash-equalp*)
                  key))
 
(for key 0 10000000 () 
            (setf (gethash 
                   (coerce key 'single-float)
                   *hash-=*)
                  key))

*hash-=*
#<HASH-TABLE :TEST == :COUNT 10000001 {1002B58083}>
 
*hash-equalp*
#<HASH-TABLE :TEST EQUALP :COUNT 10000001 {1002B50083}>

(time (loop repeat 10000000
                   with r = ()
                   for x = 0 then (random 10000000)
                   for i = (gethash x *hash-=*)
                   do (push i r)
                   finally (return (length r))))
Evaluation took:
  3.480 seconds of real time
  3.310000 seconds of total run time (3.210000 user, 0.100000 system)
  95.11% CPU
  8,332,096,220 processor cycles
  160,038,896 bytes consed
  
10000000
(time (loop repeat 10000000
                   with r = ()
                   for x = 0 then (random 10000000)
                   for i = (gethash x *hash-equalp*)
                   do (push i r)
                   finally (return (length r))))
Evaluation took:
  5.995 seconds of real time
  5.980000 seconds of total run time (5.980000 user, 0.000000 system)
  99.75% CPU
  14,349,740,555 processor cycles
  160,040,128 bytes consed
  
10000000

(type-of 1)
BIT
 
(type-of 1.0)
SINGLE-FLOAT
 
(type-of 2)
(INTEGER 0 4611686018427387903)
 
(type-of 1.0d0)
DOUBLE-FLOAT