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