- then (align-offset
- (+
- (slot-definition-offset slotd)
- (size-of (slot-definition-type slotd)))
- packed-p)
- for slotd in alien-slots
- unless (slot-boundp slotd 'offset)
- do (setf (slot-value slotd 'offset) offset))))
+ then (adjust-offset offset (slot-definition-type slotd) packed-p)
+ do (if (slot-boundp slotd 'offset)
+ (setf offset (slot-value slotd 'offset))
+ (setf (slot-value slotd 'offset) offset))
+ (incf offset (size-of (slot-definition-type slotd))))))