mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

(SETF SLOT-VALUE) did not always return the assigned value

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-07 21:28:40 +02:00
parent 0e5595ccae
commit 1306759d45
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/clos/std-slot-value.lsp
View file

@ -240,7 +240,8 @@
(let ((slotd (find slot-name (class-slots class) :key #'slot-definition-name)))
(if slotd
(setf (slot-value-using-class class self slotd) value)
(slot-missing class self slot-name 'SETF value)))))))
(slot-missing class self slot-name 'SETF value))))))
value)
;;;
;;; 2) Overloadable methods on which the previous functions are based