projects / lml.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 738cfb2)
r2704: Auto commit for Debian build
authorKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 16 Sep 2002 08:16:49 +0000 (08:16 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Mon, 16 Sep 2002 08:16:49 +0000 (08:16 +0000)
lml.cl patch | blob | history

diff --git a/lml.cl b/lml.cl
index d4a4f5bb70a24330868ccf97f7810cda88d1a2d4..2c30bbb644cf6d37d6519e6aef119b6ade7987b7 100644 (file)
--- a/lml.cl
+++ b/lml.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: lml.cl,v 1.4 2002/09/16 08:11:45 kevin Exp $
+;;;; $Id: lml.cl,v 1.5 2002/09/16 08:16:49 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -19,11 +19,13 @@
 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
 (in-package :lml)
 
-(defconstant +html4-prologue-string+ "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">")
+(defun html4-prologue-string ()
+  "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">")
 
-(defconstant +xml-prologue-string+  "<?xml version=\"1.0\" encoding=\"iso-8859-1\" standalone=\"yes\"?>")
+(defun xml-prologue-string ()
+  "version=\"1.0\" encoding=\"iso-8859-1\" standalone=\"yes\"?>")
 
-(defconstant +xhtml-prologue-string+
+(defun xhtml-prologue-string ()
   "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">")
 
 (defvar *print-spaces* nil)
@@ -125,8 +127,8 @@
 
 (defmacro xhtml-prologue ()
   `(progn
-     (lml-print "~A~%" +xml-prologue-string+)
-     (lml-print "~A~%" +xhtml-prologue-string+)))
+     (lml-print "~A~%" (xml-prologue-string))
+     (lml-print "~A~%" (xhtml-prologue-string))))
 
 (defmacro link (dest &body body)
   `(with a :href ,dest ,@body))
Common Lisp HTML generation macros