Changeset 3660
- Timestamp:
- 07/28/08 16:20:06 (4 months ago)
- Files:
-
- trunk/projects/bos/web/dictionary.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/projects/bos/web/dictionary.lisp
r3656 r3660 93 93 (load-language (language xml-path) 94 94 (handler-case 95 (let ((xmls (cxml:parse-file xml-path(cxml-xmls:make-xmls-builder))))95 (let ((xmls (cxml:parse-file (truename xml-path) (cxml-xmls:make-xmls-builder)))) 96 96 (assert (equal "dictionary" (cxml-xmls:node-name xmls)) nil 97 97 "root element should be \"dictionary\"")
