From: Andreas Fuchs <asf@boinkor.net>
Date: Tue, 20 Jul 2004 21:27:23 +0000 (+0000)
Subject: 0.8.12.47:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1e149c4cac88c5bbbdeaab502575d347d7acbda6;p=sbcl.git

0.8.12.47:
	Really fix the sb-posix opendir test case this time.

	I swear, this is my last SBCL commit tonight.
---

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 "/")))
diff --git a/version.lisp-expr b/version.lisp-expr
index 883d18b..65f44a9 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.12.46"
+"0.8.12.47"