(defclass <page> ()
  ((title
    :initarg :title
    :initform ""
    :accessor <page>-title )
   (extra-head
     :initarg :title
     :initform ""
     :accessor <page>-extra-head )
   (content
     :initarg :content
     :initform (make-hash-table)
     :accessor <page>-content ) ) )



(defgeneric <page>-content-field (page field))



(defmethod <page>-content-field ((page <page>) field)
  (gethash field (<page>-content page)) )



(defsetf <page>-content-field (page field) (value)
         (setf (gethash field (<page>-content page)) value) )