3 (pushnew :test-uffi cl:*features*)
5 (flet ((load-test (name)
6 (load (make-pathname :name name :type "cl" :defaults *load-truename*))))
9 (load-test "gethostname")
10 (load-test "getshells")
13 (load-test "compress"))
15 (setq cl:*features* (remove :test-uffi cl:*features*))