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

Modified Files:
	lxml.lisp 
Log Message:
added comments

Date: Thu Sep 15 15:32:32 2005
Author: scaekenberghe

Index: cl-soap/src/lxml.lisp
diff -u cl-soap/src/lxml.lisp:1.3 cl-soap/src/lxml.lisp:1.4
--- cl-soap/src/lxml.lisp:1.3	Sat Sep 10 21:55:19 2005
+++ cl-soap/src/lxml.lisp	Thu Sep 15 15:32:32 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: lxml.lisp,v 1.3 2005/09/10 19:55:19 scaekenberghe Exp $
+;;;; $Id: lxml.lisp,v 1.4 2005/09/15 13:32:32 scaekenberghe Exp $
 ;;;;
 ;;;; Some tools to manipulate lxml
 ;;;;
@@ -14,16 +14,19 @@
 (in-package :cl-soap)
 
 (defun lxml-get-tag (lxml)
+  "Return the XML tag symbol of the lxml XML DOM"
   (cond ((symbolp lxml) lxml)
         ((stringp lxml) '())
         ((symbolp (first lxml)) (first lxml))
         (t (first (first lxml)))))
 
 (defun lxml-get-attributes (lxml)
+  "Return the XML attributes plist of the lxml XML DOM" 
   (cond ((or (symbolp lxml) (stringp lxml) (symbolp (first lxml))) '())
         (t (rest (first lxml)))))
 
 (defun lxml-find-tag (tag lxml)
-  (find tag lxml :key #'lxml-get-tag))       
+  "Find a specific tag in a lxml XML DOM list"
+  (find tag lxml :key #'lxml-get-tag))
 
 ;;;; eof