Commit 3f48764d authored by Brian Mastenbrook's avatar Brian Mastenbrook
Browse files

Internet Explorer doesn't understand the ' XML entity, so I've commented...

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.
parent f26ef61a
;;;; -*- mode: lisp -*-
;;;;
;;;; $Id: xml.lisp,v 1.2 2004/06/11 08:22:47 scaekenberghe Exp $
;;;; $Id: xml.lisp,v 1.3 2004/06/11 11:14:42 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).
......@@ -88,7 +88,9 @@
(#\< (write-string "&lt;" stream))
(#\> (write-string "&gt;" stream))
(#\" (write-string "&quot;" stream))
(#\' (write-string "&apos;" stream))
#+nil (#\' (write-string "&apos;" 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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment