anchor.diff:    "String &keys (lang Keyword) (format (Keyword or String or (Keyword Integer &optional Character))) -> String"
     (format-timestring nil date :format format))
   
  -(def-page-accessor page-tags content-entry-tags tags (path lang)
  -  "String &keys (lang Keyword) -> (String)
  -TODO: Create formatted string of links."
  -  tags)
  -
   (def-page-accessor page-title content-entry-title title (path lang)
     "String &keys (lang Keyword) -> String"
     title)
  
positive.code:   last-modified
    creation-date
    date
    tags
    author
    title
    template
  
negative.code: 	       :date (if-let ((date (get-data :date)))
  		       (make-time date creation-date)
  		       creation-date)
  	       :author (getf *environment* :author)
  	       :title (getf *environment* :title)
  	       :template template
  