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

Discard old files CREATE-ASD-FILES.

Avoids spurious test failures from inability to move files to create
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))))
Supports Markdown
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