(finalize \"oops\" #'oops)
(oops)) ; causes GC and re-entry to #'oops due to the finalizer
; -> ERROR, caught, WARNING signalled"
(sb!sys:without-gcing
(sb!thread:with-mutex (*finalizer-store-lock*)
(finalize \"oops\" #'oops)
(oops)) ; causes GC and re-entry to #'oops due to the finalizer
; -> ERROR, caught, WARNING signalled"
(sb!sys:without-gcing
(sb!thread:with-mutex (*finalizer-store-lock*)