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))