Update of /project/s-xml/cvsroot/s-xml/src In directory common-lisp.net:/tmp/cvs-serv23378/src
Modified Files: xml.lisp Log Message: changed hook function comments
Date: Fri Jun 11 01:22:47 2004 Author: scaekenberghe
Index: s-xml/src/xml.lisp diff -u s-xml/src/xml.lisp:1.1.1.1 s-xml/src/xml.lisp:1.2 --- s-xml/src/xml.lisp:1.1.1.1 Mon Jun 7 11:49:58 2004 +++ s-xml/src/xml.lisp Fri Jun 11 01:22:47 2004 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xml.lisp,v 1.1.1.1 2004/06/07 18:49:58 scaekenberghe Exp $ +;;;; $Id: xml.lisp,v 1.2 2004/06/11 08:22:47 scaekenberghe Exp $ ;;;; ;;;; This is a Common Lisp implementation of a very basic XML parser. ;;;; The parser is non-validating and not at all complete (no CDATA). @@ -161,9 +161,9 @@ seed)) (finish-element-hook :documentation "Called when element ends" ;; Handle the end of an xml element with name and attributes, - ;; receiving the seed that was passed to our parent, - ;; receiving seed from last child/contents (or from new-level-hook for empty tags), - ;; return final seed for this element to higher levels + ;; receiving the seed that was passed by our parent, + ;; receiving seed from last child/contents + ;; return final seed for this element :accessor get-finish-element-hook :initarg :finish-element-hook :initform #'(lambda (name attributes parent-seed seed) @@ -171,7 +171,7 @@ seed)) (text-hook :documentation "Called when text is found" ;; Handle text in string, found as child/contents, - ;; receiving seed from parent element, return seed" + ;; receiving seed from parent element, return final seed for this element :accessor get-text-hook :initarg :text-hook :initform #'(lambda (string seed)