(require "asdf")
(push (uiop/os:getcwd) asdf:*central-registry*)
(asdf:load-system "cl-fad/test")
(uiop:quit (if (asdf:test-system "cl-fad") 0 1))