(defrecord VertexInducedSubgraph [graph pred]
  VSeq
  (vseq-internal [this tm]
    (filter pred
            (vseq-internal graph tm)))
  ESeq
  (eseq-internal [this tm]
    ;; The vertex induced subgraph contains all edges between vertices that are
    ;; both in the subgraph.
    (filter #(and (member? (alpha %) (vseq-internal this identity))
                  (member? (omega %) (vseq-internal this identity)))
            (eseq-internal graph tm)))
  ISeq
  (iseq-internal [this tm dm]
    ;; Same as for ESeq...
    (filter #(and (member? (alpha %) (vseq-internal this identity))
                  (member? (omega %) (vseq-internal this identity)))
            (iseq-internal graph tm dm)))
  Resolving
  (attributed-element-class
    ([this]            (attributed-element-class graph))
    ([this qname]      (attributed-element-class graph qname)))
  (m1class
    ([elem]            (m1class graph))
    ([elem qname]      (m1class graph elem)))
  (domain [elem qname] (domain graph qname))
  (schema [ae]         (schema graph)))

;; This is the error
Unsupported binding form: (attributed-element-class graph)
  [Thrown class java.lang.Exception]

Restarts:
 0: [QUIT] Quit to the SLIME top level

Backtrace:
  0: clojure.core$destructure$pb__4144.invoke(core.clj:3948)
  1: clojure.core$destructure$process_entry__4159.invoke(core.clj:3949)
  2: clojure.core$reduce1.invoke(core.clj:879)
  3: clojure.core$destructure.invoke(core.clj:3952)
  4: clojure.core$let.doInvoke(core.clj:3965)
  5: clojure.lang.RestFn.invoke(RestFn.java:467)
  6: clojure.lang.Var.invoke(Var.java:413)
  7: clojure.lang.AFn.applyToHelper(AFn.java:172)
  8: clojure.lang.Var.applyTo(Var.java:518)
  9: clojure.lang.Compiler.macroexpand1(Compiler.java:6279)