Skip to content

Instantly share code, notes, and snippets.

@kaosf
Created August 11, 2013 16:53
Show Gist options
  • Save kaosf/6205696 to your computer and use it in GitHub Desktop.
Save kaosf/6205696 to your computer and use it in GitHub Desktop.
`(= (xml-seq x) (seq (xml-seq x)))` returns true?
(do
(require 'clojure.xml 'clojure.data)
(let
[x
(xml-seq
(clojure.xml/parse
(clojure.java.io/input-stream
(java.net.URI. "https://gist.github.com/kaosf/6205132/raw/17a803a4cd7e816698fde5b30552a77272a2b507/sample.xml"))))]
(= x (seq x))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment