(let ((*add-two-ints*
(sb-alien::alien-callback (function int int int) #'+)))
(assert (= (alien-funcall *add-two-ints* #x-80000000 1)
(let ((*add-two-ints*
(sb-alien::alien-callback (function int int int) #'+)))
(assert (= (alien-funcall *add-two-ints* #x-80000000 1)