defnk-with-arglists.clj

(...
  `(do (defnk ~fn-name ~@fn-tail)
       (alter-meta! (var ~fn-name) assoc :arglists ~arglists)
       (var ~fn-name)))

(defmacro defunk [fn-name & fn-tail]
  (let [arglists (some :arglists fn-tail)]
   `(do (defnk ~fn-name ~@fn-tail)
        (when ~arglists (alter-meta! (var ~fn-name) assoc :arglists ~arglists))
        (var ~fn-name))))