[bknr-cvs] hans changed trunk/projects/bos/web/dictionary.lisp

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))
participants (1)
-
BKNR Commits