Skip to content

Instantly share code, notes, and snippets.

@arademaker

arademaker/oab.lisp

Last active September 1, 2017 16:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save arademaker/6cdf0fa3609a8040c30663943be17333 to your computer and use it in GitHub Desktop.
Save arademaker/6cdf0fa3609a8040c30663943be17333 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
oab.lisp
(ql:quickload :cxml)
(ql:quickload :cxml-stp)
(defparameter *document* (cxml:parse #P"raw/2010-official-1.xml"
(stp:make-builder)))
(let (res)
(xpath:do-node-set (node (xpath:evaluate "//statement" *document*) res)
(push (xpath-protocol:node-text node) res)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment