Update of /project/s-xml/cvsroot/s-xml/src In directory common-lisp.net:/home/bmastenbrook/s-xml/src
Modified Files: xml.lisp Log Message: Internet Explorer doesn't understand the ' XML entity, so I've commented that out for now. Also, using actual newlines for newlines is probably better than using #xA, which won't get any end of line conversion by the server or user agent.
Date: Thu Aug 19 07:55:20 2004 Author: bmastenbrook
Index: s-xml/src/xml.lisp diff -u s-xml/src/xml.lisp:1.3 s-xml/src/xml.lisp:1.4 --- s-xml/src/xml.lisp:1.3 Fri Jun 11 04:14:42 2004 +++ s-xml/src/xml.lisp Thu Aug 19 07:55:20 2004 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xml.lisp,v 1.3 2004/06/11 11:14:42 scaekenberghe Exp $ +;;;; $Id: xml.lisp,v 1.4 2004/08/19 14:55:20 bmastenbrook 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). @@ -88,7 +88,9 @@ (#< (write-string "<" stream)) (#> (write-string ">" stream)) (#" (write-string """ stream)) - (#' (write-string "'" stream)) + #+nil (#' (write-string "'" stream)) + (#' (write-string "'" stream)) + (#\Newline (write-string (string #\newline) stream)) (t (if (and (<= 32 (char-code char)) (<= (char-code char) 126)) (write-char char stream)