Also escape " to "
authorMatthew Mondor <mmondor@pulsar-zone.net>
Sun, 11 Sep 2011 01:59:08 +0000 (01:59 +0000)
committerMatthew Mondor <mmondor@pulsar-zone.net>
Sun, 11 Sep 2011 01:59:08 +0000 (01:59 +0000)
mmsoftware/cl/server/html.lisp

index d9533cd..b285455 100644 (file)
@@ -1,4 +1,4 @@
-;;;; $Id: html.lisp,v 1.8 2011/09/09 15:52:33 mmondor Exp $
+;;;; $Id: html.lisp,v 1.9 2011/09/11 01:59:08 mmondor Exp $
 
 #|
 
@@ -51,7 +51,7 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 (in-package :html)
 
 (defparameter *rcsid*
-  "$Id: html.lisp,v 1.8 2011/09/09 15:52:33 mmondor Exp $")
+  "$Id: html.lisp,v 1.9 2011/09/11 01:59:08 mmondor Exp $")
 
 
 (defparameter *html-mode* :xhtml
@@ -324,6 +324,7 @@ user code must explicitely use this function where necessary."
         (subst-chars ((#\< "&lt;")
                       (#\> "&gt;")
                       (#\& "&amp;")
+                      (#\" "&quot;")
                       (#\U00A0 "&nbsp;")))
        finally (return out))))