From: Andreas Fuchs <asf@boinkor.net>
Date: Tue, 20 Jul 2004 20:58:04 +0000 (+0000)
Subject: 0.8.12.46:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=794cf077e3b1d4368f1103f393a4a56abd09e72a;p=sbcl.git

0.8.12.46:
	Fix a file descriptor leak in sb-posix's opendir test
---

diff --git a/contrib/sb-posix/posix-tests.lisp b/contrib/sb-posix/posix-tests.lisp
index 69fee84..5c16e7a 100644
--- a/contrib/sb-posix/posix-tests.lisp
+++ b/contrib/sb-posix/posix-tests.lisp
@@ -363,8 +363,11 @@
 
 (deftest opendir.1
   (let ((dir (sb-posix:opendir "/")))
-    (sb-alien:null-alien dir))
-  nil)
+    (if (sb-alien:null-alien dir)
+	(progn  (sb-posix:closedir dir)
+		t)
+	nil))
+  t)
 
 (deftest readdir.1
   (let ((dir (sb-posix:opendir "/")))
diff --git a/version.lisp-expr b/version.lisp-expr
index 4df2176..883d18b 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.45"
+"0.8.12.46"