renamed $ and (SETF $) to $-SLOT and (SETF $-SLOT)