소스 검색

Add self to friends list

Innocenty Enikeew 10 년 전
부모
커밋
16f95cfd67
1개의 변경된 파일6개의 추가작업 그리고 4개의 파일을 삭제
  1. 6 4
      foursquare.lisp

+ 6 - 4
foursquare.lisp

@@ -44,10 +44,12 @@
     recent))
 
 (defun fsq-fetch-friends (&optional offset)
-  (aget "items"
-        (aget "friends"
-              (%fsq-api-call "users/self/friends"
-                             (list (cons "offset" (or offset "0")))))))
+  (list*
+   (aget "user" (%fsq-api-call "users/self"))
+   (aget "items"
+         (aget "friends"
+               (%fsq-api-call "users/self/friends"
+                              (list (cons "offset" (or offset "0"))))))))
 
 (defun fsq-format-checkin (checkin &optional with-dates)
   (when checkin