From 822a18386fea476cce2e1d24f08634cd6355df74 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 28 Apr 2012 10:42:42 +0200 Subject: [PATCH] FIND-METHOD-COMBINATION is now generic --- src/clos/fixup.lsp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/clos/fixup.lsp b/src/clos/fixup.lsp index 42a751b70..97fda9d7d 100644 --- a/src/clos/fixup.lsp +++ b/src/clos/fixup.lsp @@ -349,3 +349,6 @@ their lambda lists ~A and ~A are not congruent." '((gf standard-generic-function))) (function-to-method 'generic-function-method-class '((gf standard-generic-function))) + +(function-to-method 'find-method-combination + '((gf standard-generic-function) method-combination-type-name method-combination-options))