anchor.diff:  (defvar *error-handler* 'log-api-error)
   
   (defvar *default-error-handler* 'default-error-handler)
  -                                  
  +
   (defun default-error-handler (error)
     (log-api-error error)
     (setup-reply-from-error error))
  
positive.code:                                                    (stream rs.serialize::*serializer-output*) &rest args)
    (declare (ignore args))
    (rs.serialize:with-object ("error" :serializer serializer
                                        :stream stream)
      (rs.serialize:set-attribute
       "detail"
       (let ((debug-mode (if (boundp 'rs:*server-debug-mode*)
  
negative.code:                                      (stream rs.serialize::*serializer-output*) &rest args)
    (declare (ignore args))
    (rs.serialize:with-object ("error" :serializer serializer
                                       :stream stream)
      (rs.serialize:set-attribute
       "message"
       (apply #'format
              nil
              (simple-condition-format-control error)
  