autopkgtest: rather use UIOP:QUIT than ERROR
Sébastien Villemot
5 years ago
5 | 5 |
(with-input-from-string (*standard-input* (format nil "\"~A/tmpfile\"" tmpdir))
|
6 | 6 |
(load #p"/usr/share/common-lisp/source/rt/rt-test.lisp")))
|
7 | 7 |
|
8 | |
(or (do-tests)
|
9 | |
(error "Testsuite failed"))
|
|
8 |
(unless (do-tests)
|
|
9 |
(uiop:quit 1))
|