anchor.diff:  
   
   
  -(defun user-get-top-albums (api-key user &key period)
  +(defun user-get-top-albums (api-key user &key period limit page)
       "@short{Get the top albums 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 albums for}
   @arg[period]{overall | 3month | 6month | 12month - The time period over which 
   to retrieve top albums 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)
  
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 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))))
  