From cab8cbdaa2cb2322aa3e06a44e45049097bebd77 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 29 Nov 2009 22:49:14 +0100 Subject: [PATCH] Small change in define-complex-method-combination to fix an obscure bug (P. Costanza). --- src/clos/combin.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clos/combin.lsp b/src/clos/combin.lsp index 73ef60f9f..18e16f373 100644 --- a/src/clos/combin.lsp +++ b/src/clos/combin.lsp @@ -278,7 +278,7 @@ "Method qualifiers ~S are not allowed in the method~ combination ~S." .method-qualifiers. ,name))))) ,@group-after - (effective-method-function ,@body t)))) + (effective-method-function (progn ,@body) t)))) ))) (defmacro define-method-combination (name &body body)