| Current File : //usr/share/emacs/24.3/lisp/url/url-future.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:20 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-future.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-future-callback compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-future-callback (or (and (memq (aref cl-x 0) cl-struct-url-future-tags)) (error "%s accessing a non-%s" 'url-future-callback 'url-future)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-future.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-future-callback #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-url-future-tags 0 error "%s accessing a non-%s" url-future-callback url-future 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-future-errorback compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-future-errorback (or (and (memq (aref cl-x 0) cl-struct-url-future-tags)) (error "%s accessing a non-%s" 'url-future-errorback 'url-future)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-future.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-future-errorback #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-url-future-tags 0 error "%s accessing a non-%s" url-future-errorback url-future 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-future-status compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-future-status (or (and (memq (aref cl-x 0) cl-struct-url-future-tags)) (error "%s accessing a non-%s" 'url-future-status 'url-future)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-future.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-future-status #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-url-future-tags 0 error "%s accessing a non-%s" url-future-status url-future 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-future-value compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-future-value (or (and (memq (aref cl-x 0) cl-struct-url-future-tags)) (error "%s accessing a non-%s" 'url-future-value 'url-future)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-future.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-future-value #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-url-future-tags 0 error "%s accessing a non-%s" url-future-value url-future 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-future-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-future-p (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-url-future-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-future.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-future-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-url-future-tags vectorp 5 0 t] 2])
(defalias 'copy-url-future #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-url-future compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@
\203D
@\312>\203-
AA\211\202 \313>A@\203; \314\211\202 \315\316
@\"\210\202 )\317\320\321\314\314 \n \f& ,\207" [#1# callback errorback status value #:--cl-keys-- :callback :errorback :status :value (:callback :errorback :status :value :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:callback :errorback :status :value)" cl--defsubst-expand (callback errorback status value) (cl-block make-url-future (vector 'cl-struct-url-future callback errorback status value)) cl-whole] 11 "\n\n(fn CL-WHOLE &cl-quote &key CALLBACK ERRORBACK STATUS VALUE)"] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-future.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@45
(fn &key CALLBACK ERRORBACK STATUS VALUE)
(defalias 'make-url-future #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@
\203D
@\312>\203-
AA\211\202 \313>A@\203; \314\211\202 \315\316
@\"\210\202 )\317\320 \n \f%,\207" [#1# callback errorback status value #2=#:--cl-keys-- :callback :errorback :status :value (:callback :errorback :status :value :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:callback :errorback :status :value)" vector cl-struct-url-future] 7 (#$ . 4846)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\207" [cl-struct-url-future-tags cl-struct-url-future put url-future cl-struct-slots ((cl-tag-slot) (callback) (errorback) (status) (value)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-url-future side-effect-free copy-url-future url-future-p error-free url-future-value url-future-status url-future-errorback url-future-callback] 4)
(defalias 'url-future-done-p '(macro . #[(url-future) "\301D\207" [url-future url-future-status] 2]))
(defalias 'url-future-completed-p '(macro . #[(url-future) "\301\302D\303BB\207" [url-future eq url-future-status (t)] 3]))
(defalias 'url-future-errored-p '(macro . #[(url-future) "\301\302D\303BB\207" [url-future eq url-future-status ('error)] 3]))
(defalias 'url-future-cancelled-p '(macro . #[(url-future) "\301\302D\303BB\207" [url-future eq url-future-status ('cancel)] 3]))
(defalias 'url-future-finish #[(url-future &optional status) "\304H >\204 \305\306\307\300#\210\310H\203 \311\305\312\"\207\304H >\204' \305\306\307\300#\210\211\310 \2060 \313I\210)\304H >\204A \305\306\307\300#\210\310H\313=\203a \304H >\204W \305\306\314\300#\210\315H\206^ \316!\210\207" [url-future cl-struct-url-future-tags #1=#:v status 0 error "%s accessing a non-%s" url-future-status 3 signal url-future-already-done t url-future-callback 1 ignore] 5])
(defalias 'url-future-errored #[(url-future errorcons) "\305H >\204 \306\307\310\300#\210\311H\203 \312\306\313\"\207\305H >\204' \306\307\310\300#\210\211\311\306I\210)\305H >\204= \306\307\314\300#\210\211\315\fI\210)\305H >\204S \306\307\316\300#\210\317H\206Z \320\f\"\207" [url-future cl-struct-url-future-tags #1=#:v #2=#:v errorcons 0 error "%s accessing a non-%s" url-future-status 3 signal url-future-already-done url-future-value 4 url-future-errorback 2 ignore] 5])
(defalias 'url-future-call #[(url-future) "\303H >\204 \304\305\306\300#\210\307H\203 \310\304\311\"\207\303H >\204' \304\305\312\300#\210\313H\314\n!\203H \315\316\317\217\210\303H >\204D \304\305\312\300#\210\313H\210)\303H >\204W \304\305\306\300#\210\307H\304=\203a \207\320!\207" [url-future cl-struct-url-future-tags ff 0 error #2="%s accessing a non-%s" url-future-status 3 signal url-future-already-done url-future-value 4 functionp catcher (byte-code "\304H >\204 \305\306\307\300#\210\211\310 I\210)\304\207" [url-future cl-struct-url-future-tags #1=#:v ff 0 error #2# url-future-value 4] 5) ((error (url-future-errored url-future catcher))) url-future-finish] 4])
(defalias 'url-future-cancel #[(url-future) "\302H >\204 \303\304\305\300#\210\306H\203 \307\303\310\"\207\311\312\"\207" [url-future cl-struct-url-future-tags 0 error "%s accessing a non-%s" url-future-status 3 signal url-future-already-done url-future-finish cancel] 4])
(provide 'url-future)