marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

using zerop instead of (= 0

Browse source
This commit is contained in:
lukasepple 2014-12-10 15:07:09 +01:00
parent d7ffd1b7d7
commit 1e1c64b245
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/content.lisp
View file

@ -40,10 +40,10 @@
(defun slugify (string)
"Return a version of STRING suitable for use as a URL."
(let ((slugified (remove-if-not #'slug-char-p
(substitute-if #\- #'unicode-space-p string))))
(if (= 0 (length slugified))
(error "Post title '~a' does not contain characters suitable for a slug!" string)
slugified)))
(substitute-if #\- #'unicode-space-p string))))
(if (zerop (length slugified))
(error "Post title '~a' does not contain characters suitable for a slug!" string
slugified)))
;; Content Types