(with-open-stream (var stream) &body forms-decls)
(with-open-file (stream filespec &rest options) &body body)
(defun trace-xml-file (pathname) "Parse and trace XMl from the file at pathname" (with-open-file (in pathname) (trace-xml in)))