From: Kevin M. Rosenberg Date: Mon, 16 Sep 2002 08:16:49 +0000 (+0000) Subject: r2704: Auto commit for Debian build X-Git-Tag: v2.5.5~175 X-Git-Url: http://git.kpe.io/?p=lml.git;a=commitdiff_plain;h=17b424bd0a2fbdf20bb945dcac07d8ccb239b68c r2704: Auto commit for Debian build --- diff --git a/lml.cl b/lml.cl index d4a4f5b..2c30bbb 100644 --- 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+ "") +(defun html4-prologue-string () + "") -(defconstant +xml-prologue-string+ "") +(defun xml-prologue-string () + "version=\"1.0\" encoding=\"iso-8859-1\" standalone=\"yes\"?>") -(defconstant +xhtml-prologue-string+ +(defun xhtml-prologue-string () "") (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))