Just in case someone stumbles over this post, I found a simple solution
which works for me:
(do
(require '[clojure.spec.alpha :as s])
(import '(clojure.lang ISeq))
(defprotocol Foo (foo [this]))
(defrecord Bar [bar] Foo (foo [this] (.bar this)))
(deftype Baz [bar]
Foo (foo [this] (.bar this))
ISeq (seq [this] `(~(.bar this))))
(s/def ::bar number?)
[(s/valid? (s/keys :req-un [::bar]) (->Bar 0))
(s/valid? (s/cat :bar ::bar) (->Baz 0))]) ;[true true]
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
---
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to clojure+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
