From 645090b557fb0a4f5e0ae9e2e250fb13ee20780b Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Mon, 3 Dec 2012 00:42:31 +0100
Subject: [PATCH] REMOVE-METHOD was inlined, instead of being invoked through
 its generic function.

---
 src/clos/fixup.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/clos/fixup.lsp b/src/clos/fixup.lsp
index 0f3450871..39457ba92 100644
--- a/src/clos/fixup.lsp
+++ b/src/clos/fixup.lsp
@@ -128,7 +128,8 @@
 	     t))))
 
 (defun add-method (gf method)
-  (declare (notinline method-qualifiers)) ; during boot it's a structure accessor
+  ;; during boot it's a structure accessor
+  (declare (notinline method-qualifiers remove-method))
   ;;
   ;; 1) The method must not be already installed in another generic function.
   ;;