X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fgc.lisp;h=d3bcd13698036b3991f90eb6308a705779855dfd;hb=5edd74f6911093805a009a152b32216b3dba59f7;hp=f66fbe171ef731e885d2b2f64c2929e0901f2c33;hpb=e33fb894f991b2926d8f3bace9058e4c0b2c3a37;p=sbcl.git

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index f66fbe1..d3bcd13 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:define-alien-routine collect-garbage sb!c-call:int
-  #!+gencgc (last-gen sb!c-call:int))
+(sb!alien:define-alien-routine collect-garbage sb!alien:int
+  #!+gencgc (last-gen sb!alien:int))
 
-(sb!alien:define-alien-routine set-auto-gc-trigger sb!c-call:void
-  (dynamic-usage sb!c-call:unsigned-long))
+(sb!alien:define-alien-routine set-auto-gc-trigger sb!alien:void
+  (dynamic-usage sb!alien:unsigned-long))
 
-(sb!alien:define-alien-routine clear-auto-gc-trigger sb!c-call:void)
+(sb!alien:define-alien-routine clear-auto-gc-trigger sb!alien: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