X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=2%2Fbase.lisp;h=01b3c7666e6b0565b60fd635654a083aef4b9ef3;hb=d0eb6dbc858446ac9d70b007a3b7fd589522e004;hp=0274c35b25320dc718da2738d5bffa12d34c8bd0;hpb=57df6eefa6b83ff8dede355af9b7a00acfef6adc;p=lml.git

diff --git a/2/base.lisp b/2/base.lisp
index 0274c35..01b3c76 100644
--- a/2/base.lisp
+++ b/2/base.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: base.lisp,v 1.4 2003/06/23 23:58:29 kevin Exp $
+;;;; $Id: base.lisp,v 1.6 2003/06/29 16:21:09 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -64,13 +64,13 @@
   (lml-write-char #\newline))
 
 
-(defmacro page ((out-file &key (format :xhtml11))
-		&body body)
+(defmacro html-file-page ((out-file &key (format :xhtml11))
+			  &body body)
   `(with-open-file (*html-stream*
 		    (lml-file-name ,out-file :output)
 		    :direction :output
 		    :if-exists :supersede)
-     (html-prologue ,format)
+     (dtd-prologue ,format)
      (html
       ((:html :xmlns "http://www.w3.org/1999/xhtml")
        ,@body))))