#+allegro
(defun parse-xml-no-ws (str)
"Return list structure of XML string with removing whitespace strings"
(remove-tree-if #'string-ws? (parse-xml str)))
#+allegro
(defun parse-xml-no-ws (str)
"Return list structure of XML string with removing whitespace strings"
(remove-tree-if #'string-ws? (parse-xml str)))