X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fgc.lisp;h=06d38a092d2b03ca50dba77528684be19e2a29fe;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=c1289953a6cc7059f096cb3d27fc763e3732d1d0;hpb=79a8e51bf4b06a5bd57bc90233605f98fee3b041;p=sbcl.git

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index c128995..06d38a0 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -285,6 +285,8 @@ run in any thread.")
   (when (sub-gc :gen (if full 6 gen))
     (post-gc)))
 
+(define-alien-routine scrub-control-stack sb!alien:void)
+
 (defun unsafe-clear-roots ()
   ;; KLUDGE: Do things in an attempt to get rid of extra roots. Unsafe
   ;; as having these cons more then we have space left leads to huge