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

Modified Files:
	xml.lisp 
Log Message:
added :start and :end keywords to print-string-xml

Date: Mon Jan 24 02:03:09 2005
Author: scaekenberghe

Index: s-xml/src/xml.lisp
diff -u s-xml/src/xml.lisp:1.5 s-xml/src/xml.lisp:1.6
--- s-xml/src/xml.lisp:1.5	Fri Oct 22 03:36:58 2004
+++ s-xml/src/xml.lisp	Mon Jan 24 02:03:09 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: xml.lisp,v 1.5 2004/10/22 10:36:58 scaekenberghe Exp $
+;;;; $Id: xml.lisp,v 1.6 2005/01/24 10:03:09 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).
@@ -80,9 +80,10 @@
 	      :adjustable t
 	      :fill-pointer 0))
 
-(defun print-string-xml (string stream)
+(defun print-string-xml (string stream &key (start 0) end)
   "Write the characters of string to stream using basic XML conventions"
-  (loop for char across string
+  (loop for offset upfrom start below (or end (length string))
+        for char = (char string offset)
 	do (case char
 	     (#\& (write-string "&" stream))
 	     (#\< (write-string "<" stream))