From 930e8bb04da32bdfd48258ef9d960a551bfedcd4 Mon Sep 17 00:00:00 2001
From: Brit Butler <redline6561@gmail.com>
Date: Tue, 9 Apr 2013 16:45:04 -0400
Subject: [PATCH] Make WRITE-PAGE overwrite existing pages by default.

---
 src/coleslaw.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp
index 0a5adcd..cfcbb12 100644
--- a/src/coleslaw.lisp
+++ b/src/coleslaw.lisp
@@ -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)))