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