anchor.diff:  (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)))  ; make-start-page at the end of this file
  +  (let ((main-page (make-start-page)))
       (setf (widget-children root)
             (make-instance 'on-demand-selector
                            :lookup-function (lambda (selector tokens)
  
positive.code:                                             " (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
  
negative.code:                                             (if (string= (first tokens) "impressum")
                                                  (values (md "impressum.md") tokens nil nil)
                                                  (values main-page nil tokens nil)))))))
  ;;; Start page
  
  (defun make-start-page ()
    (let ((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)))))
      (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))))))
  ;;; Fun (i.e., trying things out)
  
  (defun make-fun-page ()
  