MB
Size: a a a
MB
AC
MB
AC
MB
AC
AC
MB
MB
AC
MB
MB
AC
AC
(def testa (atom nil))
(defn log-message-streamer
[context args source-stream]
;; Create an object for the subscription.
(add-watch testa source-stream
(fn [s a o n]
(source-stream n)))
#(remove-watch testa source-stream)
)
MB
AC
MB
AC
MB
AC