From a2f778aa8dd5b74453fe645a2b1da2e8f6ffa5b8 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Tue, 17 Jun 2003 13:16:45 +0000 Subject: [PATCH] * src/pcl/slots-boot.lisp (ensure-accessor) <setf>: Call slot-missing with value being assigned. --- pcl/slots-boot.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pcl/slots-boot.lisp b/pcl/slots-boot.lisp index 8da01df70..c78d09d12 100644 --- a/pcl/slots-boot.lisp +++ b/pcl/slots-boot.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots-boot.lisp,v 1.24 2003/06/15 14:06:26 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots-boot.lisp,v 1.25 2003/06/17 13:16:45 gerd Exp $") ;;; (in-package :pcl) @@ -62,7 +62,7 @@ (make-method-function (lambda (val obj) (slot-missing (class-of obj) obj slot-name - 'setf) + 'setf val) val))))) (initargs (copy-tree initargs))) (setf (getf (getf initargs :plist) :slot-name-lists) -- GitLab