;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jun 2003
;;;;
-;;;; $Id: genpage.lisp,v 1.1 2003/07/16 16:02:21 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of wol, is Copyright (c) 2003 by Kevin M. Rosenberg
;;;; *************************************************************************
-(in-package #:wol)
+(in-package wol)
(defvar *header-table* (make-hash-table :size 100 :test 'eq)
"Table of header functions indexed by site")
(when title-str
(html (:title (lml-write-string title-str)))))))
-
(defun page-prologue (title format css altcss)
(ecase format
(:xml