X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fthreads.impure.lisp;h=c0feefe3d25298b7a1b2811cc82c846fa6a6bfa7;hb=a14326d4e328c778cd292884099eee7d2c1b8d0f;hp=4b59604a7bdba7eb7a73dd2fac624818dfe4ae17;hpb=dcf5978d9d33098e868ae6eea28e1b310038c03d;p=sbcl.git

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index 4b59604..c0feefe 100644
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -18,7 +18,7 @@
 ;;; For one of the interupt-thread tests, we want a foreign function
 ;;; that does not make syscalls
 
-(with-open-file (o "threads-foreign.c" :direction :output)
+(with-open-file (o "threads-foreign.c" :direction :output :if-exists :supersede)
   (format o "void loop_forever() { while(1) ; }~%"))
 (sb-ext:run-program	
  "cc"