From 6c855efd20425d9ae7ca1a9a470c7068b5c8f451 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 16 Sep 2002 08:10:11 +0000 Subject: [PATCH] r2702: Auto commit for Debian build --- lml.cl | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/lml.cl b/lml.cl index 1e7aece..c5d4a7a 100644 --- a/lml.cl +++ b/lml.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: lml.cl,v 1.2 2002/09/16 06:26:27 kevin Exp $ +;;;; $Id: lml.cl,v 1.3 2002/09/16 08:10:11 kevin Exp $ ;;;; ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -19,17 +19,12 @@ (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))) (in-package :lml) -(defconstant +html4-prologue-string+ - (format nil - "~%")) +(defconstant +html4-prologue-string+ "")) -(defconstant +xml-prologue-string+ - (format nil - "~%")) +(defconstant +xml-prologue-string+ "")) (defconstant +xhtml-prologue-string+ - (format nil - "~%")) + "")) (defvar *print-spaces* nil) (defvar *indent* 0) @@ -130,8 +125,8 @@ (defmacro xhtml-prologue () `(progn - (lml-print +xml-prologue-string+) - (lml-print +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)) -- 2.34.1