1 2 3 4 5 6 7 8 9 10 11
(require "asdf") (push (uiop/os:getcwd) asdf:*central-registry*) (asdf:load-system "fiasco") (asdf:load-system "fiasco-self-tests") (uiop:quit (if (fiasco:run-tests (quote (:fiasco-basic-self-tests :fiasco-intro-example :fiasco-suite-tests))) 0 1))