[py-configparser-cvs] r43 - branches/1.0.x

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Jun 20 17:58:52 2008
New Revision: 43

Modified:
   branches/1.0.x/parser.lisp
Log:
Backport r42 (Fix missing files treatment) from trunk.

Modified: branches/1.0.x/parser.lisp
==============================================================================
--- branches/1.0.x/parser.lisp	(original)
+++ branches/1.0.x/parser.lisp	Fri Jun 20 17:58:52 2008
@@ -190,7 +190,7 @@
 
 Returns as values the configuration and the list of files actually read."
   (let (files-read)
-    (dolist (filename (mapcar #'probe-file filenames)
+    (dolist (filename (remove-if-not #'probe-file filenames)
              (values config files-read))
       (with-open-file (s filename
                          :direction :input