who-needs-macros.clj

(ns adhoc.core)

(defn arity
  [n]
  (let [args (repeatedly n gensym)]
    `([~@args] (println "args" ~@args))))

;; Seriously though, don't do this.
(defn magic
  #=(arity 1)
  #=(arity 3)
  #=(arity 5))

(comment
  (magic :a :b :c)
  ; args :a :b :c
  ;= nil
  (magic :a :b :c :d)
  ;! ArityException Wrong number of args (4) passed to: core$magic  clojure.lang.AFn.throwArity (AFn.java:437)
  (magic :a :b :c :d :e)
  ; args :a :b :c :d :e
  ;= nil

  (source magic)
  ; (defn magic
  ;   #=(arity 1)
  ;   #=(arity 3)
  ;   #=(arity 5))
  ;= nil
)