Evitar que a função seja chamada sem ter passado por nenhum validador, gerando dado inconsistente.

validador.clj

(defn border [x]
  (cond (= (meta x) nil) "nao autorizado" 
                (= ((meta x):type) "valinor") x 
                :default "lixo" ))

;Associar um meta a sua função de validação

;teste
(def x (with-meta [1 2 3 4] {:type "valinor"}))
(border x)
; => [1 2 3 4]


(border [1 2 3 4 5])
; => não autorizado


(def x (with-meta [1 2 3 4] {:type "outracoisa"}))
(border x)
; => lixo