Subject: Re: bug#18321: 24.4.50; EIEIO and (defmethod (setf ...))
From: Stefan Monnier <[email-masked]>
To: Tom Tromey <[email-masked]>
Cc: [email-masked]
Date: Tue, 05 May 2015 14:33:25 -0400
List-Id: <debbugs-submit.debbugs.gnu.org>

> I was hoping this would work:
>
> (defclass hibob ()
>   ((click-callback :initform nil)
>    (icon :initform "" :accessor hibob-icon)))
>
> (defmethod (setf hibob-icon) :after (newval (obj hibob))
>   (setq zzzz newval))
>
> This works in Common Lisp and is quite handy.

IIUC this should now work if you use cl-defmethod.

        Stefan