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