🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.clos
Article #393

re: Defining SETF :AFTER methods in PCL

#393
From: Jim des Rivieres
Date: Thu, 17 Jan 1991 18:19
6 lines
644 bytes
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))
Technical Details
Message-ID: <91Jan17.101915pst.39425@nero.parc.xerox.com>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!XEROX.COM!desrivieres.parc

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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