...which I think in your version, not having to use define-method*
feels more elegant/GOOPSy to me, as it's all overloads/generics,
but I have no strong opionion on this.
There's actually a secret to what I have committed:
define-method* *is* the define-method you requested.
So you can do, e.g.:
(use-modules ((oop goops)
#:hide (define-method)
#:renamer (lambda (s) (if (eq? s 'define-method*) 'define-method s))))
or
(define-module (foo)
#:use-module ((oop goops)
#:hide (define-method)
#:renamer (lambda (s) (if (eq? s 'define-method*) 'define-method s))))
and then
(define-method (bar #:key x) x)
For ordinary formals, like
(define-method (baz x) ...)
the resulting behavior and efficiency will be very close to identical. The compiled code and type dispatch of the method will be identical to that produced by the original define-method macro.
Best regards,
Mikael