X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fgc.lisp;h=f66fbe171ef731e885d2b2f64c2929e0901f2c33;hb=47bcbbb709e9e35e38e34ef2ea658f5a8eb0804d;hp=f5cbc27abca03a221fc8c646fc99f41b136145ef;hpb=1bfc464c657a8f4ad24ef612f76a38d8f6f1bbad;p=sbcl.git

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index f5cbc27..f66fbe1 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -239,13 +239,13 @@ function should notify the user that the system has finished GC'ing.")
 
 ;;;; internal GC
 
-(sb!alien:def-alien-routine collect-garbage sb!c-call:int
+(sb!alien:define-alien-routine collect-garbage sb!c-call:int
   #!+gencgc (last-gen sb!c-call:int))
 
-(sb!alien:def-alien-routine set-auto-gc-trigger sb!c-call:void
+(sb!alien:define-alien-routine set-auto-gc-trigger sb!c-call:void
   (dynamic-usage sb!c-call:unsigned-long))
 
-(sb!alien:def-alien-routine clear-auto-gc-trigger sb!c-call:void)
+(sb!alien:define-alien-routine clear-auto-gc-trigger sb!c-call:void)
 
 ;;; This variable contains the function that does the real GC. This is
 ;;; for low-level GC experimentation. Do not touch it if you do not