mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

Slight style change in add-method.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-21 23:53:46 +02:00
parent 79a6e3dd7b
commit 7955ebda76
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/clos/fixup.lsp
View file

@ -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: