(without-interrupts
(push value *global-list*))
(without-interrupts
(pop *global-list*))
New: use low level atomic operations.
(sys:atomic-push value *global-list*)
(sys:atomic-pop *global-list*)
LispWorks User Guide and Reference Manual - 21 Dec 2011