X-Git-Url: http://christophe.rhodes.io/gitweb/?p=specializable.git;a=blobdiff_plain;f=cons-specializer.lisp;h=4540b5f195fbaa41b4d6fb8374739313c638ec20;hp=3922a6abd59c09c4f6daf1321fd3f129bd8a621b;hb=4f8b7a9cbde446b6576f81178534abe8b47659a1;hpb=de2944d5e7a9c5f1b7ee3c32c12cbda71832f6fe

diff --git a/cons-specializer.lisp b/cons-specializer.lisp
index 3922a6a..4540b5f 100644
--- a/cons-specializer.lisp
+++ b/cons-specializer.lisp
@@ -9,7 +9,6 @@
 
 (define-extended-specializer cons (gf car)
   (make-instance 'cons-specializer :car car))
-
 (defmethod sb-pcl:unparse-specializer-using-class
     ((gf cons-generic-function) (specializer cons-specializer))
   `(cons ,(%car specializer)))
@@ -17,6 +16,9 @@
     ((s1 cons-specializer) (s2 cons-specializer))
   (eql (%car s1) (%car s2)))
 
+(defmethod generalizer-equal-hash-key ((gf cons-generic-function) (g symbol))
+  g)
+
 (defmethod generalizer-of-using-class ((gf cons-generic-function) arg)
   (typecase arg
     ((cons symbol) (car arg))