;;;; 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
;; -*- mode: common-lisp; package: lml2 -*-
;;
-;; $Id: htmlgen.lisp,v 1.10 2003/06/25 21:24:09 kevin Exp $
+;; $Id: htmlgen.lisp,v 1.11 2003/06/29 16:21:09 kevin Exp $
;;
;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA
;; copyright (c) 2003 Kevin Rosenberg
(unless body
(error "must have a body with :insert-file"))
`(progn ,@(mapcar #'(lambda (bod)
- `(lml-load-path ,bod))
+ `(lml-load ,bod))
body))))
(named-function html-nbsp-print-function
(declare (ignore ent unknown subst stream args))
(assert (eql 2 (length form)))
(if (eq cmd :full)
- (lml-load-path (cadr form))
+ (lml-load (cadr form))
(error ":insert-file must be given an argument")))))
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: June 2003
;;;;
-;;;; $Id: package.lisp,v 1.3 2003/06/23 23:58:29 kevin Exp $
+;;;; $Id: package.lisp,v 1.4 2003/06/29 16:21:09 kevin Exp $
;;;;
;;;; This file, part of LML2, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;; base.lisp
#:reset-indent
- #:page
+ #:html-file-page
#:dtd-prologue
#:lml-format
#:lml-print