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"