Revision: 3660 Author: hans URL: http://bknr.net/trac/changeset/3660

Use TRUENAME for XML file to parse in as cxml does not support logical path names.

U trunk/projects/bos/web/dictionary.lisp

Modified: trunk/projects/bos/web/dictionary.lisp =================================================================== --- trunk/projects/bos/web/dictionary.lisp 2008-07-28 14:18:12 UTC (rev 3659) +++ trunk/projects/bos/web/dictionary.lisp 2008-07-28 14:20:06 UTC (rev 3660) @@ -92,7 +92,7 @@ (string-trim '(#\space #\newline #\tab) string)) (load-language (language xml-path) (handler-case - (let ((xmls (cxml:parse-file xml-path (cxml-xmls:make-xmls-builder)))) + (let ((xmls (cxml:parse-file (truename xml-path) (cxml-xmls:make-xmls-builder)))) (assert (equal "dictionary" (cxml-xmls:node-name xmls)) nil "root element should be "dictionary"") (dolist (element (cxml-xmls:node-children xmls))