Update of /project/cl-soap/cvsroot/cl-soap/src In directory common-lisp.net:/tmp/cvs-serv29873/src

Modified Files: lxml.lisp Log Message: single symbols are also lxml

Date: Sat Sep 10 21:55:19 2005 Author: scaekenberghe

Index: cl-soap/src/lxml.lisp diff -u cl-soap/src/lxml.lisp:1.2 cl-soap/src/lxml.lisp:1.3 --- cl-soap/src/lxml.lisp:1.2 Fri Sep 9 16:17:37 2005 +++ cl-soap/src/lxml.lisp Sat Sep 10 21:55:19 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: lxml.lisp,v 1.2 2005/09/09 14:17:37 scaekenberghe Exp $ +;;;; $Id: lxml.lisp,v 1.3 2005/09/10 19:55:19 scaekenberghe Exp $ ;;;; ;;;; Some tools to manipulate lxml ;;;; @@ -14,14 +14,14 @@ (in-package :cl-soap)

(defun lxml-get-tag (lxml) - (if (symbolp (first lxml)) - (first lxml) - (first (first lxml)))) + (cond ((symbolp lxml) lxml) + ((stringp lxml) '()) + ((symbolp (first lxml)) (first lxml)) + (t (first (first lxml)))))

(defun lxml-get-attributes (lxml) - (if (symbolp (first lxml)) - '() - (rest (first lxml)))) + (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))