(defmethod sb-pcl:unparse-specializer-using-class
((gf cons-generic-function) (specializer cons-specializer))
`(cons ,(%car specializer)))
(defmethod sb-pcl:unparse-specializer-using-class
((gf cons-generic-function) (specializer cons-specializer))
`(cons ,(%car specializer)))