-(pushnew :test-uffi cl:*features*)
-
-(flet ((load-test (name)
- (load (merge-pathnames
- (make-pathname :name name
- :type "cl"
- :directory '(:relative "examples"))
- *load-truename*))))
-
- (load-test "c-test-fns")
- (load-test "arrays")
- (load-test "union")
- (load-test "strtol")
- (load-test "atoifl")
- (load-test "gettime")
- (load-test "getenv")
- (load-test "gethostname")
- (load-test "getshells")
- (load-test "compress"))
-
-(setq cl:*features* (remove :test-uffi cl:*features*))
-