about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/oauth2-0.11/oauth2.elc
blob: 1a74d5e1a74e974620b32184240699978500cb0d (plain)
ofshex dumpascii
0000 3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61 ;ELC.....;;;.Compiled.;;;.in.Ema
0020 63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f cs.version.25.3.1.;;;.with.all.o
0040 70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 ptimizations...;;;.This.file.use
0060 73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 s.dynamic.docstrings,.first.adde
0080 64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 d.in.Emacs.19.29...;;;.This.file
00a0 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 .does.not.contain.utf-8.non-ASCI
00c0 49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20 I.characters,.;;;.and.so.can.be.
00e0 6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72 loaded.in.Emacs.versions.earlier
0100 20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b .than.23...;;;;;;;;;;;;;;;;;;;;;
0120 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 ;;;;;;;;;;;;;;;;;;...(byte-code.
01a0 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 31 30 5c 33 30 30 5c "\300\301!\210\300\302!\210\300\
01c0 33 30 33 21 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 70 6c 73 74 6f 72 65 20 6a 73 6f 6e 20 303!\207".[require.plstore.json.
01e0 75 72 6c 2d 68 74 74 70 5d 20 32 29 0a 23 40 31 36 36 20 52 65 71 75 65 73 74 20 4f 41 75 74 68 url-http].2).#@166.Request.OAuth
0200 20 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e 20 61 74 20 41 55 54 48 2d 55 52 4c 20 62 79 20 6c 61 .authorization.at.AUTH-URL.by.la
0220 75 6e 63 68 69 6e 67 20 60 62 72 6f 77 73 65 2d 75 72 6c 27 2e 0a 43 4c 49 45 4e 54 2d 49 44 20 unching.`browse-url'..CLIENT-ID.
0240 69 73 20 74 68 65 20 63 6c 69 65 6e 74 20 69 64 20 70 72 6f 76 69 64 65 64 20 62 79 20 74 68 65 is.the.client.id.provided.by.the
0260 20 70 72 6f 76 69 64 65 72 2e 0a 49 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 63 6f 64 65 20 70 .provider..It.returns.the.code.p
0280 72 6f 76 69 64 65 64 20 62 79 20 74 68 65 20 73 65 72 76 69 63 65 2e 1f 0a 28 64 65 66 61 6c 69 rovided.by.the.service...(defali
02a0 61 73 20 27 6f 61 75 74 68 32 2d 72 65 71 75 65 73 74 2d 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e as.'oauth2-request-authorization
02c0 20 23 5b 28 61 75 74 68 2d 75 72 6c 20 63 6c 69 65 6e 74 2d 69 64 20 26 6f 70 74 69 6f 6e 61 6c .#[(auth-url.client-id.&optional
02e0 20 73 63 6f 70 65 20 73 74 61 74 65 20 72 65 64 69 72 65 63 74 2d 75 72 69 29 20 22 5c 33 30 36 .scope.state.redirect-uri)."\306
0300 08 5c 33 30 37 08 5c 33 31 30 5c 33 31 31 19 5c 33 31 32 03 03 03 23 29 5c 32 36 36 5c 32 30 33 .\307.\310\311.\312...#)\266\203
0320 5c 32 30 33 16 00 5c 33 31 33 5c 32 30 32 17 00 5c 33 30 37 5c 33 31 34 5c 33 31 35 5c 6e 21 5c \203..\313\202..\307\314\315\n!\
0340 33 31 36 5c 33 31 37 5c 33 31 35 0b 5c 32 30 36 23 00 5c 33 32 30 21 5c 66 5c 32 30 33 30 00 5c 316\317\315.\206#.\320!\f\2030.\
0360 33 32 31 5c 33 31 35 5c 66 21 50 5c 32 30 32 31 00 5c 33 32 32 0d 5c 32 30 33 3d 00 5c 33 32 33 321\315\f!P\2021.\322.\203=.\323
0380 5c 33 31 35 0d 21 50 5c 32 30 32 3e 00 5c 33 32 32 5c 32 36 30 09 21 5c 32 31 30 5c 33 32 34 5c \315.!P\202>.\322\260.!\210\324\
03a0 33 32 35 21 5c 32 30 37 22 20 5b 61 75 74 68 2d 75 72 6c 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 325!\207".[auth-url.inhibit-chan
03c0 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 63 6c 69 65 6e 74 2d 69 64 20 72 65 64 69 72 65 ging-match-data.client-id.redire
03e0 63 74 2d 75 72 69 20 73 63 6f 70 65 20 73 74 61 74 65 20 62 72 6f 77 73 65 2d 75 72 6c 20 22 3f ct-uri.scope.state.browse-url."?
0400 22 20 6e 69 6c 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 26 22 20 22 63 6c 69 65 6e 74 ".nil.t.string-match."&"."client
0420 5f 69 64 3d 22 20 75 72 6c 2d 68 65 78 69 66 79 2d 73 74 72 69 6e 67 20 22 26 72 65 73 70 6f 6e _id=".url-hexify-string."&respon
0440 73 65 5f 74 79 70 65 3d 63 6f 64 65 22 20 22 26 72 65 64 69 72 65 63 74 5f 75 72 69 3d 22 20 22 se_type=code"."&redirect_uri="."
0460 75 72 6e 3a 69 65 74 66 3a 77 67 3a 6f 61 75 74 68 3a 32 2e 30 3a 6f 6f 62 22 20 22 26 73 63 6f urn:ietf:wg:oauth:2.0:oob"."&sco
0480 70 65 3d 22 20 22 22 20 22 26 73 74 61 74 65 3d 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 45 pe=".""."&state=".read-string."E
04a0 6e 74 65 72 20 74 68 65 20 63 6f 64 65 20 79 6f 75 72 20 62 72 6f 77 73 65 72 20 64 69 73 70 6c nter.the.code.your.browser.displ
04c0 61 79 65 64 3a 20 22 5d 20 31 32 20 28 23 24 20 2e 20 34 39 39 29 5d 29 0a 23 40 33 39 20 50 61 ayed:."].12.(#$...499)]).#@39.Pa
04e0 72 73 65 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 61 6e 20 4f 41 75 74 68 20 72 65 71 75 65 rse.the.result.of.an.OAuth.reque
0500 73 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 72 65 71 75 65 73 74 2d 61 st...(defalias.'oauth2-request-a
0520 63 63 65 73 73 2d 70 61 72 73 65 20 23 5b 6e 69 6c 20 22 65 62 5c 32 31 30 5c 33 30 30 5c 33 30 ccess-parse.#[nil."eb\210\300\30
0540 31 5c 33 30 32 5c 33 30 33 23 5c 32 30 35 0d 00 5c 33 30 34 20 5c 32 30 37 22 20 5b 73 65 61 72 1\302\303#\205..\304.\207".[sear
0560 63 68 2d 66 6f 72 77 61 72 64 2d 72 65 67 65 78 70 20 22 5e 24 22 20 6e 69 6c 20 74 20 6a 73 6f ch-forward-regexp."^$".nil.t.jso
0580 6e 2d 72 65 61 64 5d 20 34 20 28 23 24 20 2e 20 31 32 34 36 29 5d 29 0a 23 40 35 31 20 4d 61 6b n-read].4.(#$...1246)]).#@51.Mak
05a0 65 20 61 6e 20 61 63 63 65 73 73 20 72 65 71 75 65 73 74 20 74 6f 20 55 52 4c 20 75 73 69 6e 67 e.an.access.request.to.URL.using
05c0 20 44 41 54 41 20 69 6e 20 50 4f 53 54 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 .DATA.in.POST...(defalias.'oauth
05e0 32 2d 6d 61 6b 65 2d 61 63 63 65 73 73 2d 72 65 71 75 65 73 74 20 23 5b 28 75 72 6c 20 64 61 74 2-make-access-request.#[(url.dat
0600 61 29 20 22 5c 33 30 35 08 5c 33 30 36 19 1a 1b 72 5c 33 30 37 5c 66 21 71 5c 32 31 30 5c 33 31 a)."\305.\306...r\307\f!q\210\31
0620 30 20 18 5c 33 31 31 70 21 5c 32 31 30 08 2d 5c 32 30 37 22 20 5b 64 61 74 61 20 75 72 6c 2d 72 0..\311p!\210.-\207".[data.url-r
0640 65 71 75 65 73 74 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 20 75 72 6c 2d 72 65 71 75 65 73 74 equest-extra-headers.url-request
0660 2d 64 61 74 61 20 75 72 6c 2d 72 65 71 75 65 73 74 2d 6d 65 74 68 6f 64 20 75 72 6c 20 22 50 4f -data.url-request-method.url."PO
0680 53 54 22 20 28 28 22 43 6f 6e 74 65 6e 74 2d 54 79 70 65 22 20 2e 20 22 61 70 70 6c 69 63 61 74 ST".(("Content-Type"..."applicat
06a0 69 6f 6e 2f 78 2d 77 77 77 2d 66 6f 72 6d 2d 75 72 6c 65 6e 63 6f 64 65 64 22 29 29 20 75 72 6c ion/x-www-form-urlencoded")).url
06c0 2d 72 65 74 72 69 65 76 65 2d 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 6f 61 75 74 68 32 2d 72 -retrieve-synchronously.oauth2-r
06e0 65 71 75 65 73 74 2d 61 63 63 65 73 73 2d 70 61 72 73 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d equest-access-parse.kill-buffer]
0700 20 33 20 28 23 24 20 2e 20 31 34 33 37 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 .3.(#$...1437)]).(defalias.'oaut
0720 68 32 2d 74 6f 6b 65 6e 2d 70 2d 2d 63 6d 61 63 72 6f 20 23 5b 28 5f 63 6c 2d 77 68 6f 6c 65 2d h2-token-p--cmacro.#[(_cl-whole-
0740 61 72 67 20 63 6c 2d 78 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 5c arg.cl-x)."\301\302\303\304\211\
0760 32 31 31 08 26 06 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 211.&.\207".[cl-x.cl--defsubst-e
0780 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 6f 61 75 74 68 32 2d 74 6f xpand.(cl-x).(cl-block.oauth2-to
07a0 6b 65 6e 2d 70 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 ken-p.(declare.(side-effect-free
07c0 20 65 72 72 6f 72 2d 66 72 65 65 29 29 20 28 61 6e 64 20 28 76 65 63 74 6f 72 70 20 63 6c 2d 78 .error-free)).(and.(vectorp.cl-x
07e0 29 20 28 3e 3d 20 28 6c 65 6e 67 74 68 20 63 6c 2d 78 29 20 39 29 20 28 6d 65 6d 71 20 28 61 72 ).(>=.(length.cl-x).9).(memq.(ar
0800 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 ef.cl-x.0).cl-struct-oauth2-toke
0820 6e 2d 74 61 67 73 29 20 74 29 29 20 6e 69 6c 5d 20 37 5d 29 0a 28 70 75 74 20 27 6f 61 75 74 68 n-tags).t)).nil].7]).(put.'oauth
0840 32 2d 74 6f 6b 65 6e 2d 70 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6f 61 75 74 68 2-token-p.'compiler-macro.'oauth
0860 32 2d 74 6f 6b 65 6e 2d 70 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 2-token-p--cmacro).(defalias.'oa
0880 75 74 68 32 2d 74 6f 6b 65 6e 2d 70 20 23 5b 28 63 6c 2d 78 29 20 22 5c 33 30 32 08 21 5c 32 30 uth2-token-p.#[(cl-x)."\302.!\20
08a0 35 16 00 08 47 5c 33 30 33 59 5c 32 30 35 16 00 08 5c 33 30 34 48 09 3e 5c 32 30 35 16 00 5c 33 5...G\303Y\205...\304H.>\205..\3
08c0 30 35 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 05\207".[cl-x.cl-struct-oauth2-t
08e0 6f 6b 65 6e 2d 74 61 67 73 20 76 65 63 74 6f 72 70 20 39 20 30 20 74 5d 20 32 5d 29 0a 28 62 79 oken-tags.vectorp.9.0.t].2]).(by
0900 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 te-code."\300\301\302\303#\210\3
0920 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 31 23 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 04\305\306\301#\207".[function-p
0940 75 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 ut.oauth2-token-p.side-effect-fr
0960 65 65 20 65 72 72 6f 72 2d 66 72 65 65 20 70 75 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 63 ee.error-free.put.oauth2-token.c
0980 6c 2d 64 65 66 74 79 70 65 2d 73 61 74 69 73 66 69 65 73 5d 20 34 29 0a 28 64 65 66 61 6c 69 61 l-deftype-satisfies].4).(defalia
09a0 73 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 70 6c 73 74 6f 72 65 2d 2d 63 6d 61 63 72 6f 20 s.'oauth2-token-plstore--cmacro.
09c0 23 5b 28 5f 63 6c 2d 77 68 6f 6c 65 2d 61 72 67 20 63 6c 2d 78 29 20 22 5c 33 30 31 5c 33 30 32 #[(_cl-whole-arg.cl-x)."\301\302
09e0 5c 33 30 33 5c 33 30 34 5c 32 31 31 5c 32 31 31 08 26 06 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 \303\304\211\211.&.\207".[cl-x.c
0a00 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c l--defsubst-expand.(cl-x).(cl-bl
0a20 6f 63 6b 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 70 6c 73 74 6f 72 65 20 28 64 65 63 6c 61 72 ock.oauth2-token-plstore.(declar
0a40 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 e.(side-effect-free.t)).(or.(and
0a60 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 6f .(memq.(aref.cl-x.0).cl-struct-o
0a80 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e auth2-token-tags)).(signal.'wron
0aa0 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 6f 61 75 74 68 32 2d 74 6f g-type-argument.(list.'oauth2-to
0ac0 6b 65 6e 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 31 29 29 20 6e 69 6c 5d 20 ken.cl-x))).(aref.cl-x.1)).nil].
0ae0 37 5d 29 0a 28 70 75 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 70 6c 73 74 6f 72 65 20 27 7]).(put.'oauth2-token-plstore.'
0b00 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 70 6c 73 compiler-macro.'oauth2-token-pls
0b20 74 6f 72 65 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d tore--cmacro).(defalias.'oauth2-
0b40 74 6f 6b 65 6e 2d 70 6c 73 74 6f 72 65 20 23 5b 28 63 6c 2d 78 29 20 22 08 5c 33 30 32 48 09 3e token-plstore.#[(cl-x).".\302H.>
0b60 5c 32 30 34 0f 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 44 5c 22 5c 32 31 30 08 5c 33 30 36 48 \204..\303\304\305.D\"\210.\306H
0b80 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b \207".[cl-x.cl-struct-oauth2-tok
0ba0 65 6e 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 en-tags.0.signal.wrong-type-argu
0bc0 6d 65 6e 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 31 5d 20 34 5d 29 0a 28 66 75 6e 63 74 69 ment.oauth2-token.1].4]).(functi
0be0 6f 6e 2d 70 75 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 70 6c 73 74 6f 72 65 20 27 73 69 on-put.'oauth2-token-plstore.'si
0c00 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 de-effect-free.t).(defalias.'oau
0c20 74 68 32 2d 74 6f 6b 65 6e 2d 70 6c 73 74 6f 72 65 2d 69 64 2d 2d 63 6d 61 63 72 6f 20 23 5b 28 th2-token-plstore-id--cmacro.#[(
0c40 5f 63 6c 2d 77 68 6f 6c 65 2d 61 72 67 20 63 6c 2d 78 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 _cl-whole-arg.cl-x)."\301\302\30
0c60 33 5c 33 30 34 5c 32 31 31 5c 32 31 31 08 26 06 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 2d 3\304\211\211.&.\207".[cl-x.cl--
0c80 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b defsubst-expand.(cl-x).(cl-block
0ca0 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 70 6c 73 74 6f 72 65 2d 69 64 20 28 64 65 63 6c 61 72 .oauth2-token-plstore-id.(declar
0cc0 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 e.(side-effect-free.t)).(or.(and
0ce0 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 6f .(memq.(aref.cl-x.0).cl-struct-o
0d00 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e auth2-token-tags)).(signal.'wron
0d20 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 6f 61 75 74 68 32 2d 74 6f g-type-argument.(list.'oauth2-to
0d40 6b 65 6e 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 32 29 29 20 6e 69 6c 5d 20 ken.cl-x))).(aref.cl-x.2)).nil].
0d60 37 5d 29 0a 28 70 75 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 70 6c 73 74 6f 72 65 2d 69 7]).(put.'oauth2-token-plstore-i
0d80 64 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d d.'compiler-macro.'oauth2-token-
0da0 70 6c 73 74 6f 72 65 2d 69 64 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f plstore-id--cmacro).(defalias.'o
0dc0 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 70 6c 73 74 6f 72 65 2d 69 64 20 23 5b 28 63 6c 2d 78 29 20 auth2-token-plstore-id.#[(cl-x).
0de0 22 08 5c 33 30 32 48 09 3e 5c 32 30 34 0f 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 44 5c 22 5c ".\302H.>\204..\303\304\305.D\"\
0e00 32 31 30 08 5c 33 30 36 48 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 73 74 72 75 63 74 2d 6f 210.\306H\207".[cl-x.cl-struct-o
0e20 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d auth2-token-tags.0.signal.wrong-
0e40 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 32 5d 20 34 5d type-argument.oauth2-token.2].4]
0e60 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 70 6c ).(function-put.'oauth2-token-pl
0e80 73 74 6f 72 65 2d 69 64 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 store-id.'side-effect-free.t).(d
0ea0 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 63 6c 69 65 6e 74 2d 69 64 2d efalias.'oauth2-token-client-id-
0ec0 2d 63 6d 61 63 72 6f 20 23 5b 28 5f 63 6c 2d 77 68 6f 6c 65 2d 61 72 67 20 63 6c 2d 78 29 20 22 -cmacro.#[(_cl-whole-arg.cl-x)."
0ee0 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 5c 32 31 31 08 26 06 5c 32 30 37 22 \301\302\303\304\211\211.&.\207"
0f00 20 5b 63 6c 2d 78 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 .[cl-x.cl--defsubst-expand.(cl-x
0f20 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 63 6c 69 65 6e 74 2d ).(cl-block.oauth2-token-client-
0f40 69 64 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 id.(declare.(side-effect-free.t)
0f60 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 ).(or.(and.(memq.(aref.cl-x.0).c
0f80 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 29 29 20 28 73 69 l-struct-oauth2-token-tags)).(si
0fa0 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 gnal.'wrong-type-argument.(list.
0fc0 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 'oauth2-token.cl-x))).(aref.cl-x
0fe0 20 33 29 29 20 6e 69 6c 5d 20 37 5d 29 0a 28 70 75 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e .3)).nil].7]).(put.'oauth2-token
1000 2d 63 6c 69 65 6e 74 2d 69 64 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6f 61 75 74 -client-id.'compiler-macro.'oaut
1020 68 32 2d 74 6f 6b 65 6e 2d 63 6c 69 65 6e 74 2d 69 64 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 h2-token-client-id--cmacro).(def
1040 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 63 6c 69 65 6e 74 2d 69 64 20 23 5b alias.'oauth2-token-client-id.#[
1060 28 63 6c 2d 78 29 20 22 08 5c 33 30 32 48 09 3e 5c 32 30 34 0f 00 5c 33 30 33 5c 33 30 34 5c 33 (cl-x).".\302H.>\204..\303\304\3
1080 30 35 08 44 5c 22 5c 32 31 30 08 5c 33 30 36 48 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 73 05.D\"\210.\306H\207".[cl-x.cl-s
10a0 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c truct-oauth2-token-tags.0.signal
10c0 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 .wrong-type-argument.oauth2-toke
10e0 6e 20 33 5d 20 34 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 6f 61 75 74 68 32 2d 74 n.3].4]).(function-put.'oauth2-t
1100 6f 6b 65 6e 2d 63 6c 69 65 6e 74 2d 69 64 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 oken-client-id.'side-effect-free
1120 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 63 6c 69 65 .t).(defalias.'oauth2-token-clie
1140 6e 74 2d 73 65 63 72 65 74 2d 2d 63 6d 61 63 72 6f 20 23 5b 28 5f 63 6c 2d 77 68 6f 6c 65 2d 61 nt-secret--cmacro.#[(_cl-whole-a
1160 72 67 20 63 6c 2d 78 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 5c 32 rg.cl-x)."\301\302\303\304\211\2
1180 31 31 08 26 06 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 11.&.\207".[cl-x.cl--defsubst-ex
11a0 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 6f 61 75 74 68 32 2d 74 6f 6b pand.(cl-x).(cl-block.oauth2-tok
11c0 65 6e 2d 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d en-client-secret.(declare.(side-
11e0 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 effect-free.t)).(or.(and.(memq.(
1200 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f aref.cl-x.0).cl-struct-oauth2-to
1220 6b 65 6e 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 ken-tags)).(signal.'wrong-type-a
1240 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 63 6c 2d 78 rgument.(list.'oauth2-token.cl-x
1260 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 34 29 29 20 6e 69 6c 5d 20 37 5d 29 0a 28 70 75 74 ))).(aref.cl-x.4)).nil].7]).(put
1280 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 27 63 6f .'oauth2-token-client-secret.'co
12a0 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 63 6c 69 65 6e mpiler-macro.'oauth2-token-clien
12c0 74 2d 73 65 63 72 65 74 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 t-secret--cmacro).(defalias.'oau
12e0 74 68 32 2d 74 6f 6b 65 6e 2d 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 23 5b 28 63 6c 2d 78 29 th2-token-client-secret.#[(cl-x)
1300 20 22 08 5c 33 30 32 48 09 3e 5c 32 30 34 0f 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 44 5c 22 .".\302H.>\204..\303\304\305.D\"
1320 5c 32 31 30 08 5c 33 30 36 48 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 73 74 72 75 63 74 2d \210.\306H\207".[cl-x.cl-struct-
1340 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 oauth2-token-tags.0.signal.wrong
1360 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 34 5d 20 34 -type-argument.oauth2-token.4].4
1380 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 63 ]).(function-put.'oauth2-token-c
13a0 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 lient-secret.'side-effect-free.t
13c0 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 61 63 63 65 73 73 ).(defalias.'oauth2-token-access
13e0 2d 74 6f 6b 65 6e 2d 2d 63 6d 61 63 72 6f 20 23 5b 28 5f 63 6c 2d 77 68 6f 6c 65 2d 61 72 67 20 -token--cmacro.#[(_cl-whole-arg.
1400 63 6c 2d 78 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 5c 32 31 31 08 cl-x)."\301\302\303\304\211\211.
1420 26 06 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e &.\207".[cl-x.cl--defsubst-expan
1440 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d d.(cl-x).(cl-block.oauth2-token-
1460 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 access-token.(declare.(side-effe
1480 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 ct-free.t)).(or.(and.(memq.(aref
14a0 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d .cl-x.0).cl-struct-oauth2-token-
14c0 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d tags)).(signal.'wrong-type-argum
14e0 65 6e 74 20 28 6c 69 73 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 63 6c 2d 78 29 29 29 20 ent.(list.'oauth2-token.cl-x))).
1500 28 61 72 65 66 20 63 6c 2d 78 20 35 29 29 20 6e 69 6c 5d 20 37 5d 29 0a 28 70 75 74 20 27 6f 61 (aref.cl-x.5)).nil].7]).(put.'oa
1520 75 74 68 32 2d 74 6f 6b 65 6e 2d 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 27 63 6f 6d 70 69 6c 65 uth2-token-access-token.'compile
1540 72 2d 6d 61 63 72 6f 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 61 63 63 65 73 73 2d 74 6f 6b r-macro.'oauth2-token-access-tok
1560 65 6e 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 74 6f en--cmacro).(defalias.'oauth2-to
1580 6b 65 6e 2d 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 23 5b 28 63 6c 2d 78 29 20 22 08 5c 33 30 32 ken-access-token.#[(cl-x).".\302
15a0 48 09 3e 5c 32 30 34 0f 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 44 5c 22 5c 32 31 30 08 5c 33 H.>\204..\303\304\305.D\"\210.\3
15c0 30 36 48 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 06H\207".[cl-x.cl-struct-oauth2-
15e0 74 6f 6b 65 6e 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 token-tags.0.signal.wrong-type-a
1600 72 67 75 6d 65 6e 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 35 5d 20 34 5d 29 0a 28 66 75 6e rgument.oauth2-token.5].4]).(fun
1620 63 74 69 6f 6e 2d 70 75 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 61 63 63 65 73 73 2d 74 ction-put.'oauth2-token-access-t
1640 6f 6b 65 6e 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c oken.'side-effect-free.t).(defal
1660 69 61 73 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 72 65 66 72 65 73 68 2d 74 6f 6b 65 6e 2d ias.'oauth2-token-refresh-token-
1680 2d 63 6d 61 63 72 6f 20 23 5b 28 5f 63 6c 2d 77 68 6f 6c 65 2d 61 72 67 20 63 6c 2d 78 29 20 22 -cmacro.#[(_cl-whole-arg.cl-x)."
16a0 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 5c 32 31 31 08 26 06 5c 32 30 37 22 \301\302\303\304\211\211.&.\207"
16c0 20 5b 63 6c 2d 78 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 .[cl-x.cl--defsubst-expand.(cl-x
16e0 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 72 65 66 72 65 73 68 ).(cl-block.oauth2-token-refresh
1700 2d 74 6f 6b 65 6e 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 -token.(declare.(side-effect-fre
1720 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 e.t)).(or.(and.(memq.(aref.cl-x.
1740 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 29 29 0).cl-struct-oauth2-token-tags))
1760 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c .(signal.'wrong-type-argument.(l
1780 69 73 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 ist.'oauth2-token.cl-x))).(aref.
17a0 63 6c 2d 78 20 36 29 29 20 6e 69 6c 5d 20 37 5d 29 0a 28 70 75 74 20 27 6f 61 75 74 68 32 2d 74 cl-x.6)).nil].7]).(put.'oauth2-t
17c0 6f 6b 65 6e 2d 72 65 66 72 65 73 68 2d 74 6f 6b 65 6e 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 oken-refresh-token.'compiler-mac
17e0 72 6f 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 72 65 66 72 65 73 68 2d 74 6f 6b 65 6e 2d 2d ro.'oauth2-token-refresh-token--
1800 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d cmacro).(defalias.'oauth2-token-
1820 72 65 66 72 65 73 68 2d 74 6f 6b 65 6e 20 23 5b 28 63 6c 2d 78 29 20 22 08 5c 33 30 32 48 09 3e refresh-token.#[(cl-x).".\302H.>
1840 5c 32 30 34 0f 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 44 5c 22 5c 32 31 30 08 5c 33 30 36 48 \204..\303\304\305.D\"\210.\306H
1860 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b \207".[cl-x.cl-struct-oauth2-tok
1880 65 6e 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 en-tags.0.signal.wrong-type-argu
18a0 6d 65 6e 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 36 5d 20 34 5d 29 0a 28 66 75 6e 63 74 69 ment.oauth2-token.6].4]).(functi
18c0 6f 6e 2d 70 75 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 72 65 66 72 65 73 68 2d 74 6f 6b on-put.'oauth2-token-refresh-tok
18e0 65 6e 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 en.'side-effect-free.t).(defalia
1900 73 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 6f 6b 65 6e 2d 75 72 6c 2d 2d 63 6d 61 63 72 s.'oauth2-token-token-url--cmacr
1920 6f 20 23 5b 28 5f 63 6c 2d 77 68 6f 6c 65 2d 61 72 67 20 63 6c 2d 78 29 20 22 5c 33 30 31 5c 33 o.#[(_cl-whole-arg.cl-x)."\301\3
1940 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 5c 32 31 31 08 26 06 5c 32 30 37 22 20 5b 63 6c 2d 78 02\303\304\211\211.&.\207".[cl-x
1960 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d .cl--defsubst-expand.(cl-x).(cl-
1980 62 6c 6f 63 6b 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 6f 6b 65 6e 2d 75 72 6c 20 28 64 65 block.oauth2-token-token-url.(de
19a0 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 clare.(side-effect-free.t)).(or.
19c0 28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 (and.(memq.(aref.cl-x.0).cl-stru
19e0 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 ct-oauth2-token-tags)).(signal.'
1a00 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 6f 61 75 74 68 wrong-type-argument.(list.'oauth
1a20 32 2d 74 6f 6b 65 6e 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 37 29 29 20 6e 2-token.cl-x))).(aref.cl-x.7)).n
1a40 69 6c 5d 20 37 5d 29 0a 28 70 75 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 6f 6b 65 6e il].7]).(put.'oauth2-token-token
1a60 2d 75 72 6c 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6f 61 75 74 68 32 2d 74 6f 6b -url.'compiler-macro.'oauth2-tok
1a80 65 6e 2d 74 6f 6b 65 6e 2d 75 72 6c 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 en-token-url--cmacro).(defalias.
1aa0 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 6f 6b 65 6e 2d 75 72 6c 20 23 5b 28 63 6c 2d 78 29 'oauth2-token-token-url.#[(cl-x)
1ac0 20 22 08 5c 33 30 32 48 09 3e 5c 32 30 34 0f 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 44 5c 22 .".\302H.>\204..\303\304\305.D\"
1ae0 5c 32 31 30 08 5c 33 30 36 48 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 73 74 72 75 63 74 2d \210.\306H\207".[cl-x.cl-struct-
1b00 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 oauth2-token-tags.0.signal.wrong
1b20 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 37 5d 20 34 -type-argument.oauth2-token.7].4
1b40 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 ]).(function-put.'oauth2-token-t
1b60 6f 6b 65 6e 2d 75 72 6c 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 oken-url.'side-effect-free.t).(d
1b80 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 61 63 63 65 73 73 2d 72 65 73 efalias.'oauth2-token-access-res
1ba0 70 6f 6e 73 65 2d 2d 63 6d 61 63 72 6f 20 23 5b 28 5f 63 6c 2d 77 68 6f 6c 65 2d 61 72 67 20 63 ponse--cmacro.#[(_cl-whole-arg.c
1bc0 6c 2d 78 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 5c 32 31 31 08 26 l-x)."\301\302\303\304\211\211.&
1be0 06 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 .\207".[cl-x.cl--defsubst-expand
1c00 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 61 .(cl-x).(cl-block.oauth2-token-a
1c20 63 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 ccess-response.(declare.(side-ef
1c40 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 fect-free.t)).(or.(and.(memq.(ar
1c60 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 ef.cl-x.0).cl-struct-oauth2-toke
1c80 6e 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 n-tags)).(signal.'wrong-type-arg
1ca0 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 63 6c 2d 78 29 29 ument.(list.'oauth2-token.cl-x))
1cc0 29 20 28 61 72 65 66 20 63 6c 2d 78 20 38 29 29 20 6e 69 6c 5d 20 37 5d 29 0a 28 70 75 74 20 27 ).(aref.cl-x.8)).nil].7]).(put.'
1ce0 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 61 63 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 27 63 6f oauth2-token-access-response.'co
1d00 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 61 63 63 65 73 mpiler-macro.'oauth2-token-acces
1d20 73 2d 72 65 73 70 6f 6e 73 65 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f s-response--cmacro).(defalias.'o
1d40 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 61 63 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 23 5b 28 63 auth2-token-access-response.#[(c
1d60 6c 2d 78 29 20 22 08 5c 33 30 32 48 09 3e 5c 32 30 34 0f 00 5c 33 30 33 5c 33 30 34 5c 33 30 35 l-x).".\302H.>\204..\303\304\305
1d80 08 44 5c 22 5c 32 31 30 08 5c 33 30 36 48 5c 32 30 37 22 20 5b 63 6c 2d 78 20 63 6c 2d 73 74 72 .D\"\210.\306H\207".[cl-x.cl-str
1da0 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 uct-oauth2-token-tags.0.signal.w
1dc0 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 rong-type-argument.oauth2-token.
1de0 38 5d 20 34 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 8].4]).(byte-code."\300\301\302\
1e00 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 30 37 22 20 5b 66 75 6e 303#\210\304\305\306\"\207".[fun
1e20 63 74 69 6f 6e 2d 70 75 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 61 63 63 65 73 73 2d 72 65 ction-put.oauth2-token-access-re
1e40 73 70 6f 6e 73 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 64 65 66 61 6c 69 sponse.side-effect-free.t.defali
1e60 61 73 20 63 6f 70 79 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 63 6f 70 79 2d 73 65 71 75 65 6e as.copy-oauth2-token.copy-sequen
1e80 63 65 5d 20 34 29 0a 23 40 31 32 38 20 0a 0a 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 20 26 63 6c 2d ce].4).#@128...(fn.CL-WHOLE.&cl-
1ea0 71 75 6f 74 65 20 26 6b 65 79 20 50 4c 53 54 4f 52 45 20 50 4c 53 54 4f 52 45 2d 49 44 20 43 4c quote.&key.PLSTORE.PLSTORE-ID.CL
1ec0 49 45 4e 54 2d 49 44 20 43 4c 49 45 4e 54 2d 53 45 43 52 45 54 20 41 43 43 45 53 53 2d 54 4f 4b IENT-ID.CLIENT-SECRET.ACCESS-TOK
1ee0 45 4e 20 52 45 46 52 45 53 48 2d 54 4f 4b 45 4e 20 54 4f 4b 45 4e 2d 55 52 4c 20 41 43 43 45 53 EN.REFRESH-TOKEN.TOKEN-URL.ACCES
1f00 53 2d 52 45 53 50 4f 4e 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 61 6b 65 2d 6f 61 75 S-RESPONSE)..(defalias.'make-oau
1f20 74 68 32 2d 74 6f 6b 65 6e 2d 2d 63 6d 61 63 72 6f 20 23 5b 28 63 6c 2d 77 68 6f 6c 65 20 26 72 th2-token--cmacro.#[(cl-whole.&r
1f40 65 73 74 20 23 31 3d 23 3a 2d 2d 63 6c 2d 72 65 73 74 2d 2d 29 20 22 5c 33 30 36 08 5c 33 30 37 est.#1=#:--cl-rest--)."\306.\307
1f60 5c 22 41 40 19 5c 33 30 36 08 5c 33 31 30 5c 22 41 40 1a 5c 33 30 36 08 5c 33 31 31 5c 22 41 40 \"A@.\306.\310\"A@.\306.\311\"A@
1f80 1b 5c 33 30 36 08 5c 33 31 32 5c 22 41 40 1c 5c 33 30 36 08 5c 33 31 33 5c 22 41 40 1d 5c 33 30 .\306.\312\"A@.\306.\313\"A@.\30
1fa0 36 08 5c 33 31 34 5c 22 41 40 1e 17 5c 33 30 36 08 5c 33 31 35 5c 22 41 40 1e 18 5c 33 30 36 08 6.\314\"A@..\306.\315\"A@..\306.
1fc0 5c 33 31 36 5c 22 41 40 1e 19 08 1e 1a 0e 1a 5c 32 30 33 6e 00 0e 1a 40 5c 33 31 37 3e 5c 32 30 \316\"A@.......\203n...@\317>\20
1fe0 33 55 00 0e 1a 41 41 5c 32 31 31 16 1a 5c 32 30 32 40 00 5c 33 32 30 08 3e 41 40 5c 32 30 33 64 3U...AA\211..\202@.\320.>A@\203d
2000 00 5c 33 32 31 5c 32 31 31 16 1a 5c 32 30 32 40 00 5c 33 32 32 5c 33 32 33 0e 1a 40 5c 22 5c 32 .\321\211..\202@.\322\323..@\"\2
2020 31 30 5c 32 30 32 3e 00 29 5c 33 32 34 5c 33 32 35 5c 33 32 36 5c 33 32 31 0e 1b 5c 33 32 31 09 10\202>.)\324\325\326\321..\321.
2040 5c 6e 0b 5c 66 0d 0e 17 0e 18 0e 19 26 0d 2e 08 5c 32 30 37 22 20 5b 23 31 23 20 70 6c 73 74 6f \n.\f.......&...\207".[#1#.plsto
2060 72 65 20 70 6c 73 74 6f 72 65 2d 69 64 20 63 6c 69 65 6e 74 2d 69 64 20 63 6c 69 65 6e 74 2d 73 re.plstore-id.client-id.client-s
2080 65 63 72 65 74 20 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 ecret.access-token.plist-member.
20a0 3a 70 6c 73 74 6f 72 65 20 3a 70 6c 73 74 6f 72 65 2d 69 64 20 3a 63 6c 69 65 6e 74 2d 69 64 20 :plstore.:plstore-id.:client-id.
20c0 3a 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 3a 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 3a 72 65 :client-secret.:access-token.:re
20e0 66 72 65 73 68 2d 74 6f 6b 65 6e 20 3a 74 6f 6b 65 6e 2d 75 72 6c 20 3a 61 63 63 65 73 73 2d 72 fresh-token.:token-url.:access-r
2100 65 73 70 6f 6e 73 65 20 28 3a 70 6c 73 74 6f 72 65 20 3a 70 6c 73 74 6f 72 65 2d 69 64 20 3a 63 esponse.(:plstore.:plstore-id.:c
2120 6c 69 65 6e 74 2d 69 64 20 3a 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 3a 61 63 63 65 73 73 2d lient-id.:client-secret.:access-
2140 74 6f 6b 65 6e 20 3a 72 65 66 72 65 73 68 2d 74 6f 6b 65 6e 20 3a 74 6f 6b 65 6e 2d 75 72 6c 20 token.:refresh-token.:token-url.
2160 3a 61 63 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 :access-response.:allow-other-ke
2180 79 73 29 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 6e 69 6c 20 65 72 72 6f 72 20 ys).:allow-other-keys.nil.error.
21a0 22 4b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 25 73 20 6e 6f 74 20 6f 6e 65 20 6f 66 20 "Keyword.argument.%s.not.one.of.
21c0 28 3a 70 6c 73 74 6f 72 65 20 3a 70 6c 73 74 6f 72 65 2d 69 64 20 3a 63 6c 69 65 6e 74 2d 69 64 (:plstore.:plstore-id.:client-id
21e0 20 3a 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 3a 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 3a 72 .:client-secret.:access-token.:r
2200 65 66 72 65 73 68 2d 74 6f 6b 65 6e 20 3a 74 6f 6b 65 6e 2d 75 72 6c 20 3a 61 63 63 65 73 73 2d efresh-token.:token-url.:access-
2220 72 65 73 70 6f 6e 73 65 29 22 20 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 response)".cl--defsubst-expand.(
2240 70 6c 73 74 6f 72 65 20 70 6c 73 74 6f 72 65 2d 69 64 20 63 6c 69 65 6e 74 2d 69 64 20 63 6c 69 plstore.plstore-id.client-id.cli
2260 65 6e 74 2d 73 65 63 72 65 74 20 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 72 65 66 72 65 73 68 2d ent-secret.access-token.refresh-
2280 74 6f 6b 65 6e 20 74 6f 6b 65 6e 2d 75 72 6c 20 61 63 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 29 token.token-url.access-response)
22a0 20 28 63 6c 2d 62 6c 6f 63 6b 20 6d 61 6b 65 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 22 43 6f .(cl-block.make-oauth2-token."Co
22c0 6e 73 74 72 75 63 74 6f 72 20 66 6f 72 20 6f 62 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20 60 6f nstructor.for.objects.of.type.`o
22e0 61 75 74 68 32 2d 74 6f 6b 65 6e 27 2e 22 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 auth2-token'.".(declare.(side-ef
2300 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 76 65 63 74 6f 72 20 27 63 6c 2d 73 74 72 75 63 74 fect-free.t)).(vector.'cl-struct
2320 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 70 6c 73 74 6f 72 65 20 70 6c 73 74 6f 72 65 2d 69 64 -oauth2-token.plstore.plstore-id
2340 20 63 6c 69 65 6e 74 2d 69 64 20 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 61 63 63 65 73 73 2d .client-id.client-secret.access-
2360 74 6f 6b 65 6e 20 72 65 66 72 65 73 68 2d 74 6f 6b 65 6e 20 74 6f 6b 65 6e 2d 75 72 6c 20 61 63 token.refresh-token.token-url.ac
2380 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 29 29 20 72 65 66 72 65 73 68 2d 74 6f 6b 65 6e 20 74 6f cess-response)).refresh-token.to
23a0 6b 65 6e 2d 75 72 6c 20 61 63 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 23 32 3d 23 3a 2d 2d 63 ken-url.access-response.#2=#:--c
23c0 6c 2d 6b 65 79 73 2d 2d 20 63 6c 2d 77 68 6f 6c 65 5d 20 31 35 20 28 23 24 20 2e 20 37 38 32 31 l-keys--.cl-whole].15.(#$...7821
23e0 29 5d 29 0a 28 70 75 74 20 27 6d 61 6b 65 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 27 63 6f 6d )]).(put.'make-oauth2-token.'com
2400 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6d 61 6b 65 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 2d piler-macro.'make-oauth2-token--
2420 63 6d 61 63 72 6f 29 0a 23 40 31 35 36 20 43 6f 6e 73 74 72 75 63 74 6f 72 20 66 6f 72 20 6f 62 cmacro).#@156.Constructor.for.ob
2440 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20 60 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 27 2e 0a 0a 28 jects.of.type.`oauth2-token'...(
2460 66 6e 20 26 6b 65 79 20 50 4c 53 54 4f 52 45 20 50 4c 53 54 4f 52 45 2d 49 44 20 43 4c 49 45 4e fn.&key.PLSTORE.PLSTORE-ID.CLIEN
2480 54 2d 49 44 20 43 4c 49 45 4e 54 2d 53 45 43 52 45 54 20 41 43 43 45 53 53 2d 54 4f 4b 45 4e 20 T-ID.CLIENT-SECRET.ACCESS-TOKEN.
24a0 52 45 46 52 45 53 48 2d 54 4f 4b 45 4e 20 54 4f 4b 45 4e 2d 55 52 4c 20 41 43 43 45 53 53 2d 52 REFRESH-TOKEN.TOKEN-URL.ACCESS-R
24c0 45 53 50 4f 4e 53 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 61 6b 65 2d 6f 61 75 74 68 32 ESPONSE)..(defalias.'make-oauth2
24e0 2d 74 6f 6b 65 6e 20 23 5b 28 26 72 65 73 74 20 23 31 3d 23 3a 2d 2d 63 6c 2d 72 65 73 74 2d 2d -token.#[(&rest.#1=#:--cl-rest--
2500 29 20 22 5c 33 30 36 08 5c 33 30 37 5c 22 41 40 19 5c 33 30 36 08 5c 33 31 30 5c 22 41 40 1a 5c )."\306.\307\"A@.\306.\310\"A@.\
2520 33 30 36 08 5c 33 31 31 5c 22 41 40 1b 5c 33 30 36 08 5c 33 31 32 5c 22 41 40 1c 5c 33 30 36 08 306.\311\"A@.\306.\312\"A@.\306.
2540 5c 33 31 33 5c 22 41 40 1d 5c 33 30 36 08 5c 33 31 34 5c 22 41 40 1e 16 5c 33 30 36 08 5c 33 31 \313\"A@.\306.\314\"A@..\306.\31
2560 35 5c 22 41 40 1e 17 5c 33 30 36 08 5c 33 31 36 5c 22 41 40 1e 18 08 1e 19 0e 19 5c 32 30 33 6e 5\"A@..\306.\316\"A@.......\203n
2580 00 0e 19 40 5c 33 31 37 3e 5c 32 30 33 55 00 0e 19 41 41 5c 32 31 31 16 19 5c 32 30 32 40 00 5c ...@\317>\203U...AA\211..\202@.\
25a0 33 32 30 08 3e 41 40 5c 32 30 33 64 00 5c 33 32 31 5c 32 31 31 16 19 5c 32 30 32 40 00 5c 33 32 320.>A@\203d.\321\211..\202@.\32
25c0 32 5c 33 32 33 0e 19 40 5c 22 5c 32 31 30 5c 32 30 32 3e 00 29 5c 33 32 34 5c 33 32 35 09 5c 6e 2\323..@\"\210\202>.)\324\325.\n
25e0 0b 5c 66 0d 0e 16 0e 17 0e 18 26 09 2e 08 5c 32 30 37 22 20 5b 23 31 23 20 70 6c 73 74 6f 72 65 .\f.......&...\207".[#1#.plstore
2600 20 70 6c 73 74 6f 72 65 2d 69 64 20 63 6c 69 65 6e 74 2d 69 64 20 63 6c 69 65 6e 74 2d 73 65 63 .plstore-id.client-id.client-sec
2620 72 65 74 20 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 3a 70 ret.access-token.plist-member.:p
2640 6c 73 74 6f 72 65 20 3a 70 6c 73 74 6f 72 65 2d 69 64 20 3a 63 6c 69 65 6e 74 2d 69 64 20 3a 63 lstore.:plstore-id.:client-id.:c
2660 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 3a 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 3a 72 65 66 72 lient-secret.:access-token.:refr
2680 65 73 68 2d 74 6f 6b 65 6e 20 3a 74 6f 6b 65 6e 2d 75 72 6c 20 3a 61 63 63 65 73 73 2d 72 65 73 esh-token.:token-url.:access-res
26a0 70 6f 6e 73 65 20 28 3a 70 6c 73 74 6f 72 65 20 3a 70 6c 73 74 6f 72 65 2d 69 64 20 3a 63 6c 69 ponse.(:plstore.:plstore-id.:cli
26c0 65 6e 74 2d 69 64 20 3a 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 3a 61 63 63 65 73 73 2d 74 6f ent-id.:client-secret.:access-to
26e0 6b 65 6e 20 3a 72 65 66 72 65 73 68 2d 74 6f 6b 65 6e 20 3a 74 6f 6b 65 6e 2d 75 72 6c 20 3a 61 ken.:refresh-token.:token-url.:a
2700 63 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 ccess-response.:allow-other-keys
2720 29 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 6e 69 6c 20 65 72 72 6f 72 20 22 4b ).:allow-other-keys.nil.error."K
2740 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 25 73 20 6e 6f 74 20 6f 6e 65 20 6f 66 20 28 3a eyword.argument.%s.not.one.of.(:
2760 70 6c 73 74 6f 72 65 20 3a 70 6c 73 74 6f 72 65 2d 69 64 20 3a 63 6c 69 65 6e 74 2d 69 64 20 3a plstore.:plstore-id.:client-id.:
2780 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 3a 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 3a 72 65 66 client-secret.:access-token.:ref
27a0 72 65 73 68 2d 74 6f 6b 65 6e 20 3a 74 6f 6b 65 6e 2d 75 72 6c 20 3a 61 63 63 65 73 73 2d 72 65 resh-token.:token-url.:access-re
27c0 73 70 6f 6e 73 65 29 22 20 76 65 63 74 6f 72 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 sponse)".vector.cl-struct-oauth2
27e0 2d 74 6f 6b 65 6e 20 72 65 66 72 65 73 68 2d 74 6f 6b 65 6e 20 74 6f 6b 65 6e 2d 75 72 6c 20 61 -token.refresh-token.token-url.a
2800 63 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 23 32 3d 23 3a 2d 2d 63 6c 2d 6b 65 79 73 2d 2d 5d ccess-response.#2=#:--cl-keys--]
2820 20 31 31 20 28 23 24 20 2e 20 39 32 36 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 .11.(#$...9262)]).(byte-code."\3
2840 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 00\301\302\303#\210\304\305\306\
2860 33 30 37 5c 33 30 36 5c 32 31 31 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 30 33 26 09 5c 32 30 307\306\211\310\311\312\303&.\20
2880 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6d 61 6b 65 2d 6f 61 75 74 68 32 2d 74 6f 6b 7".[function-put.make-oauth2-tok
28a0 65 6e 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 63 6c 2d 73 74 72 75 63 74 2d en.side-effect-free.t.cl-struct-
28c0 64 65 66 69 6e 65 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 6e 69 6c 20 63 6c 2d 73 74 72 75 63 define.oauth2-token.nil.cl-struc
28e0 74 75 72 65 2d 6f 62 6a 65 63 74 20 28 28 63 6c 2d 74 61 67 2d 73 6c 6f 74 29 20 28 70 6c 73 74 ture-object.((cl-tag-slot).(plst
2900 6f 72 65 29 20 28 70 6c 73 74 6f 72 65 2d 69 64 29 20 28 63 6c 69 65 6e 74 2d 69 64 29 20 28 63 ore).(plstore-id).(client-id).(c
2920 6c 69 65 6e 74 2d 73 65 63 72 65 74 29 20 28 61 63 63 65 73 73 2d 74 6f 6b 65 6e 29 20 28 72 65 lient-secret).(access-token).(re
2940 66 72 65 73 68 2d 74 6f 6b 65 6e 29 20 28 74 6f 6b 65 6e 2d 75 72 6c 29 20 28 61 63 63 65 73 73 fresh-token).(token-url).(access
2960 2d 72 65 73 70 6f 6e 73 65 29 29 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b -response)).cl-struct-oauth2-tok
2980 65 6e 2d 74 61 67 73 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 5d 20 en-tags.cl-struct-oauth2-token].
29a0 31 30 29 0a 23 40 31 33 37 20 52 65 71 75 65 73 74 20 4f 41 75 74 68 20 61 63 63 65 73 73 20 61 10).#@137.Request.OAuth.access.a
29c0 74 20 54 4f 4b 45 4e 2d 55 52 4c 2e 0a 54 68 65 20 43 4f 44 45 20 73 68 6f 75 6c 64 20 62 65 20 t.TOKEN-URL..The.CODE.should.be.
29e0 6f 62 74 61 69 6e 65 64 20 77 69 74 68 20 60 6f 61 75 74 68 32 2d 72 65 71 75 65 73 74 2d 61 75 obtained.with.`oauth2-request-au
2a00 74 68 6f 72 69 7a 61 74 69 6f 6e 27 2e 0a 52 65 74 75 72 6e 20 61 6e 20 60 6f 61 75 74 68 32 2d thorization'..Return.an.`oauth2-
2a20 74 6f 6b 65 6e 27 20 73 74 72 75 63 74 75 72 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 token'.structure...(defalias.'oa
2a40 75 74 68 32 2d 72 65 71 75 65 73 74 2d 61 63 63 65 73 73 20 23 5b 28 74 6f 6b 65 6e 2d 75 72 6c uth2-request-access.#[(token-url
2a60 20 63 6c 69 65 6e 74 2d 69 64 20 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 63 6f 64 65 20 26 6f .client-id.client-secret.code.&o
2a80 70 74 69 6f 6e 61 6c 20 72 65 64 69 72 65 63 74 2d 75 72 69 29 20 22 08 5c 32 30 35 2e 00 5c 33 ptional.redirect-uri).".\205..\3
2aa0 30 36 09 5c 33 30 37 5c 6e 5c 33 31 30 0b 5c 33 31 31 08 5c 33 31 32 5c 33 31 33 5c 66 5c 32 30 06.\307\n\310.\311.\312\313\f\20
2ac0 36 13 00 5c 33 31 34 21 5c 33 31 35 5c 32 36 30 09 5c 22 1d 5c 33 31 36 5c 33 31 37 5c 33 32 30 6..\314!\315\260.\".\316\317\320
2ae0 5c 32 31 31 5c 6e 0b 5c 33 32 31 5c 33 32 32 0d 5c 22 41 5c 33 32 31 5c 33 32 33 0d 5c 22 41 09 \211\n.\321\322.\"A\321\323.\"A.
2b00 0d 26 09 29 5c 32 30 37 22 20 5b 63 6f 64 65 20 74 6f 6b 65 6e 2d 75 72 6c 20 63 6c 69 65 6e 74 .&.)\207".[code.token-url.client
2b20 2d 69 64 20 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 72 65 64 69 72 65 63 74 2d 75 72 69 20 72 -id.client-secret.redirect-uri.r
2b40 65 73 75 6c 74 20 6f 61 75 74 68 32 2d 6d 61 6b 65 2d 61 63 63 65 73 73 2d 72 65 71 75 65 73 74 esult.oauth2-make-access-request
2b60 20 22 63 6c 69 65 6e 74 5f 69 64 3d 22 20 22 26 63 6c 69 65 6e 74 5f 73 65 63 72 65 74 3d 22 20 ."client_id="."&client_secret=".
2b80 22 26 63 6f 64 65 3d 22 20 22 26 72 65 64 69 72 65 63 74 5f 75 72 69 3d 22 20 75 72 6c 2d 68 65 "&code="."&redirect_uri=".url-he
2ba0 78 69 66 79 2d 73 74 72 69 6e 67 20 22 75 72 6e 3a 69 65 74 66 3a 77 67 3a 6f 61 75 74 68 3a 32 xify-string."urn:ietf:wg:oauth:2
2bc0 2e 30 3a 6f 6f 62 22 20 22 26 67 72 61 6e 74 5f 74 79 70 65 3d 61 75 74 68 6f 72 69 7a 61 74 69 .0:oob"."&grant_type=authorizati
2be0 6f 6e 5f 63 6f 64 65 22 20 76 65 63 74 6f 72 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 on_code".vector.cl-struct-oauth2
2c00 2d 74 6f 6b 65 6e 20 6e 69 6c 20 61 73 73 6f 63 20 61 63 63 65 73 73 5f 74 6f 6b 65 6e 20 72 65 -token.nil.assoc.access_token.re
2c20 66 72 65 73 68 5f 74 6f 6b 65 6e 5d 20 31 31 20 28 23 24 20 2e 20 31 30 36 36 36 29 5d 29 0a 23 fresh_token].11.(#$...10666)]).#
2c40 40 38 34 20 52 65 66 72 65 73 68 20 4f 41 75 74 68 20 61 63 63 65 73 73 20 54 4f 4b 45 4e 2e 0a @84.Refresh.OAuth.access.TOKEN..
2c60 54 4f 4b 45 4e 20 73 68 6f 75 6c 64 20 62 65 20 6f 62 74 61 69 6e 65 64 20 77 69 74 68 20 60 6f TOKEN.should.be.obtained.with.`o
2c80 61 75 74 68 32 2d 72 65 71 75 65 73 74 2d 61 63 63 65 73 73 27 2e 1f 0a 28 64 65 66 61 6c 69 61 auth2-request-access'...(defalia
2ca0 73 20 27 6f 61 75 74 68 32 2d 72 65 66 72 65 73 68 2d 61 63 63 65 73 73 20 23 5b 28 74 6f 6b 65 s.'oauth2-refresh-access.#[(toke
2cc0 6e 29 20 22 08 5c 33 30 34 48 09 3e 5c 32 30 34 0f 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 08 44 n).".\304H.>\204..\305\306\307.D
2ce0 5c 22 5c 32 31 30 08 5c 32 31 31 1a 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 08 5c 33 30 \"\210.\211.\310\311\312\313.\30
2d00 34 48 09 3e 5c 32 30 34 25 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 08 44 5c 22 5c 32 31 30 08 5c 4H.>\204%.\305\306\307.D\"\210.\
2d20 33 31 34 48 5c 33 31 35 08 5c 33 30 34 48 09 3e 5c 32 30 34 38 00 5c 33 30 35 5c 33 30 36 5c 33 314H\315.\304H.>\2048.\305\306\3
2d40 30 37 08 44 5c 22 5c 32 31 30 08 5c 33 31 36 48 5c 33 31 37 08 5c 33 30 34 48 09 3e 5c 32 30 34 07.D\"\210.\316H\317.\304H.>\204
2d60 4b 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 08 44 5c 22 5c 32 31 30 08 5c 33 32 30 48 5c 33 32 31 K.\305\306\307.D\"\210.\320H\321
2d80 08 5c 33 30 34 48 09 3e 5c 32 30 34 5e 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 08 44 5c 22 5c 32 .\304H.>\204^.\305\306\307.D\"\2
2da0 31 30 08 5c 33 32 32 48 5c 33 32 33 5c 32 36 30 07 5c 22 5c 22 41 49 5c 32 31 30 29 08 5c 33 30 10.\322H\323\260.\"\"AI\210).\30
2dc0 34 48 09 3e 5c 32 30 34 79 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 08 44 5c 22 5c 32 31 30 08 5c 4H.>\204y.\305\306\307.D\"\210.\
2de0 33 32 34 48 5c 32 31 31 1b 5c 32 30 33 5c 33 32 37 00 5c 33 32 35 0b 08 5c 33 30 34 48 09 3e 5c 324H\211.\203\327.\325..\304H.>\
2e00 32 30 34 5c 32 32 32 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 08 44 5c 22 5c 32 31 30 08 5c 33 32 204\222.\305\306\307.D\"\210.\32
2e20 36 48 5c 33 32 37 5c 33 33 30 08 5c 33 30 34 48 09 3e 5c 32 30 34 5c 32 34 36 00 5c 33 30 35 5c 6H\327\330.\304H.>\204\246.\305\
2e40 33 30 36 5c 33 30 37 08 44 5c 22 5c 32 31 30 08 5c 33 31 30 48 5c 33 33 31 08 5c 33 30 34 48 09 306\307.D\"\210.\310H\331.\304H.
2e60 3e 5c 32 30 34 5c 32 37 31 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 08 44 5c 22 5c 32 31 30 08 5c >\204\271.\305\306\307.D\"\210.\
2e80 33 32 32 48 5c 33 33 32 08 5c 33 30 34 48 09 3e 5c 32 30 34 5c 33 31 34 00 5c 33 30 35 5c 33 30 322H\332.\304H.>\204\314.\305\30
2ea0 36 5c 33 30 37 08 44 5c 22 5c 32 31 30 08 5c 33 33 33 48 5c 32 35 37 06 24 5c 32 31 30 5c 33 33 6\307.D\"\210.\333H\257.$\210\33
2ec0 34 0b 21 5c 32 31 30 29 08 5c 32 30 37 22 20 5b 74 6f 6b 65 6e 20 63 6c 2d 73 74 72 75 63 74 2d 4.!\210).\207".[token.cl-struct-
2ee0 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 20 23 31 3d 23 3a 76 20 70 6c 73 74 6f 72 65 oauth2-token-tags.#1=#:v.plstore
2f00 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 6f 61 .0.signal.wrong-type-argument.oa
2f20 75 74 68 32 2d 74 6f 6b 65 6e 20 35 20 61 73 73 6f 63 20 61 63 63 65 73 73 5f 74 6f 6b 65 6e 20 uth2-token.5.assoc.access_token.
2f40 6f 61 75 74 68 32 2d 6d 61 6b 65 2d 61 63 63 65 73 73 2d 72 65 71 75 65 73 74 20 37 20 22 63 6c oauth2-make-access-request.7."cl
2f60 69 65 6e 74 5f 69 64 3d 22 20 33 20 22 26 63 6c 69 65 6e 74 5f 73 65 63 72 65 74 3d 22 20 34 20 ient_id=".3."&client_secret=".4.
2f80 22 26 72 65 66 72 65 73 68 5f 74 6f 6b 65 6e 3d 22 20 36 20 22 26 67 72 61 6e 74 5f 74 79 70 65 "&refresh_token=".6."&grant_type
2fa0 3d 72 65 66 72 65 73 68 5f 74 6f 6b 65 6e 22 20 31 20 70 6c 73 74 6f 72 65 2d 70 75 74 20 32 20 =refresh_token".1.plstore-put.2.
2fc0 6e 69 6c 20 3a 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 3a 72 65 66 72 65 73 68 2d 74 6f 6b 65 6e nil.:access-token.:refresh-token
2fe0 20 3a 61 63 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 38 20 70 6c 73 74 6f 72 65 2d 73 61 76 65 .:access-response.8.plstore-save
3000 5d 20 31 36 20 28 23 24 20 2e 20 31 31 33 33 32 29 5d 29 0a 23 40 33 38 20 41 75 74 68 65 6e 74 ].16.(#$...11332)]).#@38.Authent
3020 69 63 61 74 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 76 69 61 20 4f 41 75 74 68 32 2e 1f 0a 28 icate.application.via.OAuth2...(
3040 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 61 75 74 68 20 23 5b 28 61 75 74 68 2d 75 72 defalias.'oauth2-auth.#[(auth-ur
3060 6c 20 74 6f 6b 65 6e 2d 75 72 6c 20 63 6c 69 65 6e 74 2d 69 64 20 63 6c 69 65 6e 74 2d 73 65 63 l.token-url.client-id.client-sec
3080 72 65 74 20 26 6f 70 74 69 6f 6e 61 6c 20 73 63 6f 70 65 20 73 74 61 74 65 20 72 65 64 69 72 65 ret.&optional.scope.state.redire
30a0 63 74 2d 75 72 69 29 20 22 5c 33 30 36 08 09 5c 6e 5c 33 30 37 0b 09 5c 66 0d 0e 08 25 0e 08 25 ct-uri)."\306..\n\307..\f...%..%
30c0 5c 32 30 37 22 20 5b 74 6f 6b 65 6e 2d 75 72 6c 20 63 6c 69 65 6e 74 2d 69 64 20 63 6c 69 65 6e \207".[token-url.client-id.clien
30e0 74 2d 73 65 63 72 65 74 20 61 75 74 68 2d 75 72 6c 20 73 63 6f 70 65 20 73 74 61 74 65 20 6f 61 t-secret.auth-url.scope.state.oa
3100 75 74 68 32 2d 72 65 71 75 65 73 74 2d 61 63 63 65 73 73 20 6f 61 75 74 68 32 2d 72 65 71 75 65 uth2-request-access.oauth2-reque
3120 73 74 2d 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e 20 72 65 64 69 72 65 63 74 2d 75 72 69 5d 20 31 st-authorization.redirect-uri].1
3140 30 20 28 23 24 20 2e 20 31 32 33 31 33 29 5d 29 0a 23 40 33 37 20 46 69 6c 65 20 70 61 74 68 20 0.(#$...12313)]).#@37.File.path.
3160 77 68 65 72 65 20 73 74 6f 72 65 20 4f 41 75 74 68 20 74 6f 6b 65 6e 73 2e 1f 0a 28 63 75 73 74 where.store.OAuth.tokens...(cust
3180 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 27 6f 61 75 74 68 32 2d 74 6f 6b 65 om-declare-variable.'oauth2-toke
31a0 6e 2d 66 69 6c 65 20 27 28 63 6f 6e 63 61 74 20 75 73 65 72 2d 65 6d 61 63 73 2d 64 69 72 65 63 n-file.'(concat.user-emacs-direc
31c0 74 6f 72 79 20 22 6f 61 75 74 68 32 2e 70 6c 73 74 6f 72 65 22 29 20 27 28 23 24 20 2e 20 31 32 tory."oauth2.plstore").'(#$...12
31e0 36 33 30 29 20 3a 67 72 6f 75 70 20 27 6f 61 75 74 68 32 20 3a 74 79 70 65 20 27 66 69 6c 65 29 630).:group.'oauth2.:type.'file)
3200 0a 23 40 38 36 20 43 6f 6d 70 75 74 65 20 61 6e 20 75 6e 69 71 75 65 20 69 64 20 62 61 73 65 64 .#@86.Compute.an.unique.id.based
3220 20 6f 6e 20 55 52 4c 73 2e 0a 54 68 69 73 20 61 6c 6c 6f 77 73 20 74 6f 20 73 74 6f 72 65 20 74 .on.URLs..This.allows.to.store.t
3240 68 65 20 74 6f 6b 65 6e 20 69 6e 20 61 6e 20 75 6e 69 71 75 65 20 77 61 79 2e 1f 0a 28 64 65 66 he.token.in.an.unique.way...(def
3260 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 63 6f 6d 70 75 74 65 2d 69 64 20 23 5b 28 61 75 74 68 alias.'oauth2-compute-id.#[(auth
3280 2d 75 72 6c 20 74 6f 6b 65 6e 2d 75 72 6c 20 72 65 73 6f 75 72 63 65 2d 75 72 6c 29 20 22 5c 33 -url.token-url.resource-url)."\3
32a0 30 33 5c 33 30 34 08 09 5c 6e 51 5c 22 5c 32 30 37 22 20 5b 61 75 74 68 2d 75 72 6c 20 74 6f 6b 03\304..\nQ\"\207".[auth-url.tok
32c0 65 6e 2d 75 72 6c 20 72 65 73 6f 75 72 63 65 2d 75 72 6c 20 73 65 63 75 72 65 2d 68 61 73 68 20 en-url.resource-url.secure-hash.
32e0 6d 64 35 5d 20 35 20 28 23 24 20 2e 20 31 32 38 30 36 29 5d 29 0a 23 40 36 30 20 52 65 71 75 65 md5].5.(#$...12806)]).#@60.Reque
3300 73 74 20 61 63 63 65 73 73 20 74 6f 20 61 20 72 65 73 6f 75 72 63 65 20 61 6e 64 20 73 74 6f 72 st.access.to.a.resource.and.stor
3320 65 20 69 74 20 75 73 69 6e 67 20 60 70 6c 73 74 6f 72 65 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 e.it.using.`plstore'...(defalias
3340 20 27 6f 61 75 74 68 32 2d 61 75 74 68 2d 61 6e 64 2d 73 74 6f 72 65 20 23 5b 28 61 75 74 68 2d .'oauth2-auth-and-store.#[(auth-
3360 75 72 6c 20 74 6f 6b 65 6e 2d 75 72 6c 20 72 65 73 6f 75 72 63 65 2d 75 72 6c 20 63 6c 69 65 6e url.token-url.resource-url.clien
3380 74 2d 69 64 20 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 64 t-id.client-secret.&optional.red
33a0 69 72 65 63 74 2d 75 72 69 29 20 22 5c 33 30 36 08 21 19 5c 33 30 37 5c 6e 0b 5c 66 23 1d 5c 33 irect-uri)."\306.!.\307\n.\f#.\3
33c0 31 30 09 0d 5c 22 41 5c 32 31 31 1e 1c 5c 32 30 33 32 00 5c 33 31 31 5c 33 31 32 09 0d 0e 1d 0e 10..\"A\211..\2032.\311\312.....
33e0 1e 5c 33 31 33 0e 1c 5c 33 31 34 5c 22 5c 33 31 33 0e 1c 5c 33 31 35 5c 22 0b 5c 33 31 33 0e 1c .\313..\314\"\313..\315\".\313..
3400 5c 33 31 36 5c 22 26 09 5c 32 30 32 5c 33 31 34 00 5c 33 31 37 5c 6e 0b 0e 1d 0e 1e 5c 66 5c 33 \316\"&.\202\314.\317\n.....\f\3
3420 32 30 0e 1f 26 07 5c 32 31 31 1e 20 5c 33 32 31 48 0e 21 3e 5c 32 30 34 52 00 5c 33 32 32 5c 33 20..&.\211..\321H.!>\204R.\322\3
3440 32 33 5c 33 32 34 0e 20 44 5c 22 5c 32 31 30 0e 20 5c 32 31 31 1e 5c 22 5c 33 32 35 09 49 5c 32 23\324..D\"\210..\211.\"\325.I\2
3460 31 30 29 0e 20 5c 33 32 31 48 0e 21 3e 5c 32 30 34 6e 00 5c 33 32 32 5c 33 32 33 5c 33 32 34 0e 10)..\321H.!>\204n.\322\323\324.
3480 20 44 5c 22 5c 32 31 30 0e 20 5c 32 31 31 1e 23 5c 33 32 36 0d 49 5c 32 31 30 29 5c 33 32 37 09 .D\"\210..\211.#\326.I\210)\327.
34a0 0d 5c 33 32 30 5c 33 31 34 0e 20 5c 33 32 31 48 0e 21 3e 5c 32 30 34 5c 32 31 37 00 5c 33 32 32 .\320\314..\321H.!>\204\217.\322
34c0 5c 33 32 33 5c 33 32 34 0e 20 44 5c 22 5c 32 31 30 0e 20 5c 33 33 30 48 5c 33 31 35 0e 20 5c 33 \323\324..D\"\210..\330H\315..\3
34e0 32 31 48 0e 21 3e 5c 32 30 34 5c 32 34 36 00 5c 33 32 32 5c 33 32 33 5c 33 32 34 0e 20 44 5c 22 21H.!>\204\246.\322\323\324..D\"
3500 5c 32 31 30 0e 20 5c 33 33 31 48 5c 33 31 36 0e 20 5c 33 32 31 48 0e 21 3e 5c 32 30 34 5c 32 37 \210..\331H\316..\321H.!>\204\27
3520 35 00 5c 33 32 32 5c 33 32 33 5c 33 32 34 0e 20 44 5c 22 5c 32 31 30 0e 20 5c 33 33 32 48 5c 32 5.\322\323\324..D\"\210..\332H\2
3540 35 37 06 24 5c 32 31 30 5c 33 33 33 09 21 5c 32 31 30 0e 20 29 2b 5c 32 30 37 22 20 5b 6f 61 75 57.$\210\333.!\210..)+\207".[oau
3560 74 68 32 2d 74 6f 6b 65 6e 2d 66 69 6c 65 20 70 6c 73 74 6f 72 65 20 61 75 74 68 2d 75 72 6c 20 th2-token-file.plstore.auth-url.
3580 74 6f 6b 65 6e 2d 75 72 6c 20 72 65 73 6f 75 72 63 65 2d 75 72 6c 20 69 64 20 70 6c 73 74 6f 72 token-url.resource-url.id.plstor
35a0 65 2d 6f 70 65 6e 20 6f 61 75 74 68 32 2d 63 6f 6d 70 75 74 65 2d 69 64 20 70 6c 73 74 6f 72 65 e-open.oauth2-compute-id.plstore
35c0 2d 67 65 74 20 76 65 63 74 6f 72 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b -get.vector.cl-struct-oauth2-tok
35e0 65 6e 20 70 6c 69 73 74 2d 67 65 74 20 3a 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 3a 72 65 66 72 en.plist-get.:access-token.:refr
3600 65 73 68 2d 74 6f 6b 65 6e 20 3a 61 63 63 65 73 73 2d 72 65 73 70 6f 6e 73 65 20 6f 61 75 74 68 esh-token.:access-response.oauth
3620 32 2d 61 75 74 68 20 6e 69 6c 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 2-auth.nil.0.signal.wrong-type-a
3640 72 67 75 6d 65 6e 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 31 20 32 20 70 6c 73 74 6f 72 65 rgument.oauth2-token.1.2.plstore
3660 2d 70 75 74 20 35 20 36 20 38 20 70 6c 73 74 6f 72 65 2d 73 61 76 65 20 70 6c 69 73 74 20 63 6c -put.5.6.8.plstore-save.plist.cl
3680 69 65 6e 74 2d 69 64 20 63 6c 69 65 6e 74 2d 73 65 63 72 65 74 20 72 65 64 69 72 65 63 74 2d 75 ient-id.client-secret.redirect-u
36a0 72 69 20 74 6f 6b 65 6e 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 2d ri.token.cl-struct-oauth2-token-
36c0 74 61 67 73 20 23 31 3d 23 3a 76 20 23 32 3d 23 3a 76 5d 20 31 34 20 28 23 24 20 2e 20 31 33 30 tags.#1=#:v.#2=#:v].14.(#$...130
36e0 35 31 29 5d 29 0a 23 40 32 39 20 41 70 70 65 6e 64 20 61 63 63 65 73 73 20 74 6f 6b 65 6e 20 74 51)]).#@29.Append.access.token.t
3700 6f 20 55 52 4c 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 75 72 6c 2d 61 70 o.URL...(defalias.'oauth2-url-ap
3720 70 65 6e 64 2d 61 63 63 65 73 73 2d 74 6f 6b 65 6e 20 23 5b 28 74 6f 6b 65 6e 20 75 72 6c 29 20 pend-access-token.#[(token.url).
3740 22 08 5c 33 30 34 08 5c 33 30 35 5c 33 30 36 19 5c 33 30 37 03 03 03 23 29 5c 32 36 36 5c 32 30 ".\304.\305\306.\307...#)\266\20
3760 33 5c 32 30 33 15 00 5c 33 31 30 5c 32 30 32 16 00 5c 33 30 34 5c 33 31 31 5c 6e 5c 33 31 32 48 3\203..\310\202..\304\311\n\312H
3780 0b 3e 5c 32 30 34 26 00 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 6e 44 5c 22 5c 32 31 30 5c 6e 5c .>\204&.\313\314\315\nD\"\210\n\
37a0 33 31 36 48 52 5c 32 30 37 22 20 5b 75 72 6c 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 316HR\207".[url.inhibit-changing
37c0 2d 6d 61 74 63 68 2d 64 61 74 61 20 74 6f 6b 65 6e 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 -match-data.token.cl-struct-oaut
37e0 68 32 2d 74 6f 6b 65 6e 2d 74 61 67 73 20 22 3f 22 20 6e 69 6c 20 74 20 73 74 72 69 6e 67 2d 6d h2-token-tags."?".nil.t.string-m
3800 61 74 63 68 20 22 26 22 20 22 61 63 63 65 73 73 5f 74 6f 6b 65 6e 3d 22 20 30 20 73 69 67 6e 61 atch."&"."access_token=".0.signa
3820 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 6f 61 75 74 68 32 2d 74 6f 6b l.wrong-type-argument.oauth2-tok
3840 65 6e 20 35 5d 20 38 20 28 23 24 20 2e 20 31 34 30 35 39 29 5d 29 0a 28 64 65 66 76 61 72 20 6f en.5].8.(#$...14059)]).(defvar.o
3860 61 75 74 68 2d 2d 75 72 6c 2d 61 64 76 69 63 65 20 6e 69 6c 29 0a 23 40 35 31 20 52 65 74 75 72 auth--url-advice.nil).#@51.Retur
3880 6e 20 27 41 75 74 68 6f 72 69 7a 74 69 6f 6e 73 3a 20 42 65 61 72 65 72 27 20 68 65 61 64 65 72 n.'Authoriztions:.Bearer'.header
38a0 20 77 69 74 68 20 54 4f 4b 45 4e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d .with.TOKEN...(defalias.'oauth2-
38c0 61 75 74 68 7a 2d 62 65 61 72 65 72 2d 68 65 61 64 65 72 20 23 5b 28 74 6f 6b 65 6e 29 20 22 5c authz-bearer-header.#[(token)."\
38e0 33 30 31 5c 33 30 32 5c 33 30 33 08 5c 22 42 5c 32 30 37 22 20 5b 74 6f 6b 65 6e 20 22 41 75 74 301\302\303.\"B\207".[token."Aut
3900 68 6f 72 69 7a 61 74 69 6f 6e 22 20 66 6f 72 6d 61 74 20 22 42 65 61 72 65 72 20 25 73 22 5d 20 horization".format."Bearer.%s"].
3920 34 20 28 23 24 20 2e 20 31 34 34 35 39 29 5d 29 0a 23 40 35 38 20 52 65 74 75 72 6e 20 45 58 54 4.(#$...14459)]).#@58.Return.EXT
3940 52 41 2d 48 45 41 44 45 52 53 20 77 69 74 68 20 27 41 75 74 68 6f 72 69 7a 61 74 69 6f 6e 3a 20 RA-HEADERS.with.'Authorization:.
3960 42 65 61 72 65 72 27 20 61 64 64 65 64 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 Bearer'.added...(defalias.'oauth
3980 32 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 20 23 5b 28 65 78 74 72 61 2d 68 65 61 64 65 72 73 2-extra-headers.#[(extra-headers
39a0 29 20 22 5c 33 30 33 08 40 5c 33 30 34 48 09 3e 5c 32 30 34 12 00 5c 33 30 35 5c 33 30 36 5c 33 )."\303.@\304H.>\204..\305\306\3
39c0 30 37 08 40 44 5c 22 5c 32 31 30 08 40 5c 33 31 30 48 21 5c 6e 42 5c 32 30 37 22 20 5b 6f 61 75 07.@D\"\210.@\310H!\nB\207".[oau
39e0 74 68 2d 2d 74 6f 6b 65 6e 2d 64 61 74 61 20 63 6c 2d 73 74 72 75 63 74 2d 6f 61 75 74 68 32 2d th--token-data.cl-struct-oauth2-
3a00 74 6f 6b 65 6e 2d 74 61 67 73 20 65 78 74 72 61 2d 68 65 61 64 65 72 73 20 6f 61 75 74 68 32 2d token-tags.extra-headers.oauth2-
3a20 61 75 74 68 7a 2d 62 65 61 72 65 72 2d 68 65 61 64 65 72 20 30 20 73 69 67 6e 61 6c 20 77 72 6f authz-bearer-header.0.signal.wro
3a40 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 6f 61 75 74 68 32 2d 74 6f 6b 65 6e 20 35 5d ng-type-argument.oauth2-token.5]
3a60 20 35 20 28 23 24 20 2e 20 31 34 36 34 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 .5.(#$...14646)]).(byte-code."\3
3a80 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 24 5c 32 31 30 5c 33 30 35 5c 33 30 31 5c 00\301\302\303\304$\210\305\301\
3aa0 33 30 34 5c 22 5c 32 30 37 22 20 5b 61 64 2d 61 64 64 2d 61 64 76 69 63 65 20 75 72 6c 2d 68 74 304\"\207".[ad-add-advice.url-ht
3ac0 74 70 2d 68 61 6e 64 6c 65 2d 61 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 28 6f 61 75 74 68 2d tp-handle-authentication.(oauth-
3ae0 68 61 63 6b 20 6e 69 6c 20 74 20 28 61 64 76 69 63 65 20 6c 61 6d 62 64 61 20 6e 69 6c 20 28 69 hack.nil.t.(advice.lambda.nil.(i
3b00 66 20 28 6e 6f 74 20 6f 61 75 74 68 2d 2d 75 72 6c 2d 61 64 76 69 63 65 29 20 61 64 2d 64 6f 2d f.(not.oauth--url-advice).ad-do-
3b20 69 74 20 28 6c 65 74 20 28 28 75 72 6c 2d 72 65 71 75 65 73 74 2d 6d 65 74 68 6f 64 20 75 72 6c it.(let.((url-request-method.url
3b40 2d 68 74 74 70 2d 6d 65 74 68 6f 64 29 20 28 75 72 6c 2d 72 65 71 75 65 73 74 2d 64 61 74 61 20 -http-method).(url-request-data.
3b60 75 72 6c 2d 68 74 74 70 2d 64 61 74 61 29 20 28 75 72 6c 2d 72 65 71 75 65 73 74 2d 65 78 74 72 url-http-data).(url-request-extr
3b80 61 2d 68 65 61 64 65 72 73 20 28 6f 61 75 74 68 32 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 20 a-headers.(oauth2-extra-headers.
3ba0 75 72 6c 2d 68 74 74 70 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 29 29 29 29 20 28 6f 61 75 74 url-http-extra-headers)))).(oaut
3bc0 68 32 2d 72 65 66 72 65 73 68 2d 61 63 63 65 73 73 20 28 63 61 72 20 6f 61 75 74 68 2d 2d 74 6f h2-refresh-access.(car.oauth--to
3be0 6b 65 6e 2d 64 61 74 61 29 29 20 28 75 72 6c 2d 72 65 74 72 69 65 76 65 2d 69 6e 74 65 72 6e 61 ken-data)).(url-retrieve-interna
3c00 6c 20 28 63 64 72 20 6f 61 75 74 68 2d 2d 74 6f 6b 65 6e 2d 64 61 74 61 29 20 75 72 6c 2d 63 61 l.(cdr.oauth--token-data).url-ca
3c20 6c 6c 62 61 63 6b 2d 66 75 6e 63 74 69 6f 6e 20 75 72 6c 2d 63 61 6c 6c 62 61 63 6b 2d 61 72 67 llback-function.url-callback-arg
3c40 75 6d 65 6e 74 73 29 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 27 73 75 63 63 65 73 73 29 20 uments).(when.(boundp.'success).
3c60 28 73 65 74 71 20 73 75 63 63 65 73 73 20 74 29 29 20 28 73 65 74 71 20 61 64 2d 72 65 74 75 72 (setq.success.t)).(setq.ad-retur
3c80 6e 2d 76 61 6c 75 65 20 74 29 29 29 29 20 61 72 6f 75 6e 64 20 6e 69 6c 20 61 64 2d 61 63 74 69 n-value.t)))).around.nil.ad-acti
3ca0 76 61 74 65 5d 20 35 29 0a 23 40 39 39 20 52 65 74 72 69 65 76 65 20 61 6e 20 55 52 4c 20 73 79 vate].5).#@99.Retrieve.an.URL.sy
3cc0 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 75 73 69 6e 67 20 54 4f 4b 45 4e 20 74 6f 20 61 63 63 65 73 nchronously.using.TOKEN.to.acces
3ce0 73 20 69 74 2e 0a 54 4f 4b 45 4e 20 63 61 6e 20 62 65 20 6f 62 74 61 69 6e 65 64 20 77 69 74 68 s.it..TOKEN.can.be.obtained.with
3d00 20 60 6f 61 75 74 68 32 2d 61 75 74 68 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 .`oauth2-auth'...(defalias.'oaut
3d20 68 32 2d 75 72 6c 2d 72 65 74 72 69 65 76 65 2d 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 23 5b h2-url-retrieve-synchronously.#[
3d40 28 74 6f 6b 65 6e 20 75 72 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 71 75 65 73 74 2d 6d 65 74 (token.url.&optional.request-met
3d60 68 6f 64 20 72 65 71 75 65 73 74 2d 64 61 74 61 20 72 65 71 75 65 73 74 2d 65 78 74 72 61 2d 68 hod.request-data.request-extra-h
3d80 65 61 64 65 72 73 29 20 22 08 09 42 1a 5c 33 30 36 0b 5c 66 5c 33 30 37 0d 21 1e 09 1e 5c 6e 1e eaders)."..B.\306.\f\307.!...\n.
3da0 0b 1e 5c 66 5c 33 31 30 09 21 2d 5c 32 30 37 22 20 5b 74 6f 6b 65 6e 20 75 72 6c 20 6f 61 75 74 ..\f\310.!-\207".[token.url.oaut
3dc0 68 2d 2d 74 6f 6b 65 6e 2d 64 61 74 61 20 72 65 71 75 65 73 74 2d 6d 65 74 68 6f 64 20 72 65 71 h--token-data.request-method.req
3de0 75 65 73 74 2d 64 61 74 61 20 72 65 71 75 65 73 74 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 20 uest-data.request-extra-headers.
3e00 74 20 6f 61 75 74 68 32 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 20 75 72 6c 2d 72 65 74 72 69 t.oauth2-extra-headers.url-retri
3e20 65 76 65 2d 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 75 72 6c 2d 72 65 71 75 65 73 74 2d 65 78 eve-synchronously.url-request-ex
3e40 74 72 61 2d 68 65 61 64 65 72 73 20 75 72 6c 2d 72 65 71 75 65 73 74 2d 64 61 74 61 20 75 72 6c tra-headers.url-request-data.url
3e60 2d 72 65 71 75 65 73 74 2d 6d 65 74 68 6f 64 20 6f 61 75 74 68 2d 2d 75 72 6c 2d 61 64 76 69 63 -request-method.oauth--url-advic
3e80 65 5d 20 35 20 28 23 24 20 2e 20 31 35 35 33 34 29 5d 29 0a 23 40 31 37 30 20 52 65 74 72 69 65 e].5.(#$...15534)]).#@170.Retrie
3ea0 76 65 20 61 6e 20 55 52 4c 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 75 73 69 6e 67 20 54 ve.an.URL.asynchronously.using.T
3ec0 4f 4b 45 4e 20 74 6f 20 61 63 63 65 73 73 20 69 74 2e 0a 54 4f 4b 45 4e 20 63 61 6e 20 62 65 20 OKEN.to.access.it..TOKEN.can.be.
3ee0 6f 62 74 61 69 6e 65 64 20 77 69 74 68 20 60 6f 61 75 74 68 32 2d 61 75 74 68 27 2e 20 20 43 41 obtained.with.`oauth2-auth'...CA
3f00 4c 4c 42 41 43 4b 20 67 65 74 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 43 42 41 52 47 53 0a 77 LLBACK.gets.called.with.CBARGS.w
3f20 68 65 6e 20 66 69 6e 69 73 68 65 64 2e 20 20 53 65 65 20 60 75 72 6c 2d 72 65 74 72 69 65 76 65 hen.finished...See.`url-retrieve
3f40 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 61 75 74 68 32 2d 75 72 6c 2d 72 65 74 72 69 65 '...(defalias.'oauth2-url-retrie
3f60 76 65 20 23 5b 28 74 6f 6b 65 6e 20 75 72 6c 20 63 61 6c 6c 62 61 63 6b 20 26 6f 70 74 69 6f 6e ve.#[(token.url.callback.&option
3f80 61 6c 20 63 62 61 72 67 73 20 72 65 71 75 65 73 74 2d 6d 65 74 68 6f 64 20 72 65 71 75 65 73 74 al.cbargs.request-method.request
3fa0 2d 64 61 74 61 20 72 65 71 75 65 73 74 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 29 20 22 08 09 -data.request-extra-headers)."..
3fc0 42 1a 5c 33 30 36 0b 5c 66 5c 33 30 37 0d 21 1e 09 1e 5c 6e 1e 0b 1e 5c 66 5c 33 31 30 09 0e 0d B.\306.\f\307.!...\n...\f\310...
3fe0 0e 0e 23 2d 5c 32 30 37 22 20 5b 74 6f 6b 65 6e 20 75 72 6c 20 6f 61 75 74 68 2d 2d 74 6f 6b 65 ..#-\207".[token.url.oauth--toke
4000 6e 2d 64 61 74 61 20 72 65 71 75 65 73 74 2d 6d 65 74 68 6f 64 20 72 65 71 75 65 73 74 2d 64 61 n-data.request-method.request-da
4020 74 61 20 72 65 71 75 65 73 74 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 20 74 20 6f 61 75 74 68 ta.request-extra-headers.t.oauth
4040 32 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 20 75 72 6c 2d 72 65 74 72 69 65 76 65 20 75 72 6c 2-extra-headers.url-retrieve.url
4060 2d 72 65 71 75 65 73 74 2d 65 78 74 72 61 2d 68 65 61 64 65 72 73 20 75 72 6c 2d 72 65 71 75 65 -request-extra-headers.url-reque
4080 73 74 2d 64 61 74 61 20 75 72 6c 2d 72 65 71 75 65 73 74 2d 6d 65 74 68 6f 64 20 6f 61 75 74 68 st-data.url-request-method.oauth
40a0 2d 2d 75 72 6c 2d 61 64 76 69 63 65 20 63 61 6c 6c 62 61 63 6b 20 63 62 61 72 67 73 5d 20 35 20 --url-advice.callback.cbargs].5.
40c0 28 23 24 20 2e 20 31 36 30 32 36 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6f 61 75 74 68 32 29 (#$...16026)]).(provide.'oauth2)
40e0 0a .