X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fthreads.impure.lisp;h=dd2544c6d5a5e867ca69c57d050a6693021ac3a2;hb=da8cb4801a3ab35070f380e22aea3d260f9df8aa;hp=eb4fe5a1b71a7c461777acdfdcdbbf05178758a3;hpb=c548f73e8dd676d6ec4576eba6ab661a5061bdfe;p=sbcl.git

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index eb4fe5a..dd2544c 100644
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -107,7 +107,7 @@
  :search t)
 (sb-alien:load-shared-object "threads-foreign.so")
 (sb-alien:define-alien-routine loop-forever sb-alien:void)
-
+(delete-file "threads-foreign.c")
 
 ;;; elementary "can we get a lock and release it again"
 (let ((l (make-mutex :name "foo"))