[Sbcl-commits] CVS: sbcl/contrib/sb-posix posix-tests.lisp,1.15,1.16

[Andreas F. <ant...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-posix
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3570/contrib/sb-posix

Modified Files:
	posix-tests.lisp 
Log Message:
0.8.12.47:
	Really fix the sb-posix opendir test case this time.

	I swear, this is my last SBCL commit tonight.


Index: posix-tests.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/posix-tests.lisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- posix-tests.lisp	20 Jul 2004 20:58:04 -0000	1.15
+++ posix-tests.lisp	20 Jul 2004 21:27:23 -0000	1.16
@@ -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 "/")))