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

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))