(loop for filename in fix-xml-file-list
      when (uiop:string-suffix-p filename ".xml") do
        (format t "~A~%" filename)
      )