anchor.diff:      (number val)
       (boolean (xbool val))
       (string val)
  -    (symbol val)
  +    (symbol (symbol-name val))
       (date-time
        (with-output-to-string (s)
          (let ((*date-time-fmt* "%Y-%m-%dT%H:%M:%SZ"))
  
positive.code:   (labels ((search-result (lxml)
               (cond ((not (consp lxml)) nil)
                     ((and (consp lxml) (consp (car lxml))
                           (eq (caar lxml) 'result)
                           (equal (cadr (member 'name (cdar lxml))) "response"))
                      (cdr lxml))             ;found
                     (t (dolist (node (cdr lxml))
                          (let ((r (search-result node)))
  
negative.code: 
  ;; Parse response
  (defun parse-response (body status headers)
    (let ((lxml (let ((*package* (find-package :keyword))) (parse-xml body))))
      (when (not (eql status 200))
        (error 'solr-error :status-code status :response-headers headers
               :response-body lxml))
  