(pushnew :examples-uffi cl:*features*)
(flet ((load-test (name)
- (load (make-pathname :defaults *load-truename* :name name))))
+ (load (make-pathname :defaults *load-truename* :name name))))
(load-test "c-test-fns")
(load-test "arrays")
(load-test "union")
(setq cl:*features* (remove :examples-uffi cl:*features*))
-
+