-(defun sb!kernel::%instance-set-conditional (object slot test-value new-value)
- (declare (type instance object)
- (type index slot))
- #!+sb-doc
- "Atomically compare object's slot value to test-value and if EQ store
- new-value in the slot. The original value of the slot is returned."
- (sb!kernel::%instance-set-conditional object slot test-value new-value))
-