kmx.io/cl-can

diff --git a/can.lisp b/can.lisp
index 049a6d9..23dccc0 100644
--- a/can.lisp
+++ b/can.lisp
@@ -85,6 +85,7 @@
             (object (gensym "OBJECT-"))
             (user (gensym "USER-")))
         `(lambda (,action ,object ,user)
+           (declare (ignorable ,action ,object ,user))
            (eq :can
                (or ,@(mapcar (lambda (rule)
                                (can/rule user action