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

The slot reader that we define may be used for slots that are redefined to have allocation :class

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-27 22:58:17 +01:00
parent ae157bf9ab
commit 3bfcc3e867
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/clos/standard.lsp
View file

@ -537,8 +537,9 @@ because it contains a reference to the undefined class~% ~A"
(table (slot-table class))
(slotd (gethash slot-name table))
(index (slot-definition-location slotd))
(value (si:instance-ref self index)))
(declare (fixnum index))
(value (if (si::fixnump index)
(si:instance-ref self (the fixnum index))
(car (the cons index)))))
(if (si:sl-boundp value)
value
(values (slot-unbound (class-of self) self slot-name)))))
@ -547,8 +548,9 @@ because it contains a reference to the undefined class~% ~A"
(table (slot-table class))
(slotd (gethash slot-name table))
(index (slot-definition-location slotd)))
(declare (fixnum index))
(si:instance-set self index value))))))
(if (fixnump index)
(si:instance-set self (the fixnum index) value)
(rplaca (the cons index) value)))))))
(defun std-class-sealed-accessors (index)
(declare (si::c-local)