(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
(sb!alien:def-alien-routine ("purify" %purify) sb!c-call:void
(static-roots sb!c-call:unsigned-long)
(read-only-roots sb!c-call:unsigned-long))
#'(lambda (notify-stream &rest ignore)
(declare (ignore ignore))
(write-line "done]" notify-stream))))
- #!-gencgc (gc t)
- #!+gencgc (gc :verbose t))
+ (gc))
nil)