From 90ab6bdc2a4b0f52d791ed3de5adfe18a7bee3da Mon Sep 17 00:00:00 2001
From: Eitaro Fukamachi <e.arrows@gmail.com>
Date: Sat, 1 Aug 2015 03:54:38 +0900
Subject: [PATCH] No need to use LOWER for category because
 cliki_project_category.category is all downcased.

---
 src/search.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/search.lisp b/src/search.lisp
index 928ce06..2067dd6 100644
--- a/src/search.lisp
+++ b/src/search.lisp
@@ -64,7 +64,7 @@
          (rows (retrieve-all
                 (select (:project_name :category)
                   (from :cliki_project_category)
-                  (where (:like (:lower :category) (format nil "%~(~A~)%" query))))))
+                  (where (:like :category (format nil "%~(~A~)%" query))))))
          (rows (remove-if-not
                 (lambda (row)
                   (ppcre:scan scanner (getf row :category)))