anchor.diff:  
   
   
  -(defun user-get-loved-tracks (api-key user)
  +(defun user-get-loved-tracks (api-key user &key limit page)
     "@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}
  +@arg[limit]{An integer representing the number of results to fetch per page. Defaults to 50}
  +@arg[page]{An integer representing the page number to fetch. Defaults to first page}
   @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))
  +      (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)))
   
  
positive.code:       (when limit
          (format stream "&limit=~A"
                  (url-encode-utf8 (format nil "~A" limit))))
        (when recenttracks
          (format stream "&recenttracks=~A"
                  (url-encode-utf8 (format nil "~A" recenttracks))))
  
negative.code:     (perform-lastfm-query uri)))
  
  
  (defun user-get-friends (api-key user &key limit page recenttracks)
    "@short{Get a list of the user's friends on Last.fm
  This service does not require authentication}
  @arg[api_key]{A Last.fm API key}
  @arg[user]{The last.fm username to fetch the friends of}
  @arg[limit]{An integer used to limit the number of friends returned}
  @arg[page]{An integer representing the page number to fetch. Defaults to first page}
  @arg[recenttracks]{Whether or not to include information about friends' recent 
  listening in the response}
  @see-condition{lastfm-request-error}
  