diff --git a/coleslaw.asd b/coleslaw.asd
index 24d224d..2184379 100644
--- a/coleslaw.asd
+++ b/coleslaw.asd
@@ -14,7 +14,7 @@
                :cl-fad
                :cl-ppcre
                :closer-mop
-			   :cl-unicode)
+               :cl-unicode)
   :serial t
   :components ((:file "packages")
                (:file "util")
diff --git a/src/content.lisp b/src/content.lisp
index 87698c3..36865aa 100644
--- a/src/content.lisp
+++ b/src/content.lisp
@@ -27,14 +27,14 @@
   ; use the first char of the general unicode category as kind of
   ; hyper general category
   (let ((cat (aref (cl-unicode:general-category char) 0))
-		(allowed-cats (list #\L #\N))) ; allowed Unicode categories in URLs
-	(cond
-	  ((member cat allowed-cats)   t)
-	  ((member char allowed-chars) t)
-	  (t nil))))
+        (allowed-cats (list #\L #\N))) ; allowed Unicode categories in URLs
+        (cond
+          ((member cat allowed-cats)   t)
+          ((member char allowed-chars) t)
+          (t nil))))
 
 (defun unicode-space-p (char)
-  "Determine if CHAR is a kind of whitespace by unicode category means"
+  "Determine if CHAR is a kind of whitespace by unicode category means."
   (char= (aref (cl-unicode:general-category char) 0) #\Z))
 
 (defun slugify (string)