From b22da333e45369cda4de7cd551f8d2ad9e8a3bdc Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Wed, 3 Feb 1999 12:01:58 +0000
Subject: [PATCH] In SET-SLOT-VALUE, pass the new-value argument to
 SLOT-MISSING so a user method can actually do something useful. From Tom
 Russ, tar@isi.edu.

---
 pcl/slots.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pcl/slots.lisp b/pcl/slots.lisp
index 6fd00f79b..cecc14fbc 100644
--- a/pcl/slots.lisp
+++ b/pcl/slots.lisp
@@ -26,7 +26,7 @@
 ;;;
 #+cmu
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.9 1998/12/20 04:30:22 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.10 1999/02/03 12:01:58 pw Exp $")
 ;;;
 
 (in-package :pcl)
@@ -161,7 +161,7 @@
   (let* ((class (class-of object))
 	 (slot-definition (find-slot-definition class slot-name)))
     (if (null slot-definition)
-	(slot-missing class object slot-name 'setf)
+	(slot-missing class object slot-name 'setf new-value)
 	(setf (slot-value-using-class class object slot-definition) 
 	      new-value))))
 
-- 
GitLab