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