Old:
(without-interrupts
(incf *global-counter*))
New: use low level atomic operations.
(sys:atomic-incf *global-counter*)