(ql:quickload "xfdf-test")
(1am:run)
(consp '(1 2 3 4))