Minor slugs tweak.

This commit is contained in:
Brit Butler 2012-08-21 14:57:15 -04:00
parent f5cd00fba9
commit ef315397a4

View file

@ -69,7 +69,7 @@
(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."