view release on metacpan or  search on metacpan

lib/CljPerl/anyevent.clp  view on Meta::CPAN

(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]