Slight style change in add-method.

parent 79a6e3dd
......@@ -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:
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment