%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
Zerion Mini Shell 1.0