From 7955ebda76fd6b63aa9dd3e299f793dc7f7d87f8 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 21 Apr 2012 23:53:46 +0200 Subject: [PATCH] Slight style change in add-method. --- src/clos/fixup.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/clos/fixup.lsp b/src/clos/fixup.lsp index a5b5118ce..8f649bc43 100644 --- a/src/clos/fixup.lsp +++ b/src/clos/fixup.lsp @@ -181,8 +181,8 @@ their lambda lists ~A and ~A are not congruent." (when (generic-function-methods gf) (let* ((method-qualifiers (method-qualifiers method)) (specializers (method-specializers method)) - found) - (when (setq found (find-method gf method-qualifiers specializers nil)) + (found (find-method gf method-qualifiers specializers nil))) + (when found (remove-method gf found)))) ;; ;; We install the method by: