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