deftype with class names as vars and macroexpansion

deftype.clj

  (defn- symbol->Class [resolved-symbol original-symbol]
    (if (class? resolved-symbol)
      (-> (str resolved-symbol)
          (split #"\.")
          last
          symbol)
      original-symbol))
 
  (defn- do-resolve [sym]
    (let [r (resolve sym)]
      (if (class? r)
        r
        @r)))
 
  (defmacro deftype [t bs & body]
    (let [b (map #(cond
                   (symbol? %)
                      (symbol->Class (do-resolve %) %)
                    (list? %)
                      (macroexpand-1 %)
                    :else
                      %)
                  body)]
      (list* 'clojure.core/deftype t bs b)))
  
(comment
  (def object Object)
  
  (defmacro is-equal? [return]
    `(equals [this other] ~return))
  
  (deftype Foo []
    object
    (is-equal? false))
  
  (.equals (Foo.) (Foo.) ; => false
)