[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-serv9321/src

Modified Files:
	lxml.lisp 
Log Message:
added lxml-get-content as proper way to access lxml content (1st child)

Date: Fri Sep 30 21:56:01 2005
Author: scaekenberghe

Index: cl-soap/src/lxml.lisp
diff -u cl-soap/src/lxml.lisp:1.7 cl-soap/src/lxml.lisp:1.8
--- cl-soap/src/lxml.lisp:1.7	Sun Sep 25 14:44:18 2005
+++ cl-soap/src/lxml.lisp	Fri Sep 30 21:56:00 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: lxml.lisp,v 1.7 2005/09/25 12:44:18 scaekenberghe Exp $
+;;;; $Id: lxml.lisp,v 1.8 2005/09/30 19:56:00 scaekenberghe Exp $
 ;;;;
 ;;;; Some tools to manipulate lxml
 ;;;;
@@ -34,6 +34,10 @@
   (cond ((or (symbolp lxml) 
              (stringp lxml)) '())
         (t (rest lxml))))
+
+(defun lxml-get-contents (lxml)
+  "Return the contents (first child) of the lxml XML DOM"
+  (first (lxml-get-children lxml)))
 
 (defun lxml-find-tag (tag lxml)
   "Find a specific tag in a lxml XML DOM list"