(util.test:with-tests (:name "UFFI-Tests")
(setq util.test:*break-on-test-failures* nil)
(flet ((load-test (name)
- (load (make-pathname :name name :defaults *load-truename*))))
+ (load (make-pathname :name name :defaults *load-truename*))))
(load-test "c-test-fns")
(load-test "arrays")
(load-test "union")