From 55462dc1b7280bda9f8f120debf62bc4046a5ed3 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Mon, 17 Mar 2008 09:25:42 +0000
Subject: [PATCH] Missing optional variable

---
 src/clos/combin.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/clos/combin.lsp b/src/clos/combin.lsp
index 44dfa1a8d..fcbb24fff 100644
--- a/src/clos/combin.lsp
+++ b/src/clos/combin.lsp
@@ -47,7 +47,7 @@
 ;;;  5) Ordinary forms are turned into lambda forms, much like
 ;;;	what happens with the content of MAKE-METHOD.
 ;;;
-(defun effective-method-function (form)
+(defun effective-method-function (form &optional top-level)
   (cond ((functionp form)
 	 form)
 	((method-p form)
@@ -275,7 +275,7 @@
 			     "Method qualifiers ~S are not allowed in the method~
 			      combination ~S." .method-qualifiers. ,name)))))
 	      ,@group-after
-	      (effective-method-function ,@body))))
+	      (effective-method-function ,@body t))))
       )))
 
 (defmacro define-method-combination (name &body body)