anchor.diff:  		   :value "Main Page"
   		   :onclick "window.location='../'")))))
   
  -(publish-page index
  -  (:standard-page
  -   (:title "")
  -   (:body
  -    (:indexbuttons)
  -    (:indextable *threads-query*)
  -    (echo *fake-copyright*))))
  -
  -;; publish index to /
  -(publish :path "/" :function 'index)
  -
   (publish-page unicode-test
     (:standard-page
      (:title "Unicode Test")
  
positive.code: ;;; The basic format that every viewable page will follow.
  (define-html-macro :standard-page ((&key title) &body body)
    `(:html
      (:head (:title ,(concatenate 'string
  				 title (if (equal title "")
  					   ""
  					   " - ")
  				 *site-name*))
  	   ,@*head*)
      (:body
       (:div :class "container"
  	   ,@*header*
  	   (:h2 ,title)
  	   ,@body))))
  
  ;;; this function creates and publishes page <name> at https://your-site.com/<name>
  (defmacro publish-page (name &body body)
  
negative.code: 		      (concatenate 'string "/" (symbol-name name)))
  	      :function ',name)))
  
  ;; publish index to /
  (publish :path "/" :function 'index)
  
  ;;; web pages beyond here
  (publish-page index
    (:standard-page
     (:title "")
     (:body
      (:indexbuttons)
      (:indextable *threads-query*)
      (echo *fake-copyright*))))
  
  (publish-page login
    (:standard-page
     (:title "Login")
  