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