anchor.diff:                                              " (may not work)"))))
                    :on-login #'check-login))
   
  -;;; Start page
  -
  -(defparameter *page-list* (list (cons "home"      (make-home-page))
  -                                (cons "math"      (make-math-page))
  -                                (cons "poetry"    (make-poems-page))
  -                                (cons "fun"       (make-fun-page))
  -                                (cons "impressum" (md "impressum.md"))
  -                                (cons "essays"    (make-essay-page))
  -                                (cons "about"     (md "about.md"))
  -                                (cons "internal"  (make-admin-page))))
  -
  -(defun make-start-page ()
  -  (make-instance 'on-demand-selector
  -                 :lookup-function (lambda (selector tokens)
  -                                    (declare (ignore selector))
  -                                    (let ((widget (or (and (eq nil (first tokens))
  -                                                           (cdr (first *page-list*)))
  -                                                      (cdr (assoc (first tokens) *page-list*
  -                                                                  :test #'equalp))
  -                                                      (make-widget
  -                                                       (f_%
  -                                                         (with-html
  -                                                           (:div :class "http-not-found"
  -                                                                 "Sorry, that page does not exist.")))))))
  -                                      (values widget (list (first tokens)) (rest tokens) :no-cache)))))
  -
   ;;;
   
   nil
  
positive.code:                                             (if (string= (first tokens) "impressum")
                                                  (values (md "impressum.md") tokens nil nil)
                                                  (values main-page nil tokens nil)))))))
  
  ;;; Fun (i.e., trying things out)
  
  (defun make-fun-page ()
  
negative.code: (defun init-user-session (root)
    (unless *initial-poem*
      (setf *initial-poem* (find-poem-by-start "I went to the woods")))
    (let ((main-page (make-start-page)))
      (setf (widget-children root)
            (make-instance 'on-demand-selector
                           :lookup-function (lambda (selector tokens)
  