anchor.diff:      (setf *ws-stream* (unless must-close stream))
       (if (= 200 status-code)
         body
  -      (error (format nil "HTTP status ~a: ~a" status-code reason-phrase)))))
  +      (error (format nil "HTTP status ~A: ~A" status-code reason-phrase)))))
   
   (defun ws-request (url parameters)
     "Talk to the web service."
  
positive.code: 
  (defun make-url (resource &optional mbid)
    "Generate the URL for a web service request."
    (format nil "~a~(~a~)~@[/~a~]"
            *base-url* resource mbid))
  
  (defun join-incs (incs)
    "Create a string representing all the incs."
    (format nil "~{~(~a~)~^+~}"
            incs))
  ;;;; MusicBrainz resource interface.
  
  
negative.code:   "Current version of the package.")
  
  (defparameter *user-agent*
    (format nil "~(~A~)/~A" (package-name *package*) *version*)
    "User agent string sent to the server.")
  
  (defparameter *base-url* "http://musicbrainz.org/ws/2/"
  