[py-configparser-cvs] r42 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Jun 14 04:11:01 2008
New Revision: 42

Modified:
   trunk/parser.lisp
Log:
Fix missing files treatment (by ignoring them).

Found by: Ury Marshak <urym at two-bytes.com>


Modified: trunk/parser.lisp
==============================================================================
--- trunk/parser.lisp	(original)
+++ trunk/parser.lisp	Sat Jun 14 04:11:01 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