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@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