(ql:quickload "xfdf-test")
(asdf:test-system :xfdf-test)
(quit)