abomination2.clj

;; The Alternate Abomination:

(defmacro dolet [[x1 lcl expr :as x] & more]
  (if (= x1 'let)
    `(let [~lcl ~expr] 
       (dolet ~@more))
    (if (empty? more)
      x
      `(do ~x (dolet ~@more)))))

;; The Desolation:

(dolet
  (let i 5)
  (let j 10)
  (prn i j)
  (let k (+ i j))
  (* k 2))

abomination_desolation.clj

;; The Abomination:

(defmacro dolet [& [_ eq :as s]]
  (if (and eq (= "=" (name eq)))
    (let [[lcl _ expr & more] s]
      `(let [~lcl ~expr] 
         (dolet ~@more)))
    (let [[expr & more] s]
      (if (empty? more)
        expr
        `(do ~expr (dolet ~@more))))))

;; The Desolation:

(dolet
  i = 5
  j = 10
  (prn i j)
  k = (+ i j)
  (* k 2))