search

sigma / gh.el

GitHub API library for Emacs
274 stars 74 forks source link

Emacs 25 support #73

Closed d12frosted closed 8 years ago

d12frosted commented 8 years ago

Hey,

it seems like gh.el currently doesn't work on latest Emacs 25. Whenever I use functions from gh.el I end up with (wrong-type-argument number-or-marker-p nil) error.

For example, running (gh-issues-issue-list (gh-issues-api "API") "sigma" "gh.el") shows following trace.

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  signal(wrong-type-argument (number-or-marker-p nil))
  gh-url-set-response(nil ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  #[(req &optional resp) "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316    !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method (("basic" url-basic-auth . 4)) high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[(cb) "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10]([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply(#[(req &optional resp) "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316  !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method (("basic" url-basic-auth . 4)) high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[(cb) "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(req &optional resp) "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316   !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method (("basic" url-basic-auth . 4)) high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[(cb) "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316    !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method ... high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[... "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316   !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method ... high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[... "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(req &optional resp) "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316 !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method (("basic" url-basic-auth . 4)) high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[(cb) "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316    !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method ... high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[... "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316   !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method ... high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[... "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(req &optional resp) "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316    !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method (("basic" url-basic-auth . 4)) high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[(cb) "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316   !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method ... high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[... "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316   !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method ... high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[... "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(req &optional resp) "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316  !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method (("basic" url-basic-auth . 4)) high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[(cb) "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316   !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method ... high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[... "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\310\311\"\310\312\"\310\313\"\310\314\"\310\315\"\211\203!\316   !\202\"\317)P\310\320\"\203\\\206>\321\310\322\"!Dr\323\n\324C#q\210\325\326!\210+\202|\206g\321\310\322\"!Dr\327\n!q\210\324\330\"\210+.\331\332\310\333\"\"\210\207" [req params url url-request-extra-headers url-request-data url-request-method ... high eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[... "\302   \"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-privacy-level resp req-resp] 10] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  gh-url-run-request([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 56b9e3196d0a215af07d0c229321c73fcb9ece72") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  #[(api transformer method resource &optional data params page-limit) "\306\307\"\211\310=\203\311\202   \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form (("Content-Type" . "application/x-www-form-urlencoded")) :json (("Content-Type" . "application/json")) :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17]([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply(#[(api transformer method resource &optional data params page-limit) "\306\307\"\211\310=\203\311\202 \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form (("Content-Type" . "application/x-www-form-urlencoded")) :json (("Content-Type" . "application/json")) :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(api transformer method resource &optional data params page-limit) "\306\307\"\211\310=\203\311\202  \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form (("Content-Type" . "application/x-www-form-urlencoded")) :json (("Content-Type" . "application/json")) :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\"\211\310=\203\311\202 \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form ... :json ... :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\"\211\310=\203\311\202   \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form ... :json ... :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues") apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(api transformer method resource &optional data params page-limit) "\306\307\"\211\310=\203\311\202    \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form (("Content-Type" . "application/x-www-form-urlencoded")) :json (("Content-Type" . "application/json")) :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\"\211\310=\203\311\202 \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form ... :json ... :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\"\211\310=\203\311\202   \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form ... :json ... :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues") apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(api transformer method resource &optional data params page-limit) "\306\307\"\211\310=\203\311\202   \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form (("Content-Type" . "application/x-www-form-urlencoded")) :json (("Content-Type" . "application/json")) :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\"\211\310=\203\311\202    \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form ... :json ... :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\"\211\310=\203\311\202   \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form ... :json ... :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(api transformer method resource &optional data params page-limit) "\306\307\"\211\310=\203\311\202 \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form (("Content-Type" . "application/x-www-form-urlencoded")) :json (("Content-Type" . "application/json")) :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\"\211\310=\203\311\202    \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form ... :json ... :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\306\307\"\211\310=\203\311\202   \312=\205\313\306\314\"\f
\315\316\3171\"!E2\2057
\306\320\"\235\20572\2113\205B\3213\"\2114\205M\3223\"54\205Y\3233\"\2116\205d\3243\"74\203p6\205\270\325\306\326\"\327\330\331
\332\306\333\"\334\f\"P\3358\3367\203\225\3377B\nB\202\226\n\340 \312=\203\244\3419!\206\262  \310=\203\261\3429!\206\262\343\344:&
\";4\203\3176\204\317\345\346\347\350\3405%\202'3\203\376\327\306;\351\"\3521#<\353;<\"\210\354<\327\355\314\3563\3577&\"\210<)\202'\203\3602\"\210\353;\327\306;\351\"\3521#\"\202'\353;\327\306;\351\"\3521#\".\n\207" [api fmt headers cache resource method eieio-oref :data-format :form ... :json ... :cache sha1 format "%s" safe-methods pcache-has pcache-get gh-cache-outdated-p gh-cache-etag gh-auth-modify-request :auth make-instance gh-api-paged-request :method :url :base gh-api-expand-resource :query :headers "If-None-Match" :data gh-api-json-encode gh-url-form-encode "" :page-limit gh-api-response "cached" :data-received t default-response-cls :transform gh-url-run-request gh-url-add-response-callback gh-api-callback :key :revive pcache-invalidate transformer ...] 17] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] (#[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  gh-api-authenticated-request([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  #[(api user repo) "\303\304\305\306\"!\307\310\311  \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8]([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] "sigma" "gh.el")
  apply(#[(api user repo) "\303\304\305\306\"!\307\310\311    \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] "sigma" "gh.el"))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(api user repo) "\303\304\305\306\"!\307\310\311 \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\303\304\305\306\"!\307\310\311   \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\303\304\305\306\"!\307\310\311    \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] "sigma" "gh.el") apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] "sigma" "gh.el")
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(api user repo) "\303\304\305\306\"!\307\310\311   \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\303\304\305\306\"!\307\310\311   \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\303\304\305\306\"!\307\310\311    \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] "sigma" "gh.el") apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] "sigma" "gh.el"))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(api user repo) "\303\304\305\306\"!\307\310\311  \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\303\304\305\306\"!\307\310\311  \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\303\304\305\306\"!\307\310\311    \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] "sigma" "gh.el")
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[(api user repo) "\303\304\305\306\"!\307\310\311    \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\303\304\305\306\"!\307\310\311  \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [#[... "\303\304\305\306\"!\307\310\311    \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] ("sigma" "gh.el"))
  gh-issues-issue-list([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "SECRET" "SECRET"] :json 0 nil] "sigma" "gh.el")
  eval((gh-issues-issue-list (gh-issues-api (identity "API")) "sigma" "gh.el") nil)
  eval-expression((gh-issues-issue-list (gh-issues-api "API") "sigma" "gh.el") nil)
  funcall-interactively(eval-expression (gh-issues-issue-list (gh-issues-api "API") "sigma" "gh.el") nil)
  call-interactively(eval-expression nil nil)
  command-execute(eval-expression)

This also breaks some other packages that depend on gh.el.

stig commented 8 years ago

I think this is related to #53 and #54, and yes, I have the same problem :-(

It breaks both magit-gh-pulls.el, gist.el & yagist.el for me. I'm running Emacs 25 because I'd like to use its updated Gnus (which is not provided for 24.x), but I am considering reverting to Emacs 24 for non-Gnus due to this issue.

stig commented 8 years ago

I'd be willing to try to debug it myself, but I haven't got a clue where to start, regretfully. Any pointers?

sigma commented 8 years ago

yeah, there seems to be quite a few incompatible changes in eieio (again...) Working on it. I think the "next" branch should be in a much better shape, if somebody wants to give it a try

stig commented 8 years ago

Hello! I gave it a go. After installing the new "marshal" dependency I am still seeing this (or a related) issue. Here's my stack trace from running (gh-issues-issue-list (gh-issues-api "API") "sigma" "gh.el"):

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  signal(wrong-type-argument (number-or-marker-p nil))
  (if (or (null num) (= 0 num)) (signal (car err) (cdr err)) (eieio-oset req (quote :num-retries) (1- num)) (gh-url-run-request req resp))
  (let ((num (eieio-oref req (quote :num-retries)))) (if (or (null num) (= 0 num)) (signal (car err) (cdr err)) (eieio-oset req (quote :num-retries) (1- num)) (gh-url-run-request req resp)))
  (condition-case err (let ((responses-req (clone req))) (eieio-oset resp (quote :-req) responses-req) (gh-url-response-init resp (current-buffer))) (error (let ((num (eieio-oref req (quote :num-retries)))) (if (or (null num) (= 0 num)) (signal (car err) (cdr err)) (eieio-oset req (quote :num-retries) (1- num)) (gh-url-run-request req resp)))))
  (let* ((--cl-rest-- req-resp) (req (if (= (length --cl-rest--) 2) (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal (quote wrong-number-of-arguments) (list nil (length --cl-rest--))))) (resp (car --cl-rest--))) (condition-case err (let ((responses-req (clone req))) (eieio-oset resp (quote :-req) responses-req) (gh-url-response-init resp (current-buffer))) (error (let ((num (eieio-oref req (quote :num-retries)))) (if (or (null num) (= 0 num)) (signal (car err) (cdr err)) (eieio-oset req (quote :num-retries) (1- num)) (gh-url-run-request req resp))))))
  gh-url-set-response(nil ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))
  (let* ((resp (or resp (make-instance (eieio-oref req (quote default-response-cls))))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp)))
  (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance (eieio-oref req (quote default-response-cls))))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance (eieio-oref req (quote default-response-cls))))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))))
  (let ((url-registered-auth-schemes (quote (("basic" url-basic-auth . 4)))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req (quote :url)) (let ((params (eieio-oref req ...))) (if params (gh-url-params-encode params) ""))))) (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance (eieio-oref req ...)))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance (eieio-oref req ...)))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp)))))
  (lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (("basic" url-basic-auth . 4)))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req (quote :url)) (let ((params ...)) (if params (gh-url-params-encode params) ""))))) (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp)([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply((lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (("basic" url-basic-auth . 4)))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req (quote :url)) (let ((params ...)) (if params (gh-url-params-encode params) ""))))) (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp) ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (...))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req ...) (let ... ...)))) (if (eieio-oref req (quote :async)) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (set ... url-registered-auth-schemes))) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (...))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req ...) (let ... ...)))) (if (eieio-oref req (quote :async)) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (set ... url-registered-auth-schemes))) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes ...) (url-privacy-level ...) (url-request-method ...) (url-request-data ...) (url-request-extra-headers ...) (url ...)) (if (eieio-oref req ...) (let* ... ...) (let* ... ...))) (mapc (function (lambda ... ...)) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes ...) (url-privacy-level ...) (url-request-method ...) (url-request-data ...) (url-request-extra-headers ...) (url ...)) (if (eieio-oref req ...) (let* ... ...) (let* ... ...))) (mapc (function (lambda ... ...)) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  gh-url-run-request([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let ((resp (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))))
  (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond ((eq fmt :form) (quote (("Content-Type" . "application/x-www-form-urlencoded")))) ((eq fmt :json) (quote (("Content-Type" . "application/json")))))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 (format "%s" transformer)))) (cache-key (and cache (member method (eieio-oref cache (quote safe-methods))) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or (not has-value) is-outdated) (gh-auth-modify-request (eieio-oref api (quote :auth)) (make-instance (quote gh-api-paged-request) :method method :url (concat (eieio-oref api ...) (gh-api-expand-resource api resource)) :query params :headers (if etag (cons ... headers) headers) :data (or (and ... ...) (and ... ...) "") :page-limit page-limit))))) (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let ((resp (make-instance (eieio-oref req ...) :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer)))))
  (lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond ((eq fmt :form) (quote (...))) ((eq fmt :json) (quote (...))))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 (format "%s" transformer)))) (cache-key (and cache (member method (eieio-oref cache (quote safe-methods))) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or (not has-value) is-outdated) (gh-auth-modify-request (eieio-oref api (quote :auth)) (make-instance (quote gh-api-paged-request) :method method :url (concat ... ...) :query params :headers (if etag ... headers) :data (or ... ... "") :page-limit page-limit))))) (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let ((resp (make-instance ... :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))))))([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply((lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond ((eq fmt :form) (quote (...))) ((eq fmt :json) (quote (...))))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 (format "%s" transformer)))) (cache-key (and cache (member method (eieio-oref cache (quote safe-methods))) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or (not has-value) is-outdated) (gh-auth-modify-request (eieio-oref api (quote :auth)) (make-instance (quote gh-api-paged-request) :method method :url (concat ... ...) :query params :headers (if etag ... headers) :data (or ... ... "") :page-limit page-limit))))) (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let ((resp (make-instance ... :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer)))))) ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond (... ...) (... ...))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 ...))) (cache-key (and cache (member method ...) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or ... is-outdated) (gh-auth-modify-request ... ...)))) (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let (...) (gh-url-run-request req resp) (gh-url-add-response-callback resp ...) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance ... :transform transformer))) (t (gh-url-run-request req (make-instance ... :transform transformer)))))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues") apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond (... ...) (... ...))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 ...))) (cache-key (and cache (member method ...) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or ... is-outdated) (gh-auth-modify-request ... ...)))) (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let (...) (gh-url-run-request req resp) (gh-url-add-response-callback resp ...) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance ... :transform transformer))) (t (gh-url-run-request req (make-instance ... :transform transformer)))))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues") apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt ...) (headers ...) (cache ...) (key ...) (cache-key ...) (has-value ...) (value ...) (is-outdated ...) (etag ...) (req ...)) (cond (... ...) (cache-key ...) (cache ... ...) (t ...)))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt ...) (headers ...) (cache ...) (key ...) (cache-key ...) (has-value ...) (value ...) (is-outdated ...) (etag ...) (req ...)) (cond (... ...) (cache-key ...) (cache ... ...) (t ...)))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] (#[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  gh-api-authenticated-request([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  (lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo)))([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  apply((lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo))) ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el"))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el") apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el") apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el"))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api ...)) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api ...)) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] ("sigma" "gh.el"))
  gh-issues-issue-list([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  eval((gh-issues-issue-list (gh-issues-api (identity "API")) "sigma" "gh.el") nil)
  elisp--eval-last-sexp(nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  call-interactively(eval-last-sexp nil nil)
  command-execute(eval-last-sexp)
sigma commented 8 years ago

@stig can you try to delete your ~/.emacs.d/var/pcache directory ? (after closing emacs) It's hard to cope with the changes that affect persistent objects :(

also, make sure there are no old .elc lying around. those are killer

stig commented 8 years ago

I've followed your instructions and now I get the following:

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  signal(wrong-type-argument (number-or-marker-p nil))
  (if (or (null num) (= 0 num)) (signal (car err) (cdr err)) (eieio-oset req (quote :num-retries) (1- num)) (gh-url-run-request req resp))
  (let ((num (eieio-oref req (quote :num-retries)))) (if (or (null num) (= 0 num)) (signal (car err) (cdr err)) (eieio-oset req (quote :num-retries) (1- num)) (gh-url-run-request req resp)))
  (condition-case err (let ((responses-req (clone req))) (eieio-oset resp (quote :-req) responses-req) (gh-url-response-init resp (current-buffer))) (error (let ((num (eieio-oref req (quote :num-retries)))) (if (or (null num) (= 0 num)) (signal (car err) (cdr err)) (eieio-oset req (quote :num-retries) (1- num)) (gh-url-run-request req resp)))))
  (let* ((--cl-rest-- req-resp) (req (if (= (length --cl-rest--) 2) (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal (quote wrong-number-of-arguments) (list nil (length --cl-rest--))))) (resp (car --cl-rest--))) (condition-case err (let ((responses-req (clone req))) (eieio-oset resp (quote :-req) responses-req) (gh-url-response-init resp (current-buffer))) (error (let ((num (eieio-oref req (quote :num-retries)))) (if (or (null num) (= 0 num)) (signal (car err) (cdr err)) (eieio-oset req (quote :num-retries) (1- num)) (gh-url-run-request req resp))))))
  gh-url-set-response(nil ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))
  (let* ((resp (or resp (make-instance (eieio-oref req (quote default-response-cls))))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp)))
  (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance (eieio-oref req (quote default-response-cls))))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance (eieio-oref req (quote default-response-cls))))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))))
  (let ((url-registered-auth-schemes (quote (("basic" url-basic-auth . 4)))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req (quote :url)) (let ((params (eieio-oref req ...))) (if params (gh-url-params-encode params) ""))))) (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance (eieio-oref req ...)))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance (eieio-oref req ...)))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp)))))
  (lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (("basic" url-basic-auth . 4)))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req (quote :url)) (let ((params ...)) (if params (gh-url-params-encode params) ""))))) (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp)([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply((lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (("basic" url-basic-auth . 4)))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req (quote :url)) (let ((params ...)) (if params (gh-url-params-encode params) ""))))) (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp) ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (...))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req ...) (let ... ...)))) (if (eieio-oref req (quote :async)) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (set ... url-registered-auth-schemes))) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (...))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req ...) (let ... ...)))) (if (eieio-oref req (quote :async)) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (set ... url-registered-auth-schemes))) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes ...) (url-privacy-level ...) (url-request-method ...) (url-request-data ...) (url-request-extra-headers ...) (url ...)) (if (eieio-oref req ...) (let* ... ...) (let* ... ...))) (mapc (function (lambda ... ...)) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes ...) (url-privacy-level ...) (url-request-method ...) (url-request-data ...) (url-request-extra-headers ...) (url ...)) (if (eieio-oref req ...) (let* ... ...) (let* ... ...))) (mapc (function (lambda ... ...)) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  gh-url-run-request([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  (cond ((and has-value (not is-outdated)) (gh-api-response (identity "cached") :data-received t :data value)) (cache-key (let ((resp (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))))
  (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond ((eq fmt :form) (quote (("Content-Type" . "application/x-www-form-urlencoded")))) ((eq fmt :json) (quote (("Content-Type" . "application/json")))))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 (format "%s" transformer)))) (cache-key (and cache (member method (eieio-oref cache (quote safe-methods))) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or (not has-value) is-outdated) (gh-auth-modify-request (eieio-oref api (quote :auth)) (make-instance (quote gh-api-paged-request) :method method :url (concat (eieio-oref api ...) (gh-api-expand-resource api resource)) :query params :headers (if etag (cons ... headers) headers) :data (or (and ... ...) (and ... ...) "") :page-limit page-limit))))) (cond ((and has-value (not is-outdated)) (gh-api-response (identity "cached") :data-received t :data value)) (cache-key (let ((resp (make-instance (eieio-oref req ...) :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer)))))
  (lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond ((eq fmt :form) (quote (...))) ((eq fmt :json) (quote (...))))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 (format "%s" transformer)))) (cache-key (and cache (member method (eieio-oref cache (quote safe-methods))) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or (not has-value) is-outdated) (gh-auth-modify-request (eieio-oref api (quote :auth)) (make-instance (quote gh-api-paged-request) :method method :url (concat ... ...) :query params :headers (if etag ... headers) :data (or ... ... "") :page-limit page-limit))))) (cond ((and has-value (not is-outdated)) (gh-api-response (identity "cached") :data-received t :data value)) (cache-key (let ((resp (make-instance ... :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))))))([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply((lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond ((eq fmt :form) (quote (...))) ((eq fmt :json) (quote (...))))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 (format "%s" transformer)))) (cache-key (and cache (member method (eieio-oref cache (quote safe-methods))) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or (not has-value) is-outdated) (gh-auth-modify-request (eieio-oref api (quote :auth)) (make-instance (quote gh-api-paged-request) :method method :url (concat ... ...) :query params :headers (if etag ... headers) :data (or ... ... "") :page-limit page-limit))))) (cond ((and has-value (not is-outdated)) (gh-api-response (identity "cached") :data-received t :data value)) (cache-key (let ((resp (make-instance ... :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer)))))) ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond (... ...) (... ...))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 ...))) (cache-key (and cache (member method ...) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or ... is-outdated) (gh-auth-modify-request ... ...)))) (cond ((and has-value (not is-outdated)) (gh-api-response (identity "cached") :data-received t :data value)) (cache-key (let (...) (gh-url-run-request req resp) (gh-url-add-response-callback resp ...) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance ... :transform transformer))) (t (gh-url-run-request req (make-instance ... :transform transformer)))))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues") apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond (... ...) (... ...))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 ...))) (cache-key (and cache (member method ...) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or ... is-outdated) (gh-auth-modify-request ... ...)))) (cond ((and has-value (not is-outdated)) (gh-api-response (identity "cached") :data-received t :data value)) (cache-key (let (...) (gh-url-run-request req resp) (gh-url-add-response-callback resp ...) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance ... :transform transformer))) (t (gh-url-run-request req (make-instance ... :transform transformer)))))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues") apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt ...) (headers ...) (cache ...) (key ...) (cache-key ...) (has-value ...) (value ...) (is-outdated ...) (etag ...) (req ...)) (cond (... ...) (cache-key ...) (cache ... ...) (t ...)))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt ...) (headers ...) (cache ...) (key ...) (cache-key ...) (has-value ...) (value ...) (is-outdated ...) (etag ...) (req ...)) (cond (... ...) (cache-key ...) (cache ... ...) (t ...)))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] (#[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  gh-api-authenticated-request([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  (lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo)))([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  apply((lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo))) ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el"))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el") apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el") apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el"))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api ...)) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api ...)) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] ("sigma" "gh.el"))
  gh-issues-issue-list([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  eval((gh-issues-issue-list (gh-issues-api (identity "API")) "sigma" "gh.el") nil)
  elisp--eval-last-sexp(nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  call-interactively(eval-last-sexp nil nil)
  command-execute(eval-last-sexp)

Thanks for looking into this by the way!

sigma commented 8 years ago

@stig can you retry with latest "next" ? The error will likely still be here, but we should get a less confusing backtrace (up until now the API retry mechanism was getting in the way)

stig commented 8 years ago

Will do as soon as I can—tomorrow at latest.

Stig

Sent from my iPhone

On 26 Jun 2016, at 16:24, Yann Hodique notifications@github.com wrote:

@stig can you retry with latest "next" ? The error will likely still be here, but we should get a less confusing backtrace (up until now the API retry mechanism was getting in the way)

— You are receiving this because you were mentioned. Reply to this email directly, view it on GitHub, or mute the thread.

stig commented 8 years ago

This was interesting. The first time I ran this now I did not get an error. I got a whole lot of debug output in *Messages* though. (I don't want to copy this wholesale because it has github tokens etc.) However, the second time I ran it I got an error:

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  1+(nil)
  (buffer-substring (point-min) (1+ url-http-end-of-headers))
  (gh-url-parse-headers (buffer-substring (point-min) (1+ url-http-end-of-headers)))
  (let ((headers (gh-url-parse-headers (buffer-substring (point-min) (1+ url-http-end-of-headers))))) (eieio-oset resp (quote :headers) headers) (eieio-oset resp (quote :http-status) (read (cdr (assoc (quote status-code) headers)))))
  (save-current-buffer (set-buffer buffer) (let ((headers (gh-url-parse-headers (buffer-substring (point-min) (1+ url-http-end-of-headers))))) (eieio-oset resp (quote :headers) headers) (eieio-oset resp (quote :http-status) (read (cdr (assoc (quote status-code) headers))))) (goto-char (1+ url-http-end-of-headers)) (let ((raw (buffer-substring (point) (point-max)))) (gh-url-response-set-data resp raw)))
  (unwind-protect (save-current-buffer (set-buffer buffer) (let ((headers (gh-url-parse-headers (buffer-substring (point-min) (1+ url-http-end-of-headers))))) (eieio-oset resp (quote :headers) headers) (eieio-oset resp (quote :http-status) (read (cdr (assoc (quote status-code) headers))))) (goto-char (1+ url-http-end-of-headers)) (let ((raw (buffer-substring (point) (point-max)))) (gh-url-response-set-data resp raw))) (kill-buffer buffer))
  (lambda (resp buffer) nil (unwind-protect (save-current-buffer (set-buffer buffer) (let ((headers (gh-url-parse-headers (buffer-substring ... ...)))) (eieio-oset resp (quote :headers) headers) (eieio-oset resp (quote :http-status) (read (cdr (assoc ... headers))))) (goto-char (1+ url-http-end-of-headers)) (let ((raw (buffer-substring (point) (point-max)))) (gh-url-response-set-data resp raw))) (kill-buffer buffer)) (gh-url-response-finalize resp) resp)([eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]] #<buffer  *http api.github.com:443*>)
  apply((lambda (resp buffer) nil (unwind-protect (save-current-buffer (set-buffer buffer) (let ((headers (gh-url-parse-headers (buffer-substring ... ...)))) (eieio-oset resp (quote :headers) headers) (eieio-oset resp (quote :http-status) (read (cdr (assoc ... headers))))) (goto-char (1+ url-http-end-of-headers)) (let ((raw (buffer-substring (point) (point-max)))) (gh-url-response-set-data resp raw))) (kill-buffer buffer)) (gh-url-response-finalize resp) resp) ([eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]] #<buffer  *http api.github.com:443*>))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (resp buffer) nil (unwind-protect (save-current-buffer (set-buffer buffer) (let ((headers ...)) (eieio-oset resp (quote :headers) headers) (eieio-oset resp (quote :http-status) (read ...))) (goto-char (1+ url-http-end-of-headers)) (let ((raw ...)) (gh-url-response-set-data resp raw))) (kill-buffer buffer)) (gh-url-response-finalize resp) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-response-init ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-response) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"]]) nil] [cl-struct-cl--generic-method (gh-url-response) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... nil ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]] #<buffer  *http api.github.com:443*>) apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]] #<buffer  *http api.github.com:443*>)
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (resp buffer) nil (unwind-protect (save-current-buffer (set-buffer buffer) (let ((headers ...)) (eieio-oset resp (quote :headers) headers) (eieio-oset resp (quote :http-status) (read ...))) (goto-char (1+ url-http-end-of-headers)) (let ((raw ...)) (gh-url-response-set-data resp raw))) (kill-buffer buffer)) (gh-url-response-finalize resp) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-response-init ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-response) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"]]) nil] [cl-struct-cl--generic-method (gh-url-response) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... nil ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]] #<buffer  *http api.github.com:443*>) apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]] #<buffer  *http api.github.com:443*>))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (resp buffer) nil (unwind-protect (save-current-buffer (set-buffer buffer) (let ... ... ...) (goto-char ...) (let ... ...)) (kill-buffer buffer)) (gh-url-response-finalize resp) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-response-init ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-response) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"]]) nil] [cl-struct-cl--generic-method (gh-url-response) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... nil ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]] #<buffer  *http api.github.com:443*>)
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (resp buffer) nil (unwind-protect (save-current-buffer (set-buffer buffer) (let ... ... ...) (goto-char ...) (let ... ...)) (kill-buffer buffer)) (gh-url-response-finalize resp) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-response-init ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-response) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"]]) nil] [cl-struct-cl--generic-method (gh-url-response) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... nil ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM RESP BUFFER)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]] #<buffer  *http api.github.com:443*>)
  gh-url-response-init([eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]] #<buffer  *http api.github.com:443*>)
  (if (or (null num) (= 0 num)) (gh-url-response-init resp (current-buffer)) (condition-case err (gh-url-response-init resp (current-buffer)) (error (eieio-oset req (quote :num-retries) (1- num)) (gh-url-run-request req resp))))
  (let ((responses-req (clone req)) (num (eieio-oref req (quote :num-retries)))) (eieio-oset resp (quote :-req) responses-req) (if (or (null num) (= 0 num)) (gh-url-response-init resp (current-buffer)) (condition-case err (gh-url-response-init resp (current-buffer)) (error (eieio-oset req (quote :num-retries) (1- num)) (gh-url-run-request req resp)))))
  (let* ((--cl-rest-- req-resp) (req (if (= (length --cl-rest--) 2) (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (signal (quote wrong-number-of-arguments) (list nil (length --cl-rest--))))) (resp (car --cl-rest--))) (let ((responses-req (clone req)) (num (eieio-oref req (quote :num-retries)))) (eieio-oset resp (quote :-req) responses-req) (if (or (null num) (= 0 num)) (gh-url-response-init resp (current-buffer)) (condition-case err (gh-url-response-init resp (current-buffer)) (error (eieio-oset req (quote :num-retries) (1- num)) (gh-url-run-request req resp))))))
  gh-url-set-response(nil ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))
  (let* ((resp (or resp (make-instance (eieio-oref req (quote default-response-cls))))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp)))
  (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance (eieio-oref req (quote default-response-cls))))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance (eieio-oref req (quote default-response-cls))))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))))
  (let ((url-registered-auth-schemes (quote (("basic" url-basic-auth . 4)))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req (quote :url)) (let ((params (eieio-oref req ...))) (if params (gh-url-params-encode params) ""))))) (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance (eieio-oref req ...)))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance (eieio-oref req ...)))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp)))))
  (lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (("basic" url-basic-auth . 4)))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req (quote :url)) (let ((params ...)) (if params (gh-url-params-encode params) ""))))) (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp)([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply((lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (("basic" url-basic-auth . 4)))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req (quote :url)) (let ((params ...)) (if params (gh-url-params-encode params) ""))))) (if (eieio-oref req (quote :async)) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve url (quote gh-url-set-response) (list req-resp))) (set (make-local-variable (quote url-registered-auth-schemes)) url-registered-auth-schemes))) (let* ((resp (or resp (make-instance ...))) (req-resp (list req resp))) (save-current-buffer (set-buffer (url-retrieve-synchronously url)) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp) ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (...))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req ...) (let ... ...)))) (if (eieio-oref req (quote :async)) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (set ... url-registered-auth-schemes))) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes (quote (...))) (url-privacy-level (quote high)) (url-request-method (eieio-oref req (quote :method))) (url-request-data (eieio-oref req (quote :data))) (url-request-extra-headers (eieio-oref req (quote :headers))) (url (concat (eieio-oref req ...) (let ... ...)))) (if (eieio-oref req (quote :async)) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (set ... url-registered-auth-schemes))) (let* ((resp ...) (req-resp ...)) (save-current-buffer (set-buffer ...) (gh-url-set-response nil req-resp))))) (mapc (function (lambda (cb) (gh-url-add-response-callback resp cb))) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]]))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes ...) (url-privacy-level ...) (url-request-method ...) (url-request-data ...) (url-request-extra-headers ...) (url ...)) (if (eieio-oref req ...) (let* ... ...) (let* ... ...))) (mapc (function (lambda ... ...)) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (req &optional resp) (let ((url-registered-auth-schemes ...) (url-privacy-level ...) (url-request-method ...) (url-request-data ...) (url-request-extra-headers ...) (url ...)) (if (eieio-oref req ...) (let* ... ...) (let* ... ...))) (mapc (function (lambda ... ...)) (eieio-oref req (quote :install-callbacks))) resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-url-run-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]]) nil] [cl-struct-cl--generic-method (gh-url-request) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ... ... resp) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM REQ &optional RESP)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  gh-url-run-request([eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "GET" "https://api.github.com/repos/sigma/gh.el/issues" nil (("Authorization" . "token 5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b") ("Content-Type" . "application/json")) "null" nil 0 nil nil]])
  (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let ((resp (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))))
  (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond ((eq fmt :form) (quote (("Content-Type" . "application/x-www-form-urlencoded")))) ((eq fmt :json) (quote (("Content-Type" . "application/json")))))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 (format "%s" transformer)))) (cache-key (and cache (member method (eieio-oref cache (quote safe-methods))) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or (not has-value) is-outdated) (gh-auth-modify-request (eieio-oref api (quote :auth)) (make-instance (quote gh-api-paged-request) :method method :url (concat (eieio-oref api ...) (gh-api-expand-resource api resource)) :query params :headers (if etag (cons ... headers) headers) :data (or (and ... ...) (and ... ...) "") :page-limit page-limit))))) (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let ((resp (make-instance (eieio-oref req ...) :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer)))))
  (lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond ((eq fmt :form) (quote (...))) ((eq fmt :json) (quote (...))))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 (format "%s" transformer)))) (cache-key (and cache (member method (eieio-oref cache (quote safe-methods))) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or (not has-value) is-outdated) (gh-auth-modify-request (eieio-oref api (quote :auth)) (make-instance (quote gh-api-paged-request) :method method :url (concat ... ...) :query params :headers (if etag ... headers) :data (or ... ... "") :page-limit page-limit))))) (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let ((resp (make-instance ... :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))))))([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply((lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond ((eq fmt :form) (quote (...))) ((eq fmt :json) (quote (...))))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 (format "%s" transformer)))) (cache-key (and cache (member method (eieio-oref cache (quote safe-methods))) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or (not has-value) is-outdated) (gh-auth-modify-request (eieio-oref api (quote :auth)) (make-instance (quote gh-api-paged-request) :method method :url (concat ... ...) :query params :headers (if etag ... headers) :data (or ... ... "") :page-limit page-limit))))) (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let ((resp (make-instance ... :transform transformer))) (gh-url-run-request req resp) (gh-url-add-response-callback resp (make-instance (quote gh-api-callback) :cache cache :key cache-key :revive etag)) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer))) (t (gh-url-run-request req (make-instance (eieio-oref req (quote default-response-cls)) :transform transformer)))))) ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond (... ...) (... ...))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 ...))) (cache-key (and cache (member method ...) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or ... is-outdated) (gh-auth-modify-request ... ...)))) (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let (...) (gh-url-run-request req resp) (gh-url-add-response-callback resp ...) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance ... :transform transformer))) (t (gh-url-run-request req (make-instance ... :transform transformer)))))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues") apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt (eieio-oref api (quote :data-format))) (headers (cond (... ...) (... ...))) (cache (eieio-oref api (quote :cache))) (key (list resource method (sha1 ...))) (cache-key (and cache (member method ...) key)) (has-value (and cache-key (pcache-has cache cache-key))) (value (and has-value (pcache-get cache cache-key))) (is-outdated (and has-value (gh-cache-outdated-p cache cache-key))) (etag (and is-outdated (gh-cache-etag cache cache-key))) (req (and (or ... is-outdated) (gh-auth-modify-request ... ...)))) (cond ((and has-value (not is-outdated)) (make-instance (quote gh-api-response) :data-received t :data value)) (cache-key (let (...) (gh-url-run-request req resp) (gh-url-add-response-callback resp ...) resp)) (cache (pcache-invalidate cache key) (gh-url-run-request req (make-instance ... :transform transformer))) (t (gh-url-run-request req (make-instance ... :transform transformer)))))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues") apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt ...) (headers ...) (cache ...) (key ...) (cache-key ...) (has-value ...) (value ...) (is-outdated ...) (etag ...) (req ...)) (cond (... ...) (cache-key ...) (cache ... ...) (t ...)))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api transformer method resource &optional data params page-limit) (let* ((fmt ...) (headers ...) (cache ...) (key ...) (cache-key ...) (has-value ...) (value ...) (is-outdated ...) (etag ...) (req ...)) (cond (... ...) (cache-key ...) (cache ... ...) (t ...)))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-api-authenticated-request ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]]) nil] [cl-struct-cl--generic-method (gh-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API TRANSFORMER METHOD RESOURCE &optional DATA PARAMS PAGE-LIMIT)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] (#[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues"))
  gh-api-authenticated-request([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-list-read (gh-issues-issue) apply append] 6 "\n\n(fn &rest ARGS2)"] "GET" "/repos/sigma/gh.el/issues")
  (lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo)))([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  apply((lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo))) ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el"))
  #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el") apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  apply(#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api (quote issue-cls))) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el") apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el"))
  #[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api ...)) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"]([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  apply(#[128 "\302\300\303\304\305\306\307\301\"\310\"\311\312%#\207" [#[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda (api user repo) (gh-api-authenticated-request api (gh-object-list-reader (eieio-oref api ...)) "GET" (format "/repos/%s/%s/issues" user repo))) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-issues-issue-list ((0 [cl-struct-cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "9\205*\301!\205*\302J!\205*JG\303Y\205*J\304H>\205*\305\306\307J!\"\207" [cl-struct-eieio--class-tags boundp vectorp 12 0 mapcar eieio--class-name eieio--class-precedence-list] 6 "\n\n(fn TAG &rest _)"]] [cl-struct-cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [...] 3 "\n\n(fn TAG &rest _)"]])) ([cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [... make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]]) nil] [cl-struct-cl--generic-method (gh-issues-api) nil t #[385 "\301\302\303\304\305!\306\"\307$\310K\311K\301\302\312\304\305\"\313\"\307$\216\310M\210\311M\210\314\300\")\207" [(lambda ... ...) make-byte-code 0 "\301\300!\207" vconcat vector [cl--generic-isnot-nnm-p] 2 next-method-p call-next-method "\302\300M\210\303\301M\207" [next-method-p call-next-method] apply] 13 "\n\n(fn CL-CNM API USER REPO)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] apply make-byte-code 128 "\302\300\206\301\"\207" vconcat vector [apply] 4 "\n\n(fn &rest CNM-ARGS)"] 10 "\n\n(fn &rest ARGS)"] [eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] ("sigma" "gh.el"))
  gh-issues-issue-list([eieio-class-tag--gh-issues-api t nil "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "stig" "5a82fd3fe01f26e65979fcbae9a3a68ac20fd37b"] :json 0 nil] "sigma" "gh.el")
  eval((gh-issues-issue-list (gh-issues-api (identity "API")) "sigma" "gh.el") nil)
  elisp--eval-last-sexp(nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  call-interactively(eval-last-sexp nil nil)
  command-execute(eval-last-sexp)
sigma commented 8 years ago

@stig interesting... So it looks like for some reason Emacs doesn't set url-http-end-of-headers in the buffer holding the response.

I'm wondering what that buffer looks like. You can see it by evaluating:

(switch-to-buffer (let ((url-registered-auth-schemes
                         '(("basic" ignore . 4))) ;; don't let default handlers kick in
                        (url-privacy-level 'high)
                        (url-request-method "GET")
                        (url-request-data nil)
                        (url-request-extra-headers '(("Authorization" . "token ...") ("Content-Type" . "application/json")))
                        (url "https://api.github.com/repos/sigma/gh.el/issues"))
                    (url-retrieve-synchronously url)))

(populate your token in there. btw, you will want to regenerate it)

d12frosted commented 8 years ago

@sigma after I changed token ... to my access token (I generated new one manually) and run that snippet, Emacs has opened new buffer #<buffer *http api.github.com:443*-799871> and that buffer was empty. But there were no errors.

stig commented 8 years ago

I tried that, but the resulting buffer is entirely empty.

sigma commented 8 years ago

alright, well at least that explains the symptom on the gh.el side. Now it's definitely an Emacs issue, and interestingly I can't reproduce it myself either with the latest pretest (25.0.95 from 06/10) or the current master (cfb3c61), both on OSX. Can you both provide the Emacs version you're using?

stig commented 8 years ago

On OS X El Capitan, built from source:

GNU Emacs 25.1.50.1 (x86_64-apple-darwin15.5.0, NS appkit-1404.47 Version 10.11.5 (Build 15F34)) of 2016-06-07

I'll try building the latest to see if it's been resolved. Failing that I'll get the latest pre-test -- I'm assuming you're using http://emacsformacosx.com ?

stig commented 8 years ago

Right... so the test seems to work fine in latest nightly from http://emacsforosx.com -- even the version from elpa that I just installed! Thoroughly confused, but I think this can be closed now.

sigma commented 8 years ago

@stig yep, I'm using those builds. Btw I just tried the build from that same day, and it seems to work too. Then again, those builds are build on OSX 10.9 so there might be some difference there (openssl and the likes). I think you should try to minimize the url-retrieve-synchronously invocation (I guess url-registered-auth-schemes and url-request-extra-headers are probably not making a difference for example), and bring that up to emacs-devel.

Tentatively closing as I don't think there's much more I can do from here. But feel free to reopen if need be.

sigma commented 8 years ago

I also just tried on a manual build of the latest emacs-25 branch, on OSX 10.11.5, and it also works for me.

d12frosted commented 8 years ago

Wow. That's interesting. The snipped you shared works[1] in Emacs 24.5 from brew, Emacs nightly from http://emacsforosx.com, but doesn't work with git head version built using brew. I wonder, what's wrong with it.

I usually use following command to install latest Emacs from brew.

$ brew reinstall emacs --with-cocoa --with-gnutls --with-librsvg --with-imagemagick --HEAD --use-git-head

And that's funny. Because when it works[1], I see following logs in *Messages* buffer.

Contacting host: api.github.com:443
Opening TLS connection to ‘api.github.com’...
Opening TLS connection with ‘gnutls-cli --x509cafile nil -p 443 api.github.com’...failed
Opening TLS connection with ‘gnutls-cli --x509cafile nil -p 443 api.github.com --protocols ssl3’...failed
Opening TLS connection with ‘openssl s_client -connect api.github.com:443 -no_ssl2 -ign_eof’...done
Opening TLS connection to ‘api.github.com’...done

But when I run brewed Emacs 25 I see only the first log. And as might notice, I build Emacs with gnutls support. Gonna investigate difference between build scripts from brew and emacsforosx.

[1]: by 'works' I mean that it leads to non-empty buffer

sigma commented 8 years ago

@d12frosted very interesting indeed. Seems like gnutls really has a problem there, as even in the first case it's the fallback to openssl that makes it work. I'm wondering if removing the gnutls-cli invocations from tls-program would help in the second case...

(setq tls-program '("openssl s_client -connect %h:%p -no_ssl2 -ign_eof"))
sigma commented 8 years ago

@d12frosted err... why is x509cafile nil btw... that sounds wrong (obviously) cause no certificate chain can be verified this way

d12frosted commented 8 years ago

@sigma The value of tls-program in Emacs 25 built with brew formulae is ("gnutls-cli --x509cafile %t -p %p %h" "gnutls-cli --x509cafile %t -p %p %h --protocols ssl3" "openssl s_client -connect %h:%p -no_ssl2 -ign_eof"). So indeed, openssl is used as fallback. When I set tls-porgram to ("openssl s_client -connect %h:%p -no_ssl2 -ign_eof") resulting buffer is still empty.

As per x509cafile being nil - I am not sure. I just used your snippet. Is it set to something else for you?

sigma commented 8 years ago

@d12frosted well on my install, some of the entries in gnutls-trustfiles exist, but I might have created them at some point.

I assume that when built with --with-gnutls, Emacs uses library calls instead of external cli helpers. That's probably why the tls-program alternatives are just not used (and no message is displayed). And it seems that helper is broken in some way. By the way, I can reproduce the problem now, using the same brew invocation

I'm really not sure what's going on.

(setq gnutls-log-level 2)
(switch-to-buffer (let ((url-registered-auth-schemes
                         '(("basic" ignore . 4))) ;; don't let default handlers kick in
                        (url-privacy-level 'high)
                        (url-request-method "GET")
                        (url-request-data nil)
                        (url-request-extra-headers '(("Authorization" . "token ...") ("Content-Type" . "application/json")))
                        (url "https://api.github.com/repos/sigma/gh.el/issues"))
                    (url-retrieve-synchronously url)))

gives me this in the logs

Contacting host: api.github.com:443
gnutls.c: [1] (Emacs) connecting to host: api.github.com
gnutls.c: [1] (Emacs) allocating credentials
gnutls.c: [2] (Emacs) allocating x509 credentials
gnutls.c: [2] (Emacs) using default verification flags
gnutls.c: [audit] There was a non-CA certificate in the trusted list: O=Entrust.net,OU=www.entrust.net/CPS_2048 incorp. by ref. (limits liab.),OU=(c) 1999 Entrust.net Limited,CN=Entrust.net Certification Authority (2048).

gnutls.c: [1] (Emacs) setting the trustfile:  /etc/ssl/certs/ca-certificates.crt
gnutls.c: [audit] There was a non-CA certificate in the trusted list: O=Entrust.net,OU=www.entrust.net/CPS_2048 incorp. by ref. (limits liab.),OU=(c) 1999 Entrust.net Limited,CN=Entrust.net Certification Authority (2048).

gnutls.c: [1] (Emacs) gnutls callbacks
gnutls.c: [1] (Emacs) gnutls_init
gnutls.c: [1] (Emacs) got non-default priority string: NORMAL
gnutls.c: [1] (Emacs) setting the priority string
gnutls.c: [audit] Note that the security level of the Diffie-Hellman key exchange has been lowered to 256 bits and this may allow decryption of the session data

gnutls.c: [2] WRITE: -1 returned from 0x1e, errno: 57

gnutls.c: [1] (Emacs) fatal error: Error in the push function.
gnutls.c: [2] WRITE: -1 returned from 0x1e, errno: 57

gnutls.c: [1] (Emacs) fatal error: Error in the push function.
gnutls.c: [1] (Emacs) fatal error: The specified session has been invalidated for some reason. [6000 times]
gnutls.c: [2] (Emacs) Deallocating x509 credentials
current buffer is now:  *http api.github.com:443*-893090

So at least there's a clear "fatal error" in there...

sigma commented 8 years ago

sorry for the spam, I find the whole thing fascinating :)

(setq gnutls-log-level 2)
(switch-to-buffer (url-retrieve-synchronously "https://www.google.com")) ;; works
(switch-to-buffer (url-retrieve-synchronously "https://www.gnu.org")) ;; doesn't work
d12frosted commented 8 years ago

some of the entries in gnutls-trustfiles exist

The same here. But I didn't create them manually for sure.

I assume that when built with --with-gnutls, Emacs uses library calls instead of external cli helpers. That's probably why the tls-program alternatives are just not used (and no message is displayed). And it seems that helper is broken in some way. By the way, I can reproduce the problem now, using the same brew invocation

Makes sense. I tried building --without-gnutls option and it didn't help. As well as building without any gnutls flags. And setting gnutls-log-level to 2 is nice thing to do in this situation. Didn't know about it. And I get same results with github link as well as google and gnu.org. Funny.

sorry for the spam

Don't worry :D I appreciate that you are looking into this problem 👍

sigma commented 8 years ago

@d12frosted hmm, are you sure? building with --without-gnutls works for me. Careful though, I had to uninstall emacs first, otherwise it seems the old flags are reused regardless of what you pass explicitly:

~ brew reinstall emacs --with-cocoa --without-gnutls --with-librsvg --with-imagemagick --HEAD --use-git-head
==> Reinstalling emacs with --with-cocoa, --with-gnutls, --with-librsvg, --with-imagemagick
==> Cloning https://github.com/emacs-mirror/emacs.git
Updating /Users/hodiquey/Library/Caches/Homebrew/emacs--git
^C
~ brew uninstall emacs
Uninstalling /usr/local/Cellar/emacs/HEAD... (3,919 files, 118.2M)
~ brew reinstall emacs --with-cocoa --without-gnutls --with-librsvg --with-imagemagick --HEAD --use-git-head
==> Reinstalling emacs with --with-cocoa, --with-librsvg, --with-imagemagick
==> Cloning https://github.com/emacs-mirror/emacs.git
d12frosted commented 8 years ago

@sigma oh... you are right. My bad. And it works indeed. Ok, at least I can install and update emacs using brew. Thanks for the help.

I think this should be reported to emacs developers, so they could fix this when using --with-gnutls.

P. S. Anyway this discussion went over the scope of gh.el :D

P. P. S. It's really funny that (url-retrieve-synchronously "https://www.gnu.org") leads to fatal error 😸

sigma commented 8 years ago

update: that bug is a manifestation of http://debbugs.gnu.org/cgi/bugreport.cgi?bug=23225