commit 3edd54b9f11b94f985027ac001f89273ee2a8b3d parent 7fc4f2a053445d03f3e22266d15bf85fa1d7b04e Author: Tomas Hlavaty <tom@logand.com> Date: Sat, 28 Jun 2014 20:19:47 +0200 dont necessary upcase in parse-xml Diffstat:
| M | xml.lisp | | | 7 | +++++-- |
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/xml.lisp b/xml.lisp @@ -93,9 +93,12 @@ (cons (if f :begin/ :begin) (cons e a))))))) (t (cons :text (till '(#\<)))))))) ;; TODO entities -(defun parse-xml (x) +(defun parse-xml (x &optional upcasep package) (labels ((id (x) - (intern (string-upcase (concatenate 'string x)) :keyword)) + (intern (if upcasep + (string-upcase (concatenate 'string x)) + (concatenate 'string x)) + (or package :keyword))) (xattrs (x) (loop for (f . r) in x