;;;; 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