-(sb!alien:define-alien-routine ("purify" %purify) sb!c-call:void
- (static-roots sb!c-call:unsigned-long)
- (read-only-roots sb!c-call:unsigned-long))
+(sb!alien:define-alien-routine ("purify" %purify) sb!alien:void
+ (static-roots sb!alien:unsigned-long)
+ (read-only-roots sb!alien:unsigned-long))