letstop.clj

(defmacro let-stop [bindings & body]
  (if (some #{'*stop*} bindings)
    (let [stopped-bindings
          (->> bindings
               (take-while #(not= '*stop* %))
               vec)
          caught-symbols
          (->> stopped-bindings
               (partition 2)
               (map #(vector (keyword (str (first %))) (first %)))
               (into {}))]
      `(let ~stopped-bindings
            ~caught-symbols))
    `(let* ~(destructure bindings) ~@body)))

(let-stop
    [a 1
     b (* a 10)
     c {:a a :b b}
     *stop*
     ]
  (+ a b))