From 794cf077e3b1d4368f1103f393a4a56abd09e72a Mon Sep 17 00:00:00 2001 From: Andreas Fuchs Date: Tue, 20 Jul 2004 20:58:04 +0000 Subject: [PATCH] 0.8.12.46: Fix a file descriptor leak in sb-posix's opendir test --- contrib/sb-posix/posix-tests.lisp | 7 +++++-- version.lisp-expr | 2 +- 2 files changed, 6 insertions(+), 3 deletions(-) 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" -- 1.7.10.4