From a1b39bfa3312404700487b5deb2c9f6af92b18f8 Mon Sep 17 00:00:00 2001
From: Brit Butler <redline6561@gmail.com>
Date: Tue, 15 Jan 2013 11:56:58 -0500
Subject: [PATCH] Disallow periods in slugs. Fixes Issue #10.

---
 src/content.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/content.lisp b/src/content.lisp
index 49c6aba..224aa37 100644
--- a/src/content.lisp
+++ b/src/content.lisp
@@ -77,7 +77,7 @@ bound to the current subclass."
   (or (char<= #\0 char #\9)
       (char<= #\a char #\z)
       (char<= #\A char #\Z)
-      (member char '(#\_ #\- #\.))))
+      (member char '(#\_ #\-))))
 
 (defun slugify (string)
   "Return a version of STRING suitable for use as a URL."