0.7.13.5

[sbcl.git] / src / code / purify.lisp

diff --git a/src/code/purify.lisp b/src/code/purify.lisp
index 4d27fe5..4ff9fc0 100644 (file)
--- a/src/code/purify.lisp
+++ b/src/code/purify.lisp
@@ -9,9 +9,9 @@
 
 (in-package "SB!KERNEL")
 
-(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))
 
 ;;; Compact the info environment. This is written with gratuitous
 ;;; recursion to make sure that our (and compact-info-environment's)
@@ -52,7 +52,7 @@
           (write-string "[doing purification: " notify-stream)
           (force-output notify-stream)))
        (*internal-gc*
-        (lambda ()
+        (lambda (ignored-generation-arg)
           (%purify (get-lisp-obj-address root-structures)
                    (get-lisp-obj-address nil))))
        (*gc-notify-after*