X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fposix-tests.lisp;h=a82bd7e085dea0dcce9f2800af993afff2f960cd;hb=a3cf4cf656f0067aaf028f62c340e77c0dca7bbb;hp=5c16e7aae8a9c42d6e9c05975a9a499d2ed7ce3c;hpb=794cf077e3b1d4368f1103f393a4a56abd09e72a;p=sbcl.git

diff --git a/contrib/sb-posix/posix-tests.lisp b/contrib/sb-posix/posix-tests.lisp
index 5c16e7a..a82bd7e 100644
--- a/contrib/sb-posix/posix-tests.lisp
+++ b/contrib/sb-posix/posix-tests.lisp
@@ -363,11 +363,10 @@
 
 (deftest opendir.1
   (let ((dir (sb-posix:opendir "/")))
-    (if (sb-alien:null-alien dir)
-	(progn  (sb-posix:closedir dir)
-		t)
-	nil))
-  t)
+    (unwind-protect (sb-alien:null-alien dir)
+      (unless (sb-alien:null-alien dir)
+	(sb-posix:closedir dir))))
+  nil)
 
 (deftest readdir.1
   (let ((dir (sb-posix:opendir "/")))