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

[Brian Mastenbrook]

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)