anchor.diff:       collect (get-text-of-element story tag)))
   
   (defun tootsbook-headline-stories ()
  +  "Returns  the  headline  elements   (DOM  objects)  from  the  current
  +headlines on Tootsbook."
     (dom:get-elements-by-tag-name
      (dom:document-element
       (tootsbook-headlines)) "item"))
   
   (defun unescape-& (string)
  +  "Replaces SGML-style &amp; with #\&"
     (cl-ppcre:regex-replace-all "&amp;" string "&"))
   
   (defun get-text-of-element (node element)
  +  "Extracts  the  text  under  the  given ELEMENT  type  under  NODE  as
  +a singular string."
     (apply #'concatenate 'string
            (map 'list (compose #'unescape-& #'dom:node-value)
                 (dom:child-nodes
  
positive.code:     (format *error-output* "ZOMG! error report from client:~%~s" report)))
  
  (defroute "/tootstest/version" ()
    (render #p"version.html"
            (list :product "tootstest"
                  :version (asdf:component-version (asdf:find-system :tootstest))
                  :machine (list :version (machine-version)
                                 :type (machine-type)
                                 :instance (string-capitalize (machine-instance)))
                  :lisp (list :type (lisp-implementation-type)
                              :version (lisp-implementation-version))
                  :software (list :type (software-type)
                                  :version (software-version))
                  :acceptor (list :name (request-server-name *request*)
                                  :port (request-server-port *request*)
                                  :protocol (request-server-protocol *request*))
                  :copyright-latest #.(local-time:format-timestring
                                       nil (local-time:now)
                                       :format '(:year))
                  :build-date #.(local-time:format-timestring
                                 nil (local-time:now)
                                 :format '(:year #\- :month #\- :day)))))
  
  ;; Error pages
  
  (defun wants-json-p ()
    (search "application/json" (gethash "Accept" (request-headers *request*))))
  
  (defmethod on-exception ((app <web>) code)
    (declare (ignore app))
    (cond
      ((wants-json-p)
  
negative.code:   :test 'equal)
  
  (defroute "/tootstest/zomg" ()
    "Zombies! Oh, my God! — The  client-side can report its crashes to the
  host-side, here. The crash report should arrive in JSON format."
    (assert (string-equal +application/json+ (request-content-type *request*)
                          :end2 #.(length +application/json+))
            () "Zombies should always use JSON, not ~a" (request-content-type *request*))
  