clojure / cljs spec macro

core.clj

(ns foo.core)

(defmacro my-def
  [x]
  `(clojure.spec.alpha/def ~x int?))

repl-clj.txt

user=> (require '[clojure.spec.alpha :as s])
nil
user=> (require 'foo.core)
nil
user=> (foo.core/my-def ::a)
:user/a
user=> (s/valid? ::a 3)
true
user=> (macroexpand '(foo.core/my-def ::a))
(clojure.spec.alpha/def-impl (quote :user/a) (quote clojure.core/int?) clojure.core/int?)
user=> ::s/invalid
:clojure.spec.alpha/invalid

repl-cljs.txt

cljs.user=> (require '[clojure.spec.alpha :as s])

cljs.user=> (require-macros 'foo.core)

cljs.user=> (foo.core/my-def ::a)
:cljs.user/a
cljs.user=> (s/valid? ::a 3)
true
cljs.user=> (macroexpand '(foo.core/my-def ::a))
(cljs.spec.alpha/def-impl (quote :cljs.user/a) (quote cljs.core/int?) clojure.core/int?)
cljs.user=> ::s/invalid
:cljs.spec.alpha/invalid