[cl-soap-cvs] CVS update: cl-soap/src/lxml.lisp

[Sven Van Caekenberghe]

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