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: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; A bare-bones error page generator
  
  (defparameter *error-css* "
  body {
    font-family: \"Gill Sans\", sans-serif;
    width: 600px;
    margin: 1in auto;
  
  }
  
  h1 { font-size: 64px; }
  
  div {
    text-align: center;
    background: #ddddff;
    padding: 10px;
    border: thin solid black;
    height: 300px;
  }
  ")
  
  (defun default-error-message-generator (request error backtrace)
    "A function that generates a bare-bones error page to be used as an error page generator."
    (let ((status-code (status-code request)))
      (with-output-to-string (s)
        (format s "~&<html><head><style type='text/css'>~a</style><title>~d: ~a</title></head><body><div><h1>~2:*~d: ~a</h1>"
                *error-css*
                status-code (reason-phrase status-code))
        (when (and error *show-lisp-errors-p*)
          (format s "<pre>~a~@[~%~%Backtrace:~%~%~a~]</pre>"
  