From f83bdc196329851f493b8e7a0931543357109884 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Fri, 15 Jun 2007 12:23:39 +0000 Subject: [PATCH] Added clarifying comment Organization: Straylight/Edgeware From: espen --- gffi/virtual-slots.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gffi/virtual-slots.lisp b/gffi/virtual-slots.lisp index ff339eb..162b4f4 100644 --- a/gffi/virtual-slots.lisp +++ b/gffi/virtual-slots.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: virtual-slots.lisp,v 1.8 2007-06-01 06:46:06 espen Exp $ +;; $Id: virtual-slots.lisp,v 1.9 2007-06-15 12:23:39 espen Exp $ (in-package "GFFI") @@ -207,6 +207,8 @@ (defmethod compute-slot-writer-function ((slotd effective-virtual-slot-definitio (etypecase setter (symbol #'(lambda (object value) (funcall setter object value))) (list #'(lambda (object value) + ;; Setter is a (setf ...) form and thus takes the + ;; value as the first argument (funcall setter value object))) (function setter)))) -- [mdw]