%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream

nadelinn - rinduu

Command :
ikan Uploader :
Directory :  /usr/share/emacs/25.2/lisp/url/
Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 
Current File : //usr/share/emacs/25.2/lisp/url/url-future.elc
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.

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


(defalias 'url-future-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-future-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-url-future-tags) t)) nil] 7])
(put 'url-future-p 'compiler-macro 'url-future-p--cmacro)
(defalias 'url-future-p #[(cl-x) "\302!\205G\303Y\205\304H	>\205\305\207" [cl-x cl-struct-url-future-tags vectorp 5 0 t] 2])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put url-future-p side-effect-free error-free put url-future cl-deftype-satisfies] 4)
(defalias 'url-future-callback--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-future-callback (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-future-tags)) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 1)) nil] 7])
(put 'url-future-callback 'compiler-macro 'url-future-callback--cmacro)
(defalias 'url-future-callback #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-future-tags 0 signal wrong-type-argument url-future 1] 4])
(function-put 'url-future-callback 'side-effect-free t)
(defalias 'url-future-errorback--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-future-errorback (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-future-tags)) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 2)) nil] 7])
(put 'url-future-errorback 'compiler-macro 'url-future-errorback--cmacro)
(defalias 'url-future-errorback #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-future-tags 0 signal wrong-type-argument url-future 2] 4])
(function-put 'url-future-errorback 'side-effect-free t)
(defalias 'url-future-status--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-future-status (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-future-tags)) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 3)) nil] 7])
(put 'url-future-status 'compiler-macro 'url-future-status--cmacro)
(defalias 'url-future-status #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-future-tags 0 signal wrong-type-argument url-future 3] 4])
(function-put 'url-future-status 'side-effect-free t)
(defalias 'url-future-value--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-future-value (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-future-tags)) (signal 'wrong-type-argument (list 'url-future cl-x))) (aref cl-x 4)) nil] 7])
(put 'url-future-value 'compiler-macro 'url-future-value--cmacro)
(defalias 'url-future-value #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-future-tags 0 signal wrong-type-argument url-future 4] 4])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put url-future-value side-effect-free t defalias copy-url-future copy-sequence] 4)
#@64 

(fn CL-WHOLE &cl-quote &key CALLBACK ERRORBACK STATUS VALUE)
(defalias 'make-url-future--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@
\203H
@\313>\2031
AA\211\202\314>A@\203?\315\211\202\316\317
@\"\210\202)\320\321\322\315\315	\n\f&	,\207" [#1# callback errorback status value #2=#:--cl-keys-- 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 "Constructor for objects of type `url-future'." (declare (side-effect-free t)) (vector 'cl-struct-url-future callback errorback status value)) cl-whole] 11 (#$ . 3588)])
(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 #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@
\203H
@\313>\2031
AA\211\202\314>A@\203?\315\211\202\316\317
@\"\210\202)\320\321	\n\f%,\207" [#1# callback errorback status value #2=#:--cl-keys-- 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)" vector cl-struct-url-future] 7 (#$ . 4482)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303&	\207" [function-put make-url-future side-effect-free t cl-struct-define url-future nil cl-structure-object ((cl-tag-slot) (callback) (errorback) (status) (value)) cl-struct-url-future-tags cl-struct-url-future] 10)
(defalias 'url-future-done-p #[(url-future) "\302H	>\204\303\304\300D\"\210\305H\207" [url-future cl-struct-url-future-tags 0 signal wrong-type-argument 3] 4])
(function-put 'url-future-done-p 'compiler-macro 'url-future-done-p--inliner)
(defalias 'url-future-done-p--inliner #[(inline--form url-future) "\210\3022\n\303	D0\207" [inline--form url-future inline--just-use url-future-status] 2])
(defalias 'url-future-completed-p #[(url-future) "\302H	>\204\303\304\300D\"\210\305H\306=\207" [url-future cl-struct-url-future-tags 0 signal wrong-type-argument 3 t] 4])
(function-put 'url-future-completed-p 'compiler-macro 'url-future-completed-p--inliner)
(defalias 'url-future-completed-p--inliner #[(inline--form url-future) "\210\3022
\303\304	D\305E0\207" [inline--form url-future inline--just-use eq url-future-status t] 3])
(defalias 'url-future-errored-p #[(url-future) "\302H	>\204\303\304\300D\"\210\305H\306=\207" [url-future cl-struct-url-future-tags 0 signal wrong-type-argument 3 error] 4])
(function-put 'url-future-errored-p 'compiler-macro 'url-future-errored-p--inliner)
(defalias 'url-future-errored-p--inliner #[(inline--form url-future) "\210\3022\303\304	D\305\306DE0\207" [inline--form url-future inline--just-use eq url-future-status quote error] 4])
(defalias 'url-future-cancelled-p #[(url-future) "\302H	>\204\303\304\300D\"\210\305H\306=\207" [url-future cl-struct-url-future-tags 0 signal wrong-type-argument 3 cancel] 4])
(function-put 'url-future-cancelled-p 'compiler-macro 'url-future-cancelled-p--inliner)
(defalias 'url-future-cancelled-p--inliner #[(inline--form url-future) "\210\3022\303\304	D\305\306DE0\207" [inline--form url-future inline--just-use eq url-future-status quote cancel] 4])
(defalias 'url-future-finish #[(url-future &optional status) "\304H	>\204\305\306\300D\"\210\307H\203\305\310\311\"\207\304H	>\204)\305\306\300D\"\210\211\307\2062\312I\210)\304H	>\204D\305\306\300D\"\210\307H\312=\203e\304H	>\204[\305\306\300D\"\210\313H\206b\314!\210\207" [url-future cl-struct-url-future-tags #1=#:v status 0 signal wrong-type-argument 3 error url-future-already-done t 1 ignore] 5])
(defalias 'url-future-errored #[(url-future errorcons) "\305H	>\204\306\307\300D\"\210\310H\203\306\311\312\"\207\305H	>\204)\306\307\300D\"\210\211\310\311I\210)\305H	>\204@\306\307\300D\"\210\211\313\fI\210)\305H	>\204W\306\307\300D\"\210\314H\206^\315\f\"\207" [url-future cl-struct-url-future-tags #1=#:v #2=#:v errorcons 0 signal wrong-type-argument 3 error url-future-already-done 4 2 ignore] 5])
(defalias 'url-future-call #[(url-future) "\305H	>\204\306\307\300D\"\210\310H\203\306\311\312\"\207\305H	>\204)\306\307\300D\"\210\313H\314\n!\203Y\3151R\305H	>\204F\306\307\300D\"\210\211\313\n I)0\202X\316\f\")\210)\305H	>\204i\306\307\300D\"\210\310H\311=\203s\207\317!\207" [url-future cl-struct-url-future-tags ff #1=#:v catcher 0 signal wrong-type-argument 3 error url-future-already-done 4 functionp (error) url-future-errored url-future-finish] 5])
(defalias 'url-future-cancel #[(url-future) "\302H	>\204\303\304\300D\"\210\305H\203\303\306\307\"\207\310\311\"\207" [url-future cl-struct-url-future-tags 0 signal wrong-type-argument 3 error url-future-already-done url-future-finish cancel] 4])
(provide 'url-future)

Kontol Shell Bypass