     (let [once-fixture-fn (join-fixtures (::once-fixtures (meta ns)))
           each-fixture-fn (join-fixtures (::each-fixtures (meta ns)))]
       (once-fixture-fn
-       (fn bbla []
+       (fn []
          (doseq [v vars]
            (when (:test (meta v))
-             (each-fixture-fn (fn call-test-var [] (test-var v))))))))))
+             (each-fixture-fn (fn [] (test-var v))))))))))
 
 (defn test-all-vars
   "Calls test-vars on every var interned in the namespace, with fixtures."

  {:added "1.1"}
  [name & body]
  (when *load-tests*
    (let [test-var-name (symbol (str name "__:private-test"))]
      `(do
         (def ~(vary-meta name assoc :test test-var-name :private true)
           (fn [] (test-var (var ~name))))
         (defn ~test-var-name [] ~@body)))))


(defmacro set-test

  {:added "1.1"}
  [name & body]
  (when *load-tests*
    (let [test-var-name (symbol (str (ns-name *ns*)) (str name "__test"))]
      `(do
         (def ~(vary-meta name assoc :test test-var-name)
           (fn [] (test-var (var ~name))))
