Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!XEROX.COM!desrivieres.parc
From: desrivieres.parc@XEROX.COM (Jim des Rivieres)
Newsgroups: comp.lang.clos
Subject: re: Defining SETF :AFTER methods in PCL
Message-ID: <91Jan17.101915pst.39425@nero.parc.xerox.com>
Date: 17 Jan 91 18:19:08 GMT
Sender: welch@tut.cis.ohio-state.edu
Distribution: inet
Organization: CommonLoops
Lines: 6


Counterintuitively, all (setf xxx) functions and methods take the new value as
their *first* argument; i.e., try

(defmethod (setf foo-bar) :after (value (self foo))
  (format t "~%FOO-BAR is now ~A" value))