(ns anyevent

  (use-lib "/local_vol1_nobackup/usr/wehu/src/AnyEvent-7.04/lib")

  (. require AnyEvent)

  (defn condvar []
    (->AnyEvent condvar))

  (defn cancel [o]
    (set! o nil))

  (defn condvar-recv [cv]
    (.AnyEvent::CondVar::Base recv cv))

  (defn condvar-send [cv & args]
    (.AnyEvent::CondVar::Base send cv args))

  (defn timer [opts]
    (->AnyEvent timer opts))

  )