- (attribute-name attribute)
- (closer-mop:slot-definition-name property))))
- (dprint ".. not bound yet, have function ~A" fn)
- (if (generic-function-methods fn)
- (let ((*bypass-property-layered-function* t))
- ; (dprint " This shit has been bound!. We gona set the _real_ slot to the generic function like.")
- (setf (slot-value-using-class class attribute property) fn))
- (progn
- ;(dprint "This shit aint never been bound nowhere! checking for initfunction...")
- (when (slot-definition-initfunction property)
- ;(dprint "At least we have an initfunction. sweeet")
- (let ((*bypass-property-layered-function* nil))
- (setf (slot-value attribute (slot-definition-name property))
- (funcall (slot-definition-initfunction property)))))))))
-
- ;(dprint "If we're here, the slot should be bound")