anchor.diff:  (defvar *users/contributees* "https://api.twitter.com/1.1/users/contributees.json")
   (defvar *users/contributors* "https://api.twitter.com/1.1/users/contributors.json")
   (defvar *users/profile-banner* "https://api.twitter.com/1.1/users/profile_banner.json")
  +(defvar *users/report-spam* "https://api.twitter.com/1.1/users/report_spam.json")
  +(defvar *users/suggestions/slug* "https://api.twitter.com/1.1/users/suggestions/~a.json")
  +(defvar *users/suggestions* "https://api.twitter.com/1.1/users/suggestions.json")
  +(defvar *users/suggestions/slug/members* "https://api.twitter.com/1.1/users/suggestions/~a/members.json")
   
   (defclass* user ()
     (id screen-name contributors created-at
  
positive.code:   (mapc #'(lambda (size) (setf (cdr size) (make-banner size)))
          (cdr (assoc :sizes (signed-request *users/profile-banner* :parameters (prepare* user-id screen-name) :method :GET)))))
  
  (defgeneric save (object)
    (:documentation "Save the given object to twitter. 
  Does not guarantee to save every attribute, see the individual functions."))
  
negative.code:   (:height (cdr (assoc :h (cdr parameters))))
    (:url (cdr (assoc :url (cdr parameters)))))
  
  (defclass* slug ()
    (name slug size users)
    (:documentation "Class representation of a twitter suggestion (slug) object."))
  
  (defmethod print-object ((slug slug) stream)
    (print-unreadable-object (slug stream :type T)
      (format stream "~a" (name slug)))
    slug)
  
  (define-make-* (slug parameters)
    :name :slug :size
    (:users (when-let ((users (cdr (assoc :users parameters))))
              (mapcar #'make-user users))))
  
  (defun account/settings ()
    "Returns settings (including current trend, geo and sleep time information) for the authenticating user.
  
  