(loop for filename in xml-file-list
      when (funcall string-suffix-p filename ".xml")
           (progn
             (format t "%A%~" filename))
      )