Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 6627e22274
Fetching contributors…

Cannot retrieve contributors at this time

12 lines (10 sloc) 0.346 kb
(use arc)
(def equal-wrt-testing (a b)
(if (and (isa a 'exception) (isa b 'exception))
(is (details a) (details b))
(and (isa a 'table) (isa b 'table))
(with (ka (keys a) kb (keys b))
(and (is (len ka) (len kb))
(iso (sort < ka) (sort < kb))
(all [iso a._ b._] ka)))
(iso a b)))
Jump to Line
Something went wrong with that request. Please try again.