|
@@ -41,7 +41,7 @@
|
41
|
41
|
"Return a version of STRING suitable for use as a URL."
|
42
|
42
|
(let ((slugified (remove-if-not #'slug-char-p
|
43
|
43
|
(substitute-if #\- #'unicode-space-p string))))
|
44
|
|
- (if (zerop (length slugified))
|
|
44
|
+ (if (zerop (length slugified))
|
45
|
45
|
(error "Post title '~a' does not contain characters suitable for a slug!" string )
|
46
|
46
|
slugified)))
|
47
|
47
|
|