anchor.diff:      (when incs
         (push (cons "inc" (join-incs incs)) args))
       (when type
  -      (push (cons "type" (format nil "~(~a~)" type)) args))
  +      (push (cons "type" (format nil "~(~A~)" type)) args))
       (when status
  -      (push (cons "status" (format nil "~(~a~)" status)) args))
  +      (push (cons "status" (format nil "~(~A~)" status)) args))
       (ws-request (make-url resource mbid)
                   args)))
   
  
positive.code: status of some incs may be optionally restricted.
  
  The second returned value is the function to call for the next page of results."
    (let ((args (list (cons (format nil "~(~a~)" filter-resource)
                            mbid)
                      (cons "limit" (format nil "~a" *ws-per-page*))
                      (cons "offset" (format nil "~a" (* page-offset *ws-per-page*))))))
      (when incs
        (push (cons "inc" (join-incs incs)) args))
      (when type
        (push (cons "type" (format nil "~(~a~)" type)) args))
      (when status
        (push (cons "status" (format nil "~(~a~)" status)) args))
      (values
        (ws-request (make-url resource)
                    args)
  
negative.code:     (setf *ws-stream* (unless must-close stream))
      (if (= 200 status-code)
        body
        (error (format nil "HTTP status ~A: ~A" status-code reason-phrase)))))
  
  (defun ws-request (url parameters)
    "Talk to the web service."
  