[cl-soap-cvs] CVS update: cl-soap/src/lxml.lisp
Sven Van Caekenberghe
scaekenberghe at common-lisp.net
Thu Sep 15 13:32:33 UTC 2005
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
More information about the Cl-soap-cvs
mailing list