XML/XPath: Difference between revisions
Content added Content deleted
(CL cosmetics) |
|||
Line 200: | Line 200: | ||
{{libheader|cxml-stp}} |
{{libheader|cxml-stp}} |
||
<lang lisp>( |
<lang lisp>(dolist (system '(:xpath :cxml-stp :cxml)) |
||
(asdf:oos 'asdf:load-op system)) |
|||
(defparameter *doc* (cxml:parse-file "xml" (stp:make-builder))) |
|||
(xpath:first-node (xpath:evaluate "/inventory/section[1]/item[1]" *doc*)) |
(xpath:first-node (xpath:evaluate "/inventory/section[1]/item[1]" *doc*)) |