(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))
+(sb!alien:define-alien-routine ("purify" %purify) sb!alien:void
+ (static-roots sb!alien:unsigned-long)
+ (read-only-roots sb!alien:unsigned-long))
;;; Compact the info environment. This is written with gratuitous
;;; recursion to make sure that our (and compact-info-environment's)
(when environment-name (compact-environment-aux environment-name 200))
(let ((*gc-notify-before*
- #'(lambda (notify-stream bytes-in-use)
- (declare (ignore bytes-in-use))
- (write-string "[doing purification: " notify-stream)
- (force-output notify-stream)))
+ (lambda (notify-stream bytes-in-use)
+ (declare (ignore bytes-in-use))
+ (write-string "[doing purification: " notify-stream)
+ (force-output notify-stream)))
(*internal-gc*
- #'(lambda ()
- (%purify (get-lisp-obj-address root-structures)
- (get-lisp-obj-address nil))))
+ (lambda (ignored-generation-arg)
+ (%purify (get-lisp-obj-address root-structures)
+ (get-lisp-obj-address nil))))
(*gc-notify-after*
- #'(lambda (notify-stream &rest ignore)
- (declare (ignore ignore))
- (write-line "done]" notify-stream))))
- #!-gencgc (gc t)
- #!+gencgc (gc :verbose t))
+ (lambda (notify-stream &rest ignore)
+ (declare (ignore ignore))
+ (write-line "done]" notify-stream))))
+ (gc))
nil)