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)
