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