anchor.diff:  	response)
         status-code))
       ((assoc status-code rs.error::*http-status-codes-conditions*)
  -     (if signal-condition
  +     (if error-p
   	 (error (cdr (assoc status-code rs.error::*http-status-codes-conditions*)))
   	 (values 
   	  (if parse-response
  
positive.code: 				    ,status-code 
  				    accept
  				    parse-response 
  				    signal-condition))))))))
  
  (defun handle-api-response (response status-code accept parse-response signal-condition)
    (cond
      ((and (>= status-code 200)
            (< status-code 400))
  
negative.code: 		      (list '(accept "application/json"))
  		      (list '(additional-headers ()))
  		      (list '(parse-response t))
  		      (list '(error-p nil))
  		      (when (authorizations resource-operation)
  			(list '(authorization (error "Provide an authorization value"))))
  		      (when optional-args
  