anchor.diff:                       (entry-replacement-attempt-new condition)))))
   
   (defun replace-entry-p (old new if-exists)
  -  "Return true if the new entry should replace the old one.
  -
  -IF-EXISTS determines how to find out:
  -
  -  :ERROR - signal an ENTRY-ALREADY-EXISTS error with a CONTINUE
  -           restart to replace the entry, and an ABORT restart to not
  -           replace it.
  -
  -  :WARN - replace the entry after signaling a warning.
  -
  -  :DONT-REPLACE - don't replace entry.
  -
  -  :REPLACE - replace entry."
  +  "Return true if the new entry should replace the old one.  IF-EXISTS
  +determines how to find out:
  +
  +  :ERROR
  +
  +    Signal an ENTRY-ALREADY-EXISTS error with a CONTINUE restart to
  +    replace the entry, and an ABORT restart to not replace it.
  +
  +  :WARN
  +
  +    Replace the entry after signaling a warning.
  +
  +  :DONT-REPLACE
  +
  +    Don't replace entry.
  +
  +  :REPLACE
  +
  +    Replace entry."
     (flet ((replace-it () (return-from replace-entry-p t))
            (dont-replace-it () (return-from replace-entry-p nil)))
       (ecase if-exists
  
positive.code: (defun call-with-if-failed-handler (if-failed function)
    "Call FUNCTION in a context according to IF-FAILED:
  
    :ERROR - signal an error on failure.
  
    NIL - return NIL on failure."
    (ecase if-failed
      (:error (funcall function))
      ((nil) (ignore-errors (funcall function)))))
  
negative.code:                                      :as-string as-string)
      (cond ((null expect) (values command argument))
            ((eq command expect) argument)
            (t (error 'authentication-error :command command :argument argument)))))
  
  (defun send-authentication-command (connection command &rest arguments)
    "Send an authentication command to the server."
  