0.8.13.16:

[sbcl.git] / contrib / sb-posix / posix-tests.lisp

diff --git a/contrib/sb-posix/posix-tests.lisp b/contrib/sb-posix/posix-tests.lisp
index 69fee84..a82bd7e 100644 (file)
--- a/contrib/sb-posix/posix-tests.lisp
+++ b/contrib/sb-posix/posix-tests.lisp
@@ -363,7 +363,9 @@
 
 (deftest opendir.1
   (let ((dir (sb-posix:opendir "/")))
-    (sb-alien:null-alien dir))
+    (unwind-protect (sb-alien:null-alien dir)
+      (unless (sb-alien:null-alien dir)
+       (sb-posix:closedir dir))))
   nil)
 
 (deftest readdir.1