RosettaCodeData/Task/XML-Input/PicoLisp/xml-input.l

6 lines
87 B
Common Lisp

(load "@lib/xm.l")
(mapcar
'((L) (attr L 'Name))
(body (in "file.xml" (xml))) )