#+#.(cl:if (cl:find-package "ASDF") '(or) '(and))
-(load (merge-pathnames "../contrib/asdf/asdf.fasl"))
+(require :asdf)
#+#.(cl:if (cl:find-package "SB-POSIX") '(or) '(and))
-(let ((asdf:*central-registry*
- (cons "../contrib/systems/" asdf:*central-registry*)))
- (asdf:oos 'asdf:load-op 'sb-posix))
+(handler-bind (#+win32 (warning #'muffle-warning))
+ (require :sb-posix))
(load "test-util.lisp")
(defun report ()
(terpri)
(format t "Finished running tests.~%")
- (let ((skipcount 0))
+ (let ((skipcount 0)
+ (*print-pretty* nil))
(cond (*all-failures*
(format t "Status:~%")
(dolist (fail (reverse *all-failures*))
(ecase (first fail)
(:expected-failure "Expected failure:")
(:unexpected-failure "Failure:")
+ (:leftover-thread "Leftover thread (broken):")
(:unexpected-success "Unexpected success:")
(:skipped-broken "Skipped (broken):")
(:skipped-disabled "Skipped (irrelevant):"))