unspeakable things

foo.hy

(defmacro set-parameters [&rest parameters]
  (defn setter [parameter]
    (HyExpression [(HySymbol "setv")
                   (HySymbol (+ "self." parameter))
                   (HySymbol parameter)]))
  `(do ~@(map setter parameters)))

(defclass Kissa []
  [[--init-- (fn [self name age]
               (super-init)
               (set-parameters name age)
               nil)]])

(def miisa (Kissa "Miisa" 5))

miisa.name
miisa.age