Also escape #\U00A0 to  
authorMatthew Mondor <mmondor@pulsar-zone.net>
Fri, 9 Sep 2011 15:52:33 +0000 (15:52 +0000)
committerMatthew Mondor <mmondor@pulsar-zone.net>
Fri, 9 Sep 2011 15:52:33 +0000 (15:52 +0000)
mmsoftware/cl/server/html.lisp

index b7384dd..d9533cd 100644 (file)
@@ -1,4 +1,4 @@
-;;;; $Id: html.lisp,v 1.7 2011/09/05 16:02:46 mmondor Exp $
+;;;; $Id: html.lisp,v 1.8 2011/09/09 15:52:33 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.7 2011/09/05 16:02:46 mmondor Exp $")
+  "$Id: html.lisp,v 1.8 2011/09/09 15:52:33 mmondor Exp $")
 
 
 (defparameter *html-mode* :xhtml
@@ -323,7 +323,8 @@ user code must explicitely use this function where necessary."
        do
         (subst-chars ((#\< "&lt;")
                       (#\> "&gt;")
-                      (#\& "&amp;")))
+                      (#\& "&amp;")
+                      (#\U00A0 "&nbsp;")))
        finally (return out))))