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

[BKNR Commits]

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