anchor.diff:  (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?~a" uri
  +		(net.aserve:query-to-form-urlencoded query-params :external-format
  +						     #+allegro (crlf-base-ef :utf-8)
  +						     #-allegro :utf-8))
           (format nil "~a/update" uri))))
   
   ;; Rendering record to xml.  Needs to be called within the dynamic
  
positive.code:   (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)
      (parse-response body status headers)))
  
  ;; Parse response
  
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))))
  