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

Merge pull request #11 from jsmpereira/master

Browse source 
Fix call to flet function on indices.lisp
This commit is contained in:
Brit Butler 2013-01-29 06:45:07 -08:00
commit 24a7a11ccd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/indices.lisp
View file

@ -45,14 +45,14 @@
"Return an index of all CONTENT matching the given TAG."
(flet ((valid-p (obj) (member tag (content-tags obj) :test #'string=)))
(make-instance 'tag-index :id tag
:posts (remove-if-not valid-p content)
:posts (remove-if-not #'valid-p content)
:title (format nil "Posts tagged ~a" tag))))
(defun index-by-month (month content)
"Return an index of all CONTENT matching the given MONTH."
(flet ((valid-p (obj) (search month (content-date obj))))
(make-instance 'date-index :id month
:posts (remove-if-not valid-p content)
:posts (remove-if-not #'valid-p content)
:title (format nil "Posts from ~a" month))))
(defun index-by-n (i content &optional (step 10))