0.9.2.2

[sbcl.git] / tests / defstruct.impure.lisp

diff --git a/tests/defstruct.impure.lisp b/tests/defstruct.impure.lisp
index 6102a14..45ba8a1 100644 (file)
--- a/tests/defstruct.impure.lisp
+++ b/tests/defstruct.impure.lisp
@@ -470,6 +470,7 @@
                 :if-exists :supersede)
   (write-string "(defun dumped-manyraws () '#.*manyraw*)" s))
 (compile-file "tmp-defstruct.manyraw.lisp")
+(delete-file "tmp-defstruct.manyraw.lisp")
 
 ;;; nuke the objects and try another GC just to be extra careful
 (setf *manyraw* nil)