search

defunkt / gist.el

Yet another Emacs paste mode, this one for Gist.
550 stars 90 forks source link

(wrong-type-argument number-or-marker-p nil) #90

Closed cbrst closed 8 years ago

cbrst commented 8 years ago

Pretty much every attempt to use gists on Emacs 25.1 gets to Contacting host: api.github.com:443 and then fails with this:

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 "POST" "https://api.github.com/gists" nil (("Authorization" . "token XXXXXXXXXX") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) 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 "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) 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 "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) 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 "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil]]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) 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 "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil]]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) 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 "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) 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 "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil]])
  gh-url-run-request([eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) nil 0 nil nil] [eieio-class-tag--gh-api-paged-response nil nil nil nil nil #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] [eieio-class-tag--gh-api-paged-request "POST" "https://api.github.com/gists" nil (("Authorization" . "token 4411b6a668f5a6939b418ccea491c600d7103870") ("Content-Type" . "application/json")) #("{\"description\":\"\",\"public\":true,\"files\":{\"index.html\":{\"filename\":\"index.html\",\"content\":\"<!DOCTYPE html PUBLIC \\\"-//W3C//DTD XHTML 1.0 Strict//EN\\\" \\\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\\\">\\n\"}}}" 90 91 (font-lock-face web-mode-doctype-face tag-beg 17 tag-type doctype fontified t) 91 100 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-beg 17) 100 101 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-beg 17) 101 103 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 103 104 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 104 105 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 105 106 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 106 110 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 110 111 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 111 114 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 114 115 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 115 124 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 124 125 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 125 126 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 126 127 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 127 130 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 130 131 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr-end 0 tag-attr t fontified t tag-attr-beg 0 tag-beg 17) 131 132 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 132 133 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 133 134 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 134 135 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 135 136 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr-end 0 tag-attr t tag-attr-beg 0 tag-beg 17) 136 137 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 137 148 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 148 151 (font-lock-face web-mode-doctype-face tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 151 152 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t tag-attr-beg 0 fontified t tag-attr-end 0 tag-beg 17) 152 202 (font-lock-face web-mode-doctype-face tag-type doctype tag-attr t fontified t tag-attr-beg 0 tag-attr-end 0 tag-beg 17) 202 208 (font-lock-face web-mode-doctype-face tag-end t tag-type doctype fontified t tag-attr t tag-attr-beg 0 tag-attr-end 0 tag-beg 17)) 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-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] "POST" "/gists" (("description" . "") ("public" . t) ("files" ("index.html" ("filename" . "index.html") ("content" . #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t)))))))
  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-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] "POST" "/gists" (("description" . "") ("public" . t) ("files" ("index.html" ("filename" . "index.html") ("content" . #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified 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 (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-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] "POST" "/gists" (("description" . "") ("public" . t) ("files" ("index.html" ("filename" . "index.html") ("content" . #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 ... 1 10 ... 10 11 ... 11 13 ... 13 14 ... 14 15 ... 15 16 ... 16 20 ... 20 21 ... 21 23 ... 23 24 ... 24 33 ... 33 34 ... 34 35 ... 35 36 ... 36 39 ... 39 40 ... 40 41 ... 41 42 ... 42 43 ... 43 44 ... 44 45 ... 45 46 ... 46 55 ... 55 56 ... 56 58 ... 58 59 ... 59 107 ... 107 108 ... 108 109 ... 109 110 ...)))))) apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] "POST" "/gists" (("description" . "") ("public" . t) ("files" ("index.html" ("filename" . "index.html") ("content" . #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t)))))))
  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-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] "POST" "/gists" (("description" . "") ("public" . t) ("files" ("index.html" ("filename" . "index.html") ("content" . #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 ... 1 10 ... 10 11 ... 11 13 ... 13 14 ... 14 15 ... 15 16 ... 16 20 ... 20 21 ... 21 23 ... 23 24 ... 24 33 ... 33 34 ... 34 35 ... 35 36 ... 36 39 ... 39 40 ... 40 41 ... 41 42 ... 42 43 ... 43 44 ... 44 45 ... 45 46 ... 46 55 ... 55 56 ... 56 58 ... 58 59 ... 59 107 ... 107 108 ... 108 109 ... 109 110 ...)))))) apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] "POST" "/gists" (("description" . "") ("public" . t) ("files" ("index.html" ("filename" . "index.html") ("content" . #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))))))))
  #[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-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] "POST" "/gists" (("description" . "") ("public" . t) ("files" ("index.html" ("filename" . "index.html") ("content" . #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t)))))))
  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-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] (#[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] "POST" "/gists" (("description" . "") ("public" . t) ("files" ("index.html" ("filename" . "index.html") ("content" . #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))))))))
  gh-api-authenticated-request([eieio-class-tag--gh-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] #[128 "\302\300\303\301\"\"\207" [gh-object-read (gh-gist-gist) apply append] 6 "\n\n(fn &rest ARGS2)"] "POST" "/gists" (("description" . "") ("public" . t) ("files" ("index.html" ("filename" . "index.html") ("content" . #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t)))))))
  (lambda (api gist-stub) (gh-api-authenticated-request api (gh-object-reader (eieio-oref api (quote gist-cls))) "POST" "/gists" (gh-gist-gist-to-obj gist-stub)))([eieio-class-tag--gh-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] [eieio-class-tag--gh-gist-gist-stub ([eieio-class-tag--gh-gist-gist-file "index.html" unbound unbound #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))]) t ""])
  apply((lambda (api gist-stub) (gh-api-authenticated-request api (gh-object-reader (eieio-oref api (quote gist-cls))) "POST" "/gists" (gh-gist-gist-to-obj gist-stub))) ([eieio-class-tag--gh-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] [eieio-class-tag--gh-gist-gist-stub ([eieio-class-tag--gh-gist-gist-file "index.html" unbound unbound #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))]) 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 (api gist-stub) (gh-api-authenticated-request api (gh-object-reader (eieio-oref api (quote gist-cls))) "POST" "/gists" (gh-gist-gist-to-obj gist-stub))) 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 GIST-STUB)"](#[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-gist-new ((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-gist-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 GIST-STUB)"]]) nil] [cl-struct-cl--generic-method (gh-gist-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 GIST-STUB)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] [eieio-class-tag--gh-gist-gist-stub ([eieio-class-tag--gh-gist-gist-file "index.html" unbound unbound #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))]) t ""]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] [eieio-class-tag--gh-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] [eieio-class-tag--gh-gist-gist-stub ([eieio-class-tag--gh-gist-gist-file "index.html" unbound unbound #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))]) t ""])
  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 gist-stub) (gh-api-authenticated-request api (gh-object-reader (eieio-oref api (quote gist-cls))) "POST" "/gists" (gh-gist-gist-to-obj gist-stub))) 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 GIST-STUB)"] #[128 "\302\300\206\301\"\207" [#[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-gist-new ((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-gist-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 GIST-STUB)"]]) nil] [cl-struct-cl--generic-method (gh-gist-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 GIST-STUB)"]] apply cl-no-next-method] 6 "\n\n(fn &rest ARGS)"] ([eieio-class-tag--gh-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] [eieio-class-tag--gh-gist-gist-stub ([eieio-class-tag--gh-gist-gist-file "index.html" unbound unbound #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))]) t ""]) apply] 4 "\n\n(fn &rest CNM-ARGS)"] ([eieio-class-tag--gh-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] [eieio-class-tag--gh-gist-gist-stub ([eieio-class-tag--gh-gist-gist-file "index.html" unbound unbound #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))]) t ""]))
  #[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 gist-stub) (gh-api-authenticated-request api (gh-object-reader (eieio-oref api ...)) "POST" "/gists" (gh-gist-gist-to-obj gist-stub))) 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 GIST-STUB)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-gist-new ((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-gist-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 GIST-STUB)"]]) nil] [cl-struct-cl--generic-method (gh-gist-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 GIST-STUB)"]] 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-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] [eieio-class-tag--gh-gist-gist-stub ([eieio-class-tag--gh-gist-gist-file "index.html" unbound unbound #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))]) t ""])
  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 gist-stub) (gh-api-authenticated-request api (gh-object-reader (eieio-oref api ...)) "POST" "/gists" (gh-gist-gist-to-obj gist-stub))) 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 GIST-STUB)"] #[128 "\302\303\300\301$\207" [[cl-struct-cl--generic gh-gist-new ((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-gist-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 GIST-STUB)"]]) nil] [cl-struct-cl--generic-method (gh-gist-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 GIST-STUB)"]] 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-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] [eieio-class-tag--gh-gist-gist-stub ([eieio-class-tag--gh-gist-gist-file "index.html" unbound unbound #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))]) t ""])
  gh-gist-new([eieio-class-tag--gh-gist-api nil [eieio-class-tag--gh-cache "/Users/mac07/.emacs.d/.cache/pcache/gh/gh-gist-api/crshd" nil "0.4/gh-3" #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ( ...)) gh-cache-entry 1469010601.124311 300] "https://api.github.com" "github" [eieio-class-tag--gh-oauth-authenticator "crshd" "4411b6a668f5a6939b418ccea491c600d7103870"] :json 1 nil] [eieio-class-tag--gh-gist-gist-stub ([eieio-class-tag--gh-gist-gist-file "index.html" unbound unbound #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))]) t ""])
  (let* ((api (gist-get-api)) (gist (make-instance (quote gh-gist-gist-stub) :public (or (not private) json-false) :description (or description "") :files files)) (resp (gh-gist-new api gist))) (gh-url-add-response-callback resp (let ((--cl-profile-- (make-symbol "--profile--")) (--cl-cb-- (make-symbol "--cb--"))) (progn (let* ((v --cl-profile--)) (set v (eieio-oref api (quote :profile)))) (let* ((v --cl-cb--)) (set v callback))) (list (quote lambda) (quote (&rest --cl-rest--)) (list (quote apply) (list (quote quote) (function (lambda ... ...))) (list (quote quote) --cl-cb--) (list (quote quote) --cl-profile--) (quote --cl-rest--))))))
  gist-internal-new(([eieio-class-tag--gh-gist-gist-file "index.html" unbound unbound #("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" 0 1 (fontified t tag-type doctype tag-beg 17 font-lock-face web-mode-doctype-face) 1 10 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 10 11 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 11 13 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 13 14 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 14 15 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 15 16 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 16 20 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 20 21 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 21 23 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 23 24 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 24 33 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 33 34 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 34 35 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 35 36 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 36 39 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 39 40 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 40 41 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 41 42 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 42 43 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 43 44 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 44 45 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 45 46 (fontified t tag-attr-beg 0 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 46 55 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 55 56 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 56 58 (fontified t tag-type doctype font-lock-face web-mode-doctype-face) 58 59 (fontified t tag-attr-beg 1 tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 59 107 (fontified t tag-attr t tag-type doctype font-lock-face web-mode-doctype-face) 107 108 (fontified t tag-attr t tag-attr-end 0 tag-type doctype font-lock-face web-mode-doctype-face) 108 109 (fontified t tag-type doctype tag-end t font-lock-face web-mode-doctype-face) 109 110 (fontified t))]) nil nil nil)
  (let* ((file (or (buffer-file-name) (buffer-name))) (name (file-name-nondirectory file)) (ext (or (cdr (assoc major-mode gist-supported-modes-alist)) (file-name-extension file) "txt")) (fname (concat (file-name-sans-extension name) "." ext)) (files (list (make-instance (quote gh-gist-gist-file) :filename fname :content (buffer-substring begin end))))) (gist-internal-new files private (gist-ask-for-description-maybe) callback))
  gist-region(1 111 nil)
  funcall-interactively(gist-region 1 111 nil)
  call-interactively(gist-region nil nil)
  command-execute(gist-region)
d12frosted commented 8 years ago

Somewhat duplicate of https://github.com/sigma/gh.el/issues/73. At least fixes for the same reasons.

cbrst commented 8 years ago

Certainly not a problem with gist.el.