deps.edn

{:deps {org.clojure/clojurescript {:mvn/version "1.11.60"}}}

REPL.edn

;; CLJ REPL

(require 'my.core)
(read-string (pr-str (my.core/circle 3)))
;;=> #my.core.Circle2{:p [0.0 0.0], :r 3}


;; CLJS REPL

(require 'my.core
         'cljs.reader)

(cljs.reader/read-string (pr-str (my.core/circle 3)))
;;=> #my.core.Circle2{:p [0 0], :r {:p [0 0], :r 3}}

src\data_readers.cljc

{my.core.Circle2 my.core/circle}

src\my\core.cljc

(ns my.core)

(defrecord Circle2 [p r])

(defn circle
  ([] (Circle2. [0.0 0.0] 1.0))
  ([r] (Circle2. [0.0 0.0] r))
  ([p r] (Circle2. [p p] r))
  ([x y r] (Circle2. [x y] r)))