From ce12c566449f15f524213953b700b08903354897 Mon Sep 17 00:00:00 2001 From: Jose Santos Date: Tue, 29 Jan 2013 14:42:48 +0000 Subject: [PATCH] Fix function call. --- src/indices.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/indices.lisp b/src/indices.lisp index d8d644f..d270dcc 100644 --- a/src/indices.lisp +++ b/src/indices.lisp @@ -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))