From 98bd4ac526a5e4c227209253aa7713dbc2d5c57f Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 2 Dec 2012 23:36:47 +0100 Subject: [PATCH] MAKE-METHOD-LAMBDA was invoked by pointer, not by symbol, making its redefinition as generic function completely irrelevant. --- src/clos/method.lsp | 1 + 1 file changed, 1 insertion(+) diff --git a/src/clos/method.lsp b/src/clos/method.lsp index 9d1cb3d27..3c8017778 100644 --- a/src/clos/method.lsp +++ b/src/clos/method.lsp @@ -42,6 +42,7 @@ (find-class 'standard-method))) (defmacro defmethod (&whole whole name &rest args &environment env) + (declare (notinline make-method-lambda)) (let* ((*print-length* 3) (*print-depth* 2) (qualifiers (loop while (and args (not (listp (first args))))