Add newline at end of HTML documents
authorMatthew Mondor <mmondor@pulsar-zone.net>
Mon, 5 Sep 2011 16:02:46 +0000 (16:02 +0000)
committerMatthew Mondor <mmondor@pulsar-zone.net>
Mon, 5 Sep 2011 16:02:46 +0000 (16:02 +0000)
mmsoftware/cl/server/html.lisp

index 6519cd6..b7384dd 100644 (file)
@@ -1,4 +1,4 @@
-;;;; $Id: html.lisp,v 1.6 2011/08/27 03:45:50 mmondor Exp $
+;;;; $Id: html.lisp,v 1.7 2011/09/05 16:02:46 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.6 2011/08/27 03:45:50 mmondor Exp $")
+  "$Id: html.lisp,v 1.7 2011/09/05 16:02:46 mmondor Exp $")
 
 
 (defparameter *html-mode* :xhtml
@@ -189,7 +189,9 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
                ;; Close tag if needed
                (when (and last-p tag close-p)
-                 (add (format nil "</~A>" tag))
+                 (add (if (string-equal "html" tag)
+                          (format nil "</~A>~%" tag)
+                          (format nil "</~A>" tag)))
                  (setf tag nil
                        close-p t))))))
       out)))