(cond ((null methods)
(values
#'(lambda (&rest args)
- (apply #'no-applicable-method gf args))
+ (call-no-applicable-method gf args))
nil
(no-methods-dfun-info)))
((setq type (final-accessor-dfun-type gf))
(lambda (method-alist wrappers)
(declare (ignore method-alist wrappers))
(lambda (&rest args)
- (apply #'no-applicable-method gf args)))
+ (call-no-applicable-method gf args)))
(let* ((key (car methods))
(ht *effective-method-cache*)
(ht-value (with-locked-hash-table (ht)