Delete scratch files

tests/external-format.pure.lisp

@@ -1349,7 +1349,8 @@
           (*error-output* (make-broadcast-stream)))
       (multiple-value-bind (output failurep warningsp)
           (compile-file path :verbose nil)
-        (declare (ignore output))
+        (delete-file output)
+        (delete-file path)
         (assert (null failurep))
         (assert (null warningsp))))))
 

tests/ucs-2be.pure.lisp

@@ -85,3 +85,5 @@
     ;; of replacement characters given as part of the external format
     (test :ucs-2be '(2 2 nil 2 2))
     (test (:ucs-2be :replacement #\?) '(2 2 nil 2 2))))
+
+(delete-file *test-path*)

tests/ucs-2le.pure.lisp

@@ -85,3 +85,5 @@
     ;; of replacement characters given as part of the external format
     (test :ucs-2le '(2 2 nil 2 2))
     (test (:ucs-2le :replacement #\?) '(2 2 nil 2 2))))
+
+(delete-file *test-path*)

tests/ucs-4be.pure.lisp

@@ -70,3 +70,5 @@
                                                                  #x00))
     (test :ucs-4be '())
     (test (:ucs-4be :replacement #\?) '(#\? #\?))))
+
+(delete-file *test-path*)

tests/ucs-4le.pure.lisp

@@ -70,3 +70,5 @@
                                                                  #x00))
     (test :ucs-4le '())
     (test (:ucs-4le :replacement #\?) '(#\? #\?))))
+
+(delete-file *test-path*)

tests/utf-16be.pure.lisp

@@ -93,3 +93,5 @@
     ;; of replacement characters given as part of the external format
     (test :utf-16be '(2 nil 4 2 2))
     (test (:utf-16be :replacement #\?) '(2 nil 4 2 2))))
+
+(delete-file *test-path*)

tests/utf-16le.pure.lisp

@@ -93,3 +93,5 @@
     ;; of replacement characters given as part of the external format
     (test :utf-16le '(2 nil 4 2 2))
     (test (:utf-16le :replacement #\?) '(2 nil 4 2 2))))
+
+(delete-file *test-path*)

tests/utf-32be.pure.lisp

@@ -108,3 +108,5 @@
     ;; of replacement characters given as part of the external format
     (test :utf-32be '(4 nil 4 4 4))
     (test (:utf-32be :replacement #\?) '(4 nil 4 4 4))))
+
+(delete-file *test-path*)

tests/utf-32le.pure.lisp

@@ -108,3 +108,5 @@
     ;; of replacement characters given as part of the external format
     (test :utf-32le '(4 nil 4 4 4))
     (test (:utf-32le :replacement #\?) '(4 nil 4 4 4))))
+
+(delete-file *test-path*)