core.clj

(ns my.cache.listener
  (:require [immutant.cache :as c])
  (:import org.infinispan.notifications.Listener
           [org.infinispan.notifications.cachelistener.annotation
            CacheEntryCreated CacheEntryModified CacheEntryRemoved]))

(definterface Handler (^void handle [event]))

(deftype ^{Listener true}
    Monitor []
    Handler (^{:tag void
               CacheEntryCreated true
               CacheEntryModified true
               CacheEntryRemoved true}
             handle [this event] (prn event)))

(def foo (c/create "foo"))
(.addListener (.cache foo) (Monitor.))