social-graph-search

collect-frfol.lisp

(defun collect-followers (screen-name)  
  (let ((lst))    
     (labels ((collect-it (l)	       
         (setf lst (nconc lst l))))      
 (with-cursor (:collector #'collect-it :test #'rate-limit-exceeded ) (follower-ids screen-name)))    lst))

(defun collect-friends (screen-name)  
    (let ((lst))    
       (labels ((collect-it (l)	       
                (setf lst (nconc lst l))))      
   (with-cursor (:collector #'collect-it :test #'rate-limit-exceeded ) (friend-ids screen-name)))    lst))    

session.txt

CL-USER> (rate-limit-status)
#<TWITTER-RATE-LIMIT '139:150'>
CL-USER> (length (collect-followers "sarahpalinusa"))
318181
CL-USER> (rate-limit-status)
#<TWITTER-RATE-LIMIT '75:150'>
CL-USER> 

soc-graph.lisp

(defun friend-ids (screen-name &key (cursor -1))  
  (apply 'twitter-op :friends/ids :screen-name screen-name :cursor cursor nil ))

(defun follower-ids (screen-name &key (cursor -1))  
 (apply 'twitter-op :followers/ids :screen-name screen-name :cursor cursor nil ))