gistfile1.clj

(defn vectors-to-lookups [state-symbol list-element]
  (if (vector? list-element)
    `(get-in ~state-symbol ~list-element)
    list-element))

(defmacro defsignal [name
                     arg-binds
                     out-path
                     &func]
  `(defn ~name [state#]
     (let ~(mapv (fn [list-element]) (vectors-to-lookups state# ~arg-binds))
       func
       )))