Disallow periods in slugs. Fixes Issue #10.

This commit is contained in:
Brit Butler 2013-01-15 11:56:58 -05:00
parent 4930387924
commit a1b39bfa33

View file

@ -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."