Old:
(without-interrupts
(incf *global-counter*))
New: use low level atomic operations.
(sys:atomic-incf *global-counter*)
LispWorks User Guide and Reference Manual - 21 Dec 2011