- (setf (gethash (pointer-address (pointer object)) *known-boxed-refs*) object)
- (setf (gethash (pointer-address (pointer object)) *boxed-ref-count*) 1)
+ (let ((address (pointer-address (pointer object))))
+ (setf (gethash address *known-boxed-refs*) object)
+ (setf (gethash address *boxed-ref-count*) 1)
+ (setf (gethash address *boxed-ref-owner*)
+ (gethash address *boxed-ref-owner* :foreign)))