Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
url-about.elc	2.51 KB	-rw-r--r--
url-auth.elc	20.29 KB	-rw-r--r--
url-cache.elc	6.7 KB	-rw-r--r--
url-cid.elc	1.24 KB	-rw-r--r--
url-cookie.elc	23.96 KB	-rw-r--r--
url-dav.elc	20.14 KB	-rw-r--r--
url-dired.elc	2.78 KB	-rw-r--r--
url-domsuf.elc	1.78 KB	-rw-r--r--
url-expand.elc	4.04 KB	-rw-r--r--
url-file.elc	7.18 KB	-rw-r--r--
url-ftp.elc	778 B	-rw-r--r--
url-future.elc	9.17 KB	-rw-r--r--
url-gw.elc	6.68 KB	-rw-r--r--
url-handlers.elc	20.17 KB	-rw-r--r--
url-history.elc	5.46 KB	-rw-r--r--
url-http.elc	38.02 KB	-rw-r--r--
url-imap.elc	1.93 KB	-rw-r--r--
url-irc.elc	2.52 KB	-rw-r--r--
url-ldap.elc	6.06 KB	-rw-r--r--
url-mailto.elc	2.94 KB	-rw-r--r--
url-methods.elc	4.1 KB	-rw-r--r--
url-misc.elc	3.27 KB	-rw-r--r--
url-news.elc	7.36 KB	-rw-r--r--
url-nfs.elc	4.23 KB	-rw-r--r--
url-parse.elc	17.39 KB	-rw-r--r--
url-privacy.elc	1.61 KB	-rw-r--r--
url-proxy.elc	1.82 KB	-rw-r--r--
url-queue.elc	14.9 KB	-rw-r--r--
url-tramp.elc	2.97 KB	-rw-r--r--
url-util.elc	17.34 KB	-rw-r--r--
url-vars.elc	14.89 KB	-rw-r--r--
url.elc	9.12 KB	-rw-r--r--

Code Editor : url-future.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#@69 compiler-macro for inlining `url-future-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-future-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-future-p (and (memq (type-of cl-x) cl-struct-url-future-tags) t)) nil] 9 (#$ . 408)])
(put 'url-future-p 'compiler-macro 'url-future-p--cmacro)
#@13

(fn CL-X)
(defalias 'url-future-p #[257 "\301!>\205	�\302\207" [cl-struct-url-future-tags type-of t] 3 (#$ . 741)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put url-future-p side-effect-free error-free put url-future cl-deftype-satisfies] 5)
#@76 compiler-macro for inlining `url-future-callback'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-future-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-future-callback (progn (or (url-future-p cl-x) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 1))) nil] 9 (#$ . 1014)])
(put 'url-future-callback 'compiler-macro 'url-future-callback--cmacro)
#@64 Access slot "callback" of `url-future' struct CL-X.

(fn CL-X)
(defalias 'url-future-callback #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 1] 5 (#$ . 1428)])
(byte-code "\300\301\302\303#\300\207" [function-put url-future-callback side-effect-free t] 4)
#@77 compiler-macro for inlining `url-future-errorback'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-future-errorback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-future-errorback (progn (or (url-future-p cl-x) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 2))) nil] 9 (#$ . 1772)])
(put 'url-future-errorback 'compiler-macro 'url-future-errorback--cmacro)
#@65 Access slot "errorback" of `url-future' struct CL-X.

(fn CL-X)
(defalias 'url-future-errorback #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 2] 5 (#$ . 2191)])
(byte-code "\300\301\302\303#\300\207" [function-put url-future-errorback side-effect-free t] 4)
#@74 compiler-macro for inlining `url-future-status'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-future-status--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-future-status (progn (or (url-future-p cl-x) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2538)])
(put 'url-future-status 'compiler-macro 'url-future-status--cmacro)
#@62 Access slot "status" of `url-future' struct CL-X.

(fn CL-X)
(defalias 'url-future-status #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3] 5 (#$ . 2942)])
(byte-code "\300\301\302\303#\300\207" [function-put url-future-status side-effect-free t] 4)
#@73 compiler-macro for inlining `url-future-value'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'url-future-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block url-future-value (progn (or (url-future-p cl-x) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 4))) nil] 9 (#$ . 3280)])
(put 'url-future-value 'compiler-macro 'url-future-value--cmacro)
#@61 Access slot "value" of `url-future' struct CL-X.

(fn CL-X)
(defalias 'url-future-value #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 4] 5 (#$ . 3679)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put url-future-value side-effect-free t defalias copy-url-future copy-sequence] 4)
#@110 compiler-macro for inlining `make-url-future'.

(fn CL-WHOLE &cl-quote &key CALLBACK ERRORBACK STATUS VALUE)
(defalias 'make-url-future--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D�\211@\305>\203,�\211AA\262\202�\306>A@\203;�\307\262\202�\310\311@\"\210\202�\210\312\313\314\307	\307				&	\207" [plist-member :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 (record 'url-future callback errorback status value))] 16 (#$ . 4064)])
(put 'make-url-future 'compiler-macro 'make-url-future--cmacro)
#@90 Constructor for objects of type `url-future'.

(fn &key CALLBACK ERRORBACK STATUS VALUE)
(defalias 'make-url-future #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D�\211@\305>\203,�\211AA\262\202�\306>A@\203;�\307\262\202�\310\311@\"\210\202�\210\312\313%\207" [plist-member :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)" record url-future] 11 (#$ . 4832)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put make-url-future side-effect-free t cl-struct-define url-future nil cl-structure-object record ((cl-tag-slot) (callback) (errorback) (status) (value)) cl-struct-url-future-tags] 11)
#@19

(fn URL-FUTURE)
(defalias 'url-future-done-p #[257 "\301!>\204�\302\303\304D\"\210\211\305H\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3] 5 (#$ . 5645)])
(byte-code "\300\301\302\303#\300\207" [function-put url-future-done-p compiler-macro url-future-done-p--inliner] 4)
#@32

(fn INLINE--FORM URL-FUTURE)
(defalias 'url-future-done-p--inliner #[514 "\3002�\301D0\207" [inline--just-use url-future-status] 4 (#$ . 5963)])
#@19

(fn URL-FUTURE)
(defalias 'url-future-completed-p #[257 "\301!>\204�\302\303\304D\"\210\211\305H\306=\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 t] 5 (#$ . 6118)])
(byte-code "\300\301\302\303#\300\207" [function-put url-future-completed-p compiler-macro url-future-completed-p--inliner] 4)
#@32

(fn INLINE--FORM URL-FUTURE)
(defalias 'url-future-completed-p--inliner #[514 "\3002�\301\302D\303E0\207" [inline--just-use eq url-future-status t] 5 (#$ . 6458)])
#@19

(fn URL-FUTURE)
(defalias 'url-future-errored-p #[257 "\301!>\204�\302\303\304D\"\210\211\305H\306=\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 error] 5 (#$ . 6632)])
(byte-code "\300\301\302\303#\300\207" [function-put url-future-errored-p compiler-macro url-future-errored-p--inliner] 4)
#@32

(fn INLINE--FORM URL-FUTURE)
(defalias 'url-future-errored-p--inliner #[514 "\3002
�\301\302D\303\304DE0\207" [inline--just-use eq url-future-status quote error] 6 (#$ . 6970)])
#@19

(fn URL-FUTURE)
(defalias 'url-future-cancelled-p #[257 "\301!>\204�\302\303\304D\"\210\211\305H\306=\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 cancel] 5 (#$ . 7157)])
(byte-code "\300\301\302\303#\300\207" [function-put url-future-cancelled-p compiler-macro url-future-cancelled-p--inliner] 4)
#@32

(fn INLINE--FORM URL-FUTURE)
(defalias 'url-future-cancelled-p--inliner #[514 "\3002
�\301\302D\303\304DE0\207" [inline--just-use eq url-future-status quote cancel] 6 (#$ . 7502)])
#@36

(fn URL-FUTURE &optional STATUS)
(defalias 'url-future-finish #[513 "\301!>\204�\302\303\304D\"\210\305H\203�\302\306\307\"\207\301!>\204)�\302\303\304D\"\210\211\305\2061�\310I\266\301!>\204C�\302\303\304D\"\210\305H\310=\203d�\301!>\204Z�\302\303\304D\"\210\311H\206a�\312!\210\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 error url-future-already-done t 1 ignore] 6 (#$ . 7692)])
#@29

(fn URL-FUTURE ERRORCONS)
(defalias 'url-future-errored #[514 "\301!>\204�\302\303\304D\"\210\305H\203�\302\306\307\"\207\301!>\204)�\302\303\304D\"\210\211\305\306I\266\301!>\204?�\302\303\304D\"\210\211\310I\266\301!>\204U�\302\303\304D\"\210\311H\206\\�\312\"\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 error url-future-already-done 4 2 ignore] 6 (#$ . 8140)])
#@19

(fn URL-FUTURE)
(defalias 'url-future-call #[257 "\301!>\204�\302\303\304D\"\210\211\305H\203�\302\306\307\"\207\301!>\204)�\302\303\304D\"\210\211\310H\311!\203X�\3121Q�\301!>\204E�\302\303\304D\"\210\211\310 I\2620\202W�\313\"\262\210\210\301!>\204h�\302\303\304D\"\210\211\305H\306=\203q�\207\314!\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 error url-future-already-done 4 functionp (error) url-future-errored url-future-finish] 6 (#$ . 8572)])
#@19

(fn URL-FUTURE)
(defalias 'url-future-cancel #[257 "\301!>\204�\302\303\304D\"\210\211\305H\203�\302\306\307\"\207\310\311\"\207" [cl-struct-url-future-tags type-of signal wrong-type-argument url-future 3 error url-future-already-done url-future-finish cancel] 5 (#$ . 9087)])
(provide 'url-future)

${this.title}

Code Editor : url-future.elc