7 lines
150 B
Common Lisp
7 lines
150 B
Common Lisp
(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))
|