;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: base.lisp,v 1.5 2003/06/24 17:48:41 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
;;;;
(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