id summary reporter owner description type status priority milestone component version resolution keywords cc difficulty
846 coops: define-method does not redefine megane felix winkelmann "Below are two cases, first works as expected, second doesn't.
Case 1
(require-extension coops)
(define-class ())
(define b (make ))
(define-method (foo (c ))
(print ""foo v1 on "" c))
(define-method (foo (c ))
(print ""foo v2 on "" c))
(foo b)
;; Output:
;; foo v2 on #'>
Case 2
(require-extension coops)
(define-class ())
(define a (make ))
(define-method (foo (a ))
(print ""foo v1 on "" a))
(foo a)
(define-method (foo (a ))
(print ""foo v2 on "" a))
(foo a)
;; Output:
;; foo v1 on #'>
;; foo v1 on #'> <-- nothing changed" defect closed major extensions 4.7.x fixed