Update of /project/cl-soap/cvsroot/cl-soap/src In directory common-lisp.net:/tmp/cvs-serv27797/src Modified Files: lxml.lisp Log Message: actual-name will leave symbols alone Date: Thu Oct 6 13:07:29 2005 Author: scaekenberghe Index: cl-soap/src/lxml.lisp diff -u cl-soap/src/lxml.lisp:1.9 cl-soap/src/lxml.lisp:1.10 --- cl-soap/src/lxml.lisp:1.9 Mon Oct 3 14:29:21 2005 +++ cl-soap/src/lxml.lisp Thu Oct 6 13:07:29 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: lxml.lisp,v 1.9 2005/10/03 12:29:21 scaekenberghe Exp $ +;;;; $Id: lxml.lisp,v 1.10 2005/10/06 11:07:29 scaekenberghe Exp $ ;;;; ;;;; Common utilities (mostly lxml) and some internal/experimental stuff ;;;; @@ -50,11 +50,13 @@ ;;; internal shared/common code (defun actual-name (qname) - "For now we ignore prefixes ;-)" - (multiple-value-bind (prefix identifier) - (s-xml:split-identifier qname) - (declare (ignore prefix)) - identifier)) + "For now we ignore prefixes ;-) - symbols are untouched" + (if (stringp qname) + (multiple-value-bind (prefix identifier) + (s-xml:split-identifier qname) + (declare (ignore prefix)) + identifier) + qname)) (defun find-item-named (item-name sequence) (find (actual-name item-name) sequence :test #'string-equal :key #'get-name))