X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpurify.lisp;h=15199fa02192182a2069347b630c8794d7183838;hb=cd176690400f8b6fa23faa4dc6fa8494bcbce480;hp=f4d0811ae74f849d7f889e12f0266ce876d53fa2;hpb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;p=sbcl.git

diff --git a/src/code/purify.lisp b/src/code/purify.lisp
index f4d0811..15199fa 100644
--- a/src/code/purify.lisp
+++ b/src/code/purify.lisp
@@ -9,7 +9,7 @@
 
 (in-package "SB!KERNEL")
 
-(sb!alien:def-alien-routine ("purify" %purify) sb!c-call:void
+(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))