compute-applicable-methods-using-classes
is not implemented.
compute-discriminating-function
is implemented and returns the discriminator but:
compute-applicable-methods-using-classes
since LispWorks does not have that function.
compute-applicable-methods
.
Moreover
add-method
does not call
compute-discriminating-function
because this would be inefficient when doing multiple calls to
add-method
. Instead,
compute-discriminating-function
is called when the generic function is called.