X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fpurify.lisp;h=caf6991333e4ce39af3bce03f31b2cce35889669;hb=6c4d4d984b1af6b2a73568cec3ab9c8795cff2da;hp=4d27fe5e51b548f1e7f6c2545cdce4017f3f409b;hpb=e0814eee6f6dea52db010b45a330100f2fe65832;p=sbcl.git

diff --git a/src/code/purify.lisp b/src/code/purify.lisp
index 4d27fe5..caf6991 100644
--- 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)