1
0
فهرست منبع

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