[s-xml-cvs] CVS update: s-xml/src/xml.lisp

[Sven Van Caekenberghe]

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)