0.9.16.6: better circularity detection in fasl dumper

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

diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp
index 78d6416..ae57aa9 100644 (file)
--- a/tests/compiler.impure.lisp
+++ b/tests/compiler.impure.lisp
@@ -1383,4 +1383,9 @@
   (assert (not res))
   (assert (typep err 'type-error)))
 
+(handler-case
+    (delete-file (compile-file "circ-tree-test.lisp"))
+  (storage-condition (e)
+    (error e)))
+
 ;;; success