anchor.diff:           :initarg  :poem
            :type poem)))
   
  -(defmethod render-widget ((poem-widget standard-poem-widget) &key inlinep)
  -  (declare (ignore inlinep))
  +(defmethod render-widget ((poem-widget standard-poem-widget) &key &allow-other-keys)
     (let ((poem (poem poem-widget)))
       (with-html
         (:div :class "widget standard-poem"
  
positive.code: 
  ;;;
  
  (defwidget poem-selector (on-demand-selector)
    ((poem-widget-class :accessor poem-selector-poem-widget-class
                        :initarg  :poem-widget-class
  
negative.code:   (setf (on-demand-lookup-function obj)
          (lambda (obj tokens)
            (let* ((poems-list (find-persistent-objects *store* 'poem))
                   (widget     (make-instance 'widget)))
              (setf (widget-children widget)
                    (mapcar #'make-widget
                            (list
                             (f_% (with-html
                                    (:div :class "poem-selector"
                                      (:h2 "Selected Poems")
                                      (:p "Here you may find a very personal collection of poems I like.")
                                      (:p "When I find some more time, you may also select poems by
                                          several criteria like author, title, contains...  But this
                                          needs to be implemented.  Right now, you just see all of
                                          them."))
                                    (:hr)))
                             (mapcan (lambda (poem)
                                       (list
                                        (make-foldable-poem-widget widget
                                                                   poem
                                                                   (poem-selector-poem-widget-class obj)
                                                                   :folded)
                                        (f_% (with-html (:hr)))))
                                     poems-list))))
              (values widget tokens nil :no-cache)))))
  
  ;;;
  