anchor.diff:      :read-timeout *default-connection-timeout*
       :write-timeout *default-connection-timeout*
       :ssl-config nil
  -    :error-generator #'default-error-message-generator))
  +    :error-generator 'default-error-message-generator))
   
   (defmethod initialize-instance :after ((acceptor acceptor) &key &allow-other-keys)
     (with-slots (port ssl-config) acceptor
  
positive.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; A bare-bones error page generator
  
  (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><title>~d: ~a</title></head><body><h1>~2:*~d: ~a</h1></body></html>"
                status-code (reason-phrase status-code))
        (when (and error *show-lisp-errors-p*)
          (format s "<pre>~a~@[~%~%Backtrace:~%~%~a~]</pre>"
  
negative.code:               (escaped (lisp-implementation-version))
                (escaped (or host (address (acceptor request))))
                (scan ":\\d+$" (or host ""))
                (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"))
  
  