| Server IP : 217.160.0.212 / Your IP : 216.73.217.5 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/url/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@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 (#$ . 84)]) (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 (#$ . 416)]) (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 (#$ . 689)]) (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 (#$ . 1102)]) (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 (#$ . 1446)]) (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 (#$ . 1865)]) (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 (#$ . 2212)]) (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 (#$ . 2616)]) (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 (#$ . 2954)]) (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 (#$ . 3353)]) (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 (#$ . 3738)]) (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 (#$ . 4506)]) (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 (#$ . 5319)]) (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 (#$ . 5637)]) #@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 (#$ . 5792)]) (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 (#$ . 6132)]) #@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 (#$ . 6306)]) (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 (#$ . 6644)]) #@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 (#$ . 6831)]) (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 (#$ . 7176)]) #@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\305\2060 \310I\210\301!>\204A \302\303\304D\"\210\305H\310=\203b \301!>\204X \302\303\304D\"\210\311H\206_ \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 (#$ . 7366)]) #@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\305\306I\210\301!>\204= \302\303\304D\"\210\310I\210\301!>\204Q \302\303\304D\"\210\311H\206X \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 (#$ . 7809)]) #@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!\203V \3121P \301!>\204E \302\303\304D\"\210\310 I0\266\202W \313\"\266\210\301!>\204f \302\303\304D\"\210\211\305H\306=\203o \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 (#$ . 8230)]) #@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 (#$ . 8737)]) (provide 'url-future)