In purge-cache function declare variable uid=1000(dvk) gid=1006(dvk) groups=1006...
authorDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Wed, 15 Dec 2010 18:30:26 +0000 (15 21:30 +0300)
committerDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Wed, 15 Dec 2010 18:30:26 +0000 (15 21:30 +0300)
cache.lisp

index 967327f..146d096 100644 (file)
@@ -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