- (let ((spec (nth arg (sb-mop:method-specializers method))))
- (and (typep spec 'sb-mop:eql-specializer)
- (eql (sb-mop:eql-specializer-object spec) what))))
- (sb-mop:generic-function-methods func)))
+ (let ((spec (nth arg (method-specializers method))))
+ (and (typep spec 'eql-specializer)
+ (eql (eql-specializer-object spec) what))))
+ (generic-function-methods func)))