(if (slot-value (class-of instance) 'instance-slots-p)
#'(lambda ()
(remove-cached-instance location)
(%object-remove-toggle-ref location))
#'(lambda ()
(remove-cached-instance location)
(if (slot-value (class-of instance) 'instance-slots-p)
#'(lambda ()
(remove-cached-instance location)
(%object-remove-toggle-ref location))
#'(lambda ()
(remove-cached-instance location)