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)
|
||||
(with-open-file (out filepath
|
||||
:direction :output
|
||||
:if-exists :overwrite
|
||||
:if-does-not-exist :create)
|
||||
(write-line page out)))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue