From bmastenbrook at common-lisp.net Thu Aug 19 14:55:21 2004 From: bmastenbrook at common-lisp.net (Brian Mastenbrook) Date: Thu, 19 Aug 2004 07:55:21 -0700 Subject: [s-xml-cvs] CVS update: s-xml/src/xml.lisp Message-ID: 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)