anchor.diff:                (escaped (lisp-implementation-version))
                 (escaped (or host (address (acceptor request))))
                 (scan ":\\d+$" (or host ""))
  -              (port (acceptor request))))))
  -
  +              (port (acceptor request)))))
  +
  +
  +      (format s "~&</div></body></html>"))))
  +
  +(defun reason-phrase (status-code)
  +  "Returns a reason phrase for the HTTP return code STATUS-CODE (which
  +should be an integer) or NIL for return codes Toot doesn't know."
  +  (gethash status-code *http-reason-phrase-map* "No reason phrase known"))
  +
  
positive.code:     :read-timeout *default-connection-timeout*
      :write-timeout *default-connection-timeout*
      :ssl-config nil
      :error-generator #'default-error-message-generator))
  
  (defmethod initialize-instance :after ((acceptor acceptor) &key &allow-other-keys)
    (with-slots (port ssl-config) acceptor
  
negative.code:                   (when (and backtrace *show-lisp-backtraces-p*)
                      (escape-for-html (princ-to-string backtrace)))))
  
        (flet ((escaped (arg) (and arg (escape-for-html arg))))
          (let ((host (request-header :host request)))
            (format s "<address><a href='~a'>Toot ~a</a> running on <a href='~A'>(~A ~A)</a>~@[ at ~A~:[ (port ~D)~;~]~]</address>"
                +toot-project-url+
                *toot-version*
                +implementation-link+
  