Make WRITE-PAGE overwrite existing pages by default.
This commit is contained in:
parent
da219abe4f
commit
930e8bb04d
1 changed files with 1 additions and 0 deletions
|
@ -36,6 +36,7 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
|
||||||
(ensure-directories-exist filepath)
|
(ensure-directories-exist filepath)
|
||||||
(with-open-file (out filepath
|
(with-open-file (out filepath
|
||||||
:direction :output
|
:direction :output
|
||||||
|
:if-exists :overwrite
|
||||||
:if-does-not-exist :create)
|
:if-does-not-exist :create)
|
||||||
(write-line page out)))
|
(write-line page out)))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue