Skip to content
Snippets Groups Projects
Commit a2f778aa authored by gerd's avatar gerd
Browse files

* src/pcl/slots-boot.lisp (ensure-accessor) <setf>: Call

	slot-missing with value being assigned.
parent 3d7233f5
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(file-comment (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) (in-package :pcl)
...@@ -62,7 +62,7 @@ ...@@ -62,7 +62,7 @@
(make-method-function (make-method-function
(lambda (val obj) (lambda (val obj)
(slot-missing (class-of obj) obj slot-name (slot-missing (class-of obj) obj slot-name
'setf) 'setf val)
val))))) val)))))
(initargs (copy-tree initargs))) (initargs (copy-tree initargs)))
(setf (getf (getf initargs :plist) :slot-name-lists) (setf (getf (getf initargs :plist) :slot-name-lists)
......
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