--- /dev/null
+(mk:load-system :uffi)
+
+(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 "strtol")
+ (load-test "gettime")
+ (load-test "getenv")
+ (load-test "gethostname")
+ (load-test "getshells")
+ (load-test "compress"))
+
+(setq cl:*features* (remove :test-uffi cl:*features*))
+
+
+