anchor.diff:        (when limit
           (format stream "&limit=~A"
                   (url-encode-utf8 (format nil "~A" limit))))
  +      (when page
  +        (format stream "&page=~A"
  +                (url-encode-utf8 (format nil "~A" page))))
         (when recenttracks
           (format stream "&recenttracks=~A"
                   (url-encode-utf8 (format nil "~A" recenttracks))))
  
positive.code: 
  
  
  (defun user-get-loved-tracks (api-key user)
    "@short{Get the last 50 tracks loved by a user. 
  This service does not require authentication}
  @arg[api_key]{A Last.fm API key}
  @arg[user]{The user name to fetch the loved tracks for}
  @see-condition{lastfm-request-error}
  @return{An XML stream}"
    (let (uri)
      (with-output-to-string (stream)
        (format stream +user-get-loved-tracks+ api-key)
        (format stream "&user=~A" (url-encode-utf8 user))
        (setf uri (get-output-stream-string stream)))
      (perform-lastfm-query uri)))
  
  
negative.code:       (when period
          (format stream "&period=~A"
                  (url-encode-utf8 (format nil "~A" period))))
        (when limit
          (format stream "&limit=~A"
                  (url-encode-utf8 (format nil "~A" limit))))
        (when page
          (format stream "&page=~A"
                  (url-encode-utf8 (format nil "~A" page))))
        (setf uri (get-output-stream-string stream)))
      (perform-lastfm-query uri)))
  
  
  (defun user-get-top-tags (api-key user &key limit)
    "@short{Get the top tags used by this user}
  @arg[api_key]{A Last.fm API key}
  @arg[user]{The user name}
  @arg[limit]{The number of tags returned}
  @see-condition{lastfm-request-error}
  @return{An XML stream}"
    (let (uri)
      (with-output-to-string (stream)
        (format stream +user-get-top-tags+ api-key)
        (format stream "&user=~A" (url-encode-utf8 user))
        (when limit
          (format stream "&limit=~A"
                  (url-encode-utf8 (format nil "~A" limit))))
        (setf uri (get-output-stream-string stream)))
      (perform-lastfm-query uri)))
  
  
  (defun user-get-top-tracks (api-key user &key period limit page)
      "@short{Get the top tracks listened to by a user. You can stipulate a time 
  period. Sends the overall chart by default. }
  @arg[api_key]{A Last.fm API key}
  @arg[user]{The user name to fetch top tracks for}
  @arg[period]{overall | 3month | 6month | 12month - The time period over which 
  to retrieve top tracks for.}
  @arg[limit]{The number of results to fetch per page. Defaults to 50}
  @arg[page]{The page number to fetch. Defaults to first page}
  @see-condition{lastfm-request-error}
  @return{An XML stream}"
    (let (uri)
  