- ((gf specializable-generic-function) name)
- (cond
- ((typep name 'sb-mop:specializer) name)
- ((symbolp name) (find-class name))
- ((consp name)
- (case (car name)
- (eql (sb-mop:intern-eql-specializer (cadr name)))
- (t (make-extended-specializer name))))
- (t (error "unexpected specializer name"))))
+ ((gf specializable-generic-function) (specializer-name t))
+ (if (typep specializer-name '(cons extended-specializer-name))
+ (make-extended-specializer specializer-name)
+ (call-next-method)))