Andy Wingo 4bde3f04ea Simplify and optimize slot access ... * module/oop/goops.scm (fold-slot-slots): Add `slot-ref/raw' slot, which is what the slot-ref slot was. Now the slot-ref slot checks that the slot is bound, if needed. (slot-definition-slot-ref/raw): Define. (make-slot): Adapt. Also, effective slot definition slots have no initargs. (define-standard-accessor-method, bound-check-get, standard-get) (standard-set): Move definitions up. (allocate-slots): Adapt. If the slot has an init thunk, we don't need to check that it's bound. (slot-ref, slot-set!, slot-bound?): Simplify. (class-slot-ref): Use the raw getter so that we can call `slot-unbound' with just the class. (compute-getter-method, compute-setter-method): Simplify to just use the slot-ref / slot-set! functions from the slot. (%initialize-object): Simplify.		2015-01-23 16:16:04 +01:00
..
goops	Update (oop goops save) for <slot> objects	2015-01-23 16:16:04 +01:00
ChangeLog-2008	move ice-9/ and oop/ under module/	2008-11-01 12:44:21 +01:00
goops.scm	Simplify and optimize slot access	2015-01-23 16:16:04 +01:00