Commit 9fed1d6b authored by Robert Goldman's avatar Robert Goldman

Discard old files CREATE-ASD-FILES.

Avoids spurious test failures from inability to move files to create
backups.
parent f2525def
......@@ -56,7 +56,7 @@
(ensure-directories-exist d)
(with-open-file (s (merge-pathnames* (format nil "foo~D.asd" i) d)
:direction :output
:if-exists :rename-and-delete
:if-exists :supersede
:if-does-not-exist :create)
(format s "(defsystem :foo~D)~%" i))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment