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: 	    response)
  	  status-code)))
      (t 
       (if error-p
  	 (rs.error:http-error status-code)
  	 (values 
  	  (if parse-response
  