*slime-repl clojure*.clj

user> (.setComposite g-clj (src-out))
; Evaluation aborted.
user> (.setComposite g-clj (src-out 1))
; Evaluation aborted.
user> (def a (src-out))
#'user/a
user> (.setComposite g-clj a)
nil

evaluation aborted message

Can't embed object in code, maybe print-dup not defined: java.awt.AlphaComposite@b0800007
  [Thrown class java.lang.RuntimeException]

gistfile2.clj

(defmacro with-composite
  "Sets the composite of the dest to comp, and restores original composite value after executing the body.
Body executes inside a doto bounded to a Graphics2D object."
  [img comp & body]
  (let [eval-comp comp]
    `(let [ni# (clone-image ~img)
           g2# ^Graphics2D (.. (:image ni#) getGraphics)
           orig-comp# (.. g2# getComposite)]
       (doto g2#
         (.setComposite ~eval-comp)
         ~@body
         (.setComposite orig-comp#))
       ni#)))