anchor.diff:    (multiple-value-bind (body status headers)
         (do-http-request/retry (update-endpoint solr query-alist)
           :method :post :content body :content-type "text/xml"
  -        :external-format :utf-8)
  +        :external-format #+allegro (crlf-base-ef :utf-8) #-allegro :utf-8)
       (parse-response body status headers)))
   
   ;; Parse response
  
positive.code: (defun update-endpoint (solr &optional query-params)
    (let ((uri (solr-uri solr)))
      (if query-params
          (format nil "~a/update?~a" uri (net.aserve:query-to-form-urlencoded query-params :external-format :utf-8))
          (format nil "~a/update" uri))))
  
  ;; Rendering record to xml.  Needs to be called within the dynamic
  
negative.code:                   end))))
      (multiple-value-bind (body status headers)
          (do-http-request/retry uri
            :method :get :query q :external-format #+allegro (crlf-base-ef :utf-8)
  	  #-allegro :utf-8)
        (translate-result
         (parse-response body status headers)
         result-type))))
  