/[cl-facebook]/facebook.lisp
ViewVC logotype

Diff of /facebook.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 6 by mnovenstern, Tue Sep 15 18:29:14 2009 UTC revision 7 by mnovenstern, Wed Sep 23 02:07:31 2009 UTC
# Line 319  to your application's page." Line 319  to your application's page."
319           (json-response (fetch-json-response uri)))           (json-response (fetch-json-response uri)))
320  ;    (print (json:decode-json (third json-response)))  ;    (print (json:decode-json (third json-response)))
321      (print uri)      (print uri)
322      (let ((session-key (cdr (assoc :session-key json-response)))      (let ((session-key (cdr (assoc :session--key json-response)))
323  ;         (uid (parse-integer (cdr (assoc :uid json-response))))  ;         (uid (parse-integer (cdr (assoc :uid json-response))))
324            (uid (cdr (assoc :uid json-response)))            (uid (cdr (assoc :uid json-response)))
325            (expires (cdr (assoc :expires json-response)))            (expires (cdr (assoc :expires json-response)))

Legend:
Removed from v.6  
changed lines
  Added in v.7

  ViewVC Help
Powered by ViewVC 1.1.5