Skip to content
Snippets Groups Projects
Commit b22da333 authored by pw's avatar pw
Browse files

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.
parent 8a48732f
No related branches found
No related tags found
No related merge requests found
......@@ -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))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment