(declare (ignore cond))
(invoke-restart 'muffle-warning))))
(operate 'load-op system)
- (funcall (find-symbol "RUN-TESTS" "SOD-TEST"))))
+ (let ((result (funcall (find-symbol "RUN-TESTS" "SOD-TEST"))))
+ (unless (funcall (find-symbol "WAS-SUCCESSFUL" "XLUNIT") result)
+ (error "Failed test")))))
;;;----- That's all, folks --------------------------------------------------