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

Minor thinko/bugfix.

Browse source
This commit is contained in:
Brit Butler 2013-01-01 20:07:31 -05:00
parent 3d1301dc6d
commit 04937e88bf
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/posts.lisp
View file

@ -25,7 +25,7 @@
(defmethod discover ((content-type (eql :post))) (defmethod discover ((content-type (eql :post)))
(purge-all 'post) (purge-all 'post)
(do-files (file (repo *config*) "post") (do-files (file (repo *config*) "post")
(let ((post (construct :post (read-content file t)))) (let ((post (construct 'post (read-content file t))))
(if (gethash (content-slug post) *content*) (if (gethash (content-slug post) *content*)
(error "There is already an existing post with the slug ~a." (error "There is already an existing post with the slug ~a."
(content-slug post)) (content-slug post))