From 4fd48e1b9fa0d6199d5fd371826a17fe33f06d73 Mon Sep 17 00:00:00 2001
From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Wed, 15 Dec 2010 21:30:26 +0300
Subject: [PATCH] In purge-cache function declare variable uid=1000(dvk)
 gid=1006(dvk)
 groups=1006(dvk),10(wheel),18(audio),19(cdrom),27(video),35(games),85(usb),250(portage),1005(plugdev),1013(vboxusers),1017(scanner),1020(dropbox)
 as ignorable

---
 cache.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cache.lisp b/cache.lisp
index 967327f..146d096 100644
--- a/cache.lisp
+++ b/cache.lisp
@@ -53,6 +53,7 @@
 
 (defun purge-cache (cache)
   (iter (for (id items) in-hashtable (objects-table cache))
+        (declare (ignorable id))
         (when items
           (iter (for item in-vector (the vector items))
                 (funcall (destructor cache) item)))))
\ No newline at end of file
-- 
2.11.4.GIT