+(defmethod specializable:generalizer-of-using-class ((generic-function pattern-generic-function) args)
+ ;; TODO: this is a hack -- the main specializer protocol calls the
+ ;; singular generalizer-of-using-class when there's only one
+ ;; specialized arg, to save on wasted effort. We can just about
+ ;; support it here, but it's very brittle.
+ (assert (specializable::first-arg-only-special-case generic-function))
+ (car (specializable:generalizers-of-using-class generic-function (list args))))
+