Make WRITE-PAGE overwrite existing pages by default.

This commit is contained in:
Brit Butler 2013-04-09 16:45:04 -04:00
parent da219abe4f
commit 930e8bb04d

View file

@ -36,6 +36,7 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
(ensure-directories-exist filepath)
(with-open-file (out filepath
:direction :output
:if-exists :overwrite
:if-does-not-exist :create)
(write-line page out)))