Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
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--

Code Editor : cconv.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

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

#@96 Try to do lambda lifting if the number of arguments + free variables
is less than this number.
(defconst cconv-liftwhen 6 (#$ . 408))
#@252 Main entry point for closure conversion.
-- FORM is a piece of Elisp code after macroexpansion.
-- TOPLEVEL(optional) is a boolean variable, true if we are at the root of AST

Returns a form where all lambdas don't have any free variables.

(fn FORM)
(defalias 'cconv-closure-convert #[257 "\303\211\211\304\303\"\210\n\237\305\303\211#\n\203�\306\307!\210+\207" [cconv-captured+mutated cconv-lambda-candidates cconv-freevars-alist nil cconv-analyze-form cconv-convert cl--assertion-failed (null cconv-freevars-alist)] 5 (#$ . 549)])
#@70 Add the warnings that closure conversion would encounter.

(fn FORM)
(defalias 'cconv-warnings-only #[257 "\303\211\211\304\303\"\210+\207" [cconv-captured+mutated cconv-lambda-candidates cconv-freevars-alist nil cconv-analyze-form] 4 (#$ . 1096)])
(defconst cconv--dummy-var (make-symbol "ignored"))
#@63 Return elements of set S1 that are not in set S2.

(fn S1 S2)
(defalias 'cconv--set-diff #[514 "\300\211\203�\211@\211>\204�\211B\262A\266\202\202�\210\211\237\207" [nil] 7 (#$ . 1407)])
#@60 Return elements of set S that are not in Dom(M).

(fn S M)
(defalias 'cconv--set-diff-map #[514 "\300\211\203�\211@\211\236\204�\211B\262A\266\202\202�\210\211\237\207" [nil] 7 (#$ . 1608)])
#@67 Return the submap of map M1 that has Dom(M2) removed.

(fn M1 M2)
(defalias 'cconv--map-diff #[514 "\300\211\203�\211@\211@\236\204�\211B\262A\266\202\202�\210\211\237\207" [nil] 7 (#$ . 1813)])
#@53 Return the map M minus any mapping for X.

(fn M X)
(defalias 'cconv--map-diff-elem #[514 "\211\236\211\203�\300\"\202�\236\203�\301\302!\210\207" [remq cl--assertion-failed (null (assq x res))] 6 (#$ . 2022)])
#@65 Return the map M minus any mapping for elements of S.

(fn M S)
(defalias 'cconv--map-diff-set #[514 "\300\211\203�\211@\211@>\204�\211B\262A\266\202\202�\210\211\237\207" [nil] 7 (#$ . 2248)])
#@53

(fn ARGS BODY ENV PARENTFORM &optional DOCSTRING)
(defalias 'cconv--convert-function #[1284 "@@\232\204\f�\301\302!\210\211A\242A\303\211C\304C\303C\211\203\247�\211@\211\n\236A\206)�\211\305:\203\213�@\211\306=\203z�A\211:\203_�\211@\211\n\f\242B\240\210\306\307
\242DE\n\242B\240\266\202v�\n\242B\240\210\307\n\242E\242B\240\210\210\202\207�%\210\210\202\230�\211%\210\266\211\242T\240\210A\266\202\202�\210\211\242\237\240\210\211\242\237\240\210\310\n\n\242\n$\262\242\204\325�\204\325�\311\312BBD\202\342�\313\n\242BBBB\207" [cconv-freevars-alist cl--assertion-failed (equal body (caar cconv-freevars-alist)) nil 0 #[1285 "\242B\240\210\300\242E\242B\240\207" [internal-get-closed-var] 9 "\n\n(fn ENVECTOR I NEW-ENV FV EXP)"] car-safe internal-get-closed-var cconv--convert-funcbody function lambda internal-make-closure] 23 (#$ . 2456)])
#@30

(fn NEW-ENV VAR CLOSEDSYM)
(defalias 'cconv--remap-llv #[771 "\300\301\302\303\304\305\"\306\"\307\310%\"\207" [mapcar make-byte-code 257 "\211A@\302=\204	�\207\211@\3038=\204�\304\305!\210\211@\302@\306\307\310\311\312\313\300\301\"\314\"\315\316%\315\233\"BBB\207" vconcat vector [apply-partially 2 cl--assertion-failed (eq (car mapping) (nth 2 mapping)) mapcar make-byte-code 257 "\300=\203�\301\207\207" vconcat vector [] 3 "\n\n(fn ARG)"] 12 "\n\n(fn MAPPING)"] 11 (#$ . 3390)])
#@319 Run `cconv-convert' on FUNCBODY, the forms of a lambda expression.
PARENTFORM is the form containing the lambda expression.  ENV is a
lexical environment (same format as for `cconv-convert'), not
including FUNARGS, the function's argument list.  Return a list
of converted forms.

(fn FUNARGS FUNCBODY ENV PARENTFORM)
(defalias 'cconv--convert-funcbody #[1028 "C\301\211\203?�\211@\211CB\235\204%�\211\242\236\2038�C\242B\240\210\2028�\302E\242B\240\210\211\303DDB\262A\266\202\202�\210\304\305\306\307\310\311!\312\"\313\314%\"\262\211\203\203�\301@;\204f�@\242\315>\203s�\211A\262\242B\262\202X�\316\237\317	BBC\"\262\202\204�\262\207" [cconv-captured+mutated nil car-safe list mapcar make-byte-code 257 "\301\300\242\302#\207" vconcat vector [cconv-convert nil] 5 "\n\n(fn FORM)" (interactive declare) append let] 13 (#$ . 3895)])
#@1040 Return FORM with all its lambdas changed so they are closed.
ENV is a lexical environment mapping variables to the expression
used to get its value.  This is used for variables that are copied into
closures, moved into cons cells, ...
ENV is a list where each entry takes the shape either:
 (VAR . (car-safe EXP)): VAR has been moved into the car of a cons-cell, and EXP
    is an expression that evaluates to this cons-cell.
 (VAR . (internal-get-closed-var N)): VAR has been copied into the closure
    environment's Nth slot.
 (VAR . (apply-partially F ARG1 ARG2 ..)): VAR has been λ-lifted and takes
    additional arguments ARGs.
 (VAR . nil): VAR is accessed normally.  This is the same as VAR
    being absent from ENV, but an explicit nil entry is useful
    for shadowing VAR for a specific scope.
EXTEND is a list of variables which might need to be accessed even from places
where they are shadowed, because some part of ENV causes them to be used at
places where they originally did not directly appear.

(fn FORM ENV EXTEND)
(defalias 'cconv-convert #[771 "\211CC\305\306\307\310\311\312\313\314	!\315\"\316\317%\242\"\"\203�\320\321!\210\322\323\324\325\326\327\n:\203\n@\211\330>\203\236A\211:\2032\211@A\211\306\242C\242C\211\203\314\211@\306:\204a�\211C\262\202u�AA\203n�\331\332#\210A@\262@B\235\2035@\333=\203\216�A@@\334=\204\222�\320\335!\210A@AA	@@\232\204\242�\320\336!\210	@AA@\211A@\337\"\205\267�\nGY\266\204\2035	\211A\242AA@\211A@\337\"AA\306\340		BBB
\242B\240\210\211\203\211@\211\341\242\"\204\374�
\242B\240\210\210\211\242\236A\242\342=\203\211>\204\211\342EB\262A\266\202\202\343�\210\333\334\343$BBD\266\206\202qB\235\203W\342E\242B\240\210\344\345\242\242#D\202q\211\242\236\203hC\242B\240\210\345\242\242#\346=\203\246\242>\203\246\347\350\351\"!\352	\242#\240\210\353\n\242\"B\240\210\211D	B\262	\210DB\262\346=\203\303\242\240\210\242\240\210\266A\266\202\202M�\210\346=\204\211\203\211@\211\242\242>\203	\211\242\347\350\351\"!\352\242#\240\210\353\242\"B\240\210\211DB\262\266A\266\202\202\324\210\237\307\310\311\354\313\314		\"\355\"\356\357%	\"BB\266\203\266\203\266\202\202\231:\203Y@\211\334=\203K\n\f$\202T\n\f$\262\202\231\360\267\202\221	#\202\231\361\362!\202\231\f\202\231\f\202\231
\n\f$\202\231!\202\231\f\202\231	$\262\202\211:\203\317\211@\211\334=\203\274\fA\n\f$\262\202\312\fA\n\f$\262\262\202\211\363\267\202\366A	#\262\202A\211:\203H\211@\211:\203A\211@\211\334=\203:A\211:\2033\211@A\211@\242\364=\205 \345\211A\262\242A@\242\242#\365\242%\262\266\202\266\202\2025\262\202<\262\202C
\262\202J\f\262\202\361\362!\202\202A\211:\203\206\211@A\211\211:\205}\345@\242\242#ABBB\266\203\266\202\202\254\366\267\202\244
\n\f$\202\254!\202\254\f\202\254	$\262\202A\211:\203i\211@A\211:\203[\211@A\f\203\371\211\365\306C\242$\367\370\307\310\311\371\313\314\f#\372\"\373\374%\"BBB\262\266\203\202V\211\367\345\242\242#\205CB\235\211\203\"\375E\242B\2026\242\236\2033C\242B\2026\242\307\310\311\376\313\314\f		$\377\"\201@�\374%	\"\266\202BBB\266\203\266\202\202d
$\266\202\202q	$\262\202\f\203\243A\211:\203\226\211@A	
%\266\202\202\236	$\262\202A	$\262\202A\211:\203\317\211@A	
%\266\202\202\327	$\262\202A
\n\f$\262\202A\211:\203\304\211@A\211\242\236A\201A�:\203\255@\211\340=\203\234A\211:\203\213\211A\211:\203j\211A@=\2040\320\201B�!\210\337\307\310\311\201C�\313\314!\201D�\"\373\201E�%\"\307\310\311\354\313\314\"\201F�\"\356\201G�%\"\"BB\262\202\206\307\310\311\354\313\314\"\201H�\"\356\201G�%	B\"B\262\202\227			%\262\202\250%\262\202\271\211%\262\262\266\203\266\202\202\340\201I�\267\202\330!\202\340\f\202\340	$\262\202A!\262\202\202A	$\262\262\202\n\242\236A\206\n\266\206\207" [cconv-lambda-candidates cconv-freevars-alist cconv-liftwhen cconv-captured+mutated byte-compile--use-old-handlers delq nil mapcar make-byte-code 257 "\211A@\301=\205�\302AAA\300\242\"\207" vconcat vector [apply-partially cconv--set-diff] 4 "\n\n(fn MAPPING)" cl--assertion-failed (not (delq nil (mapcar (lambda (mapping) (if (eq (cadr mapping) 'apply-partially) (cconv--set-diff (cdr (cddr mapping)) extend))) env))) #[1285 "\211\300\242\242#\301\302\303\n\242$F\207" [cconv-convert :fun-body cconv--convert-function nil] 13 "\n\n(fn ENV EXTEND BODY FORM HEAD)"] #[257 "\300\301\302\"B\207" [interactive mapcar #[257 "\300\301\211#\207" [cconv-convert nil] 5 "\n\n(fn FORM)"]] 5 "\n\n(fn FORMS)"] #[1028 "\300G\301\"\301U\203\f�\207\302\203{�\211A\262\242\211\242\236A\206 �\211\303\211A\262\242\242\242#9\203:�\304E\202t�:\203s�@\211\305=\203m�A\211:\203g�\211@A\211\204a�\306E\262\202b�\266\202\202h�\262\202n�\262\202t�\211B\266\204\202
�\211A\203\207�\307\237B\202\211�\211@\207" [logand 1 nil cconv-convert setq car-safe setcar progn] 16 "\n\n(fn FORM ENV EXTEND FORMS)"] #[771 "\300\301\302\303\304\305\306		\"\307\"\310\311%\"B\207" [cond mapcar make-byte-code 257 "\302\303\304\305\306\307\300\301\"\310\"\311\312%\"\207" vconcat vector [mapcar make-byte-code 257 "\302\300\242\301\242#\207" vconcat vector [cconv-convert] 5 "\n\n(fn FORM)"] 9 "\n\n(fn BRANCH)"] 12 "\n\n(fn ENV EXTEND COND-FORMS)"] #[1028 "\300\301\302D\242\242#\303\304\305\306\307\310\"\311\"\312\313%\"BB\207" [funcall cconv-convert function mapcar make-byte-code 257 "\302\300\242\301\242#\207" vconcat vector [cconv-convert] 5 "\n\n(fn FORM)"] 14 "\n\n(fn ENV EXTEND ARGS FUN)"] #[1028 "\211\300\301\302\303\304\305\n\n\"\306\"\307\310%\"B\207" [mapcar make-byte-code 257 "\302\300\242\301\242#\207" vconcat vector [cconv-convert] 5 "\n\n(fn FORM)"] 13 "\n\n(fn ENV EXTEND FORMS FUNC)"] (let let*) byte-compile-warn "Malformed `%S' binding: %S" function lambda (and (eq (car value) 'function) (eq (car (cadr value)) 'lambda)) (equal (cddr (cadr value)) (caar cconv-freevars-alist)) append apply-partially memql car-safe cconv--convert-funcbody list cconv-convert let* make-symbol format "closed-%s" cconv--remap-llv remq "\302\300\242\301\242#\207" [cconv-convert] 5 "\n\n(fn FORM)" #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cond 607 internal-make-closure 617 quote 623 function 628 setq 633 interactive 645 declare 652)) byte-compile-report-error "Internal error in compiler: cconv called twice?" #s(hash-table size 14 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cond 725 function 740 internal-make-closure 847 quote 853 defvar 858 defconst 858 condition-case 945 catch 1142 unwind-protect 1203 setq 1244 apply 1261 funcall 1261 interactive 1509 declare 1521)) :documentation cconv--convert-function #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (setq 908 interactive 920 declare 927)) condition-case :fun-body "\211@\304\302\206�CA\301\242\300$D\207" [cconv--dummy-var cconv--convert-function] 7 "\n\n(fn HANDLER)" car-save "\211@\304\305\306\307\310\311\300\303\"\312\"\313\314%A\"\302\204�\211\202&�\315\301\316\301DDCBBC\262B\207" [mapcar make-byte-code 257 "\302\301\300\242#\207" vconcat vector [cconv-convert] 5 "\n\n(fn FORM)" let list] 10 #[1285 "\211\300\301\302\303\304\305\"\306\"\307\310%B\"B\207" [mapcar make-byte-code 257 "\302\300\242\301\242#\207" vconcat vector [cconv-convert] 5 "\n\n(fn ARG)"] 14 "\n\n(fn ENV EXTEND ARGS FUN CALLSYM)"] (eq (cadr mapping) fun) "\211\300\242\236A\206	�\211\211:\2034�\211@\211\301=\203.�A\211:\203(�\211@\211\211\262\262\202)�\262\202/�\262\2025�\211\207" [car-safe] "\n\n(fn FV)" [cconv-convert] "\n\n(fn ARG)" [cconv-convert] #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 1484 declare 1491))] 39 (#$ . 4772)])
(byte-code "\300\301!\204�\302\301\303\"\210\300\207" [fboundp byte-compile-not-lexical-var-p defalias boundp] 3)
#@206 Analyze the use of a variable.
VARDATA should be (BINDER READ MUTATED CAPTURED CALLED).
VARKIND is the name of the kind of variable.
FORM is the parent form that binds this var.

(fn VARDATA FORM VARKIND)
(defalias 'cconv--analyze-use #[771 ":\203@A\211:\203\211@\211\204\333�A\211:\203\327�\211@\211\204\241�A\211:\203\235�\211@\211\204m�A\211:\203i�\211@\211\204A�A\210\202h�:\203h�@\211\301!\302H\303=\262\203g�A\211\204f�\304\305#\266\210\210\210\210\202\234�:\203\234�@\211\301!\302H\303=\262\203\233�A\211:\203\232�\211A\211\204\231�\304\305
#\266\210\210\210\210\210\202\326�:\203\326�@\211\301!\302H\303=\262\203\325�A\211:\203\324�\211A\211:\203\323�\211A\211\204\322�\304\305\f#\266\210\210\210\210\210\210\202:\203@\211\301!\302H\303=\262\203A\211:\203\211A\211:\203\211A\211:\203\211A\211\204\304\305#\266\210\210\210\210\210\210\266\306:\205\316@\211:\203\204\211@AA\211:\205\211@\211\204>A\211:\2059\211@A\211:\2057\211@A\211:\2055\211@\211\204\231A\211?\205\224\n\307!?\206v\301!\302H\303=\206v\211\310=?\205\222\311\301!!\304\312\203\216\313P\202\217\314$\262\262\262\2023\315=\203\270\315=\2053A\211?\205\263\f
\"\262\2023:\2032@\211:\205-\211@\211\316=\205+A\211:\205)\211@\211:\205'\211@\211\317=\205%A\211?\205#A\211??\206??\206	??\206\315=??\205!A\211?\205\211BB\211\262\262\262\262\262\262\262\262\262\2023\320\262\266\202\266\202\262\202}A\211:\205{\211@\211\315=\205yA\211:\205w\211@\211\315=\205uA\211:\205s\211A\211?\205q\f\"\262\262\262\262\262\262\262\266\203\202\314A\211:\205\312\211A\211:\205\310\211@\211\315=\205\306A\211:\205\304\211@\211\315=\205\302A\211:\205\300\211A\211?\205\276	\"\262\262\262\262\262\262\262\262\207" [cconv-lambda-candidates symbol-name 0 95 byte-compile-warn "%s `%S' not left unused" #[514 "\211BB\211\207" [cconv-captured+mutated] 4 "\n\n(fn FORM BINDER)"] intern-soft ignored help-uni-confusable-suggestions "Unused lexical %s `%S'%s" "\n  " "" t function lambda nil] 26 (#$ . 13166)])
#@33

(fn ARGS BODY ENV PARENTFORM)
(defalias 'cconv--analyze-function #[1028 "\303C\304\305\"\211	B\211\203^�\211@\306!\203$�\307\310\"\210\202W�\311!\312H\313=\204W�\211\303\211\211\211\257\314\n\"\203B�\n\210\202F�\211\nB\210CABB\262\211B\262\210A\266\202\202�\210\211\203s�\211@\315\"\210A\266\202\202a�\210\211\203\211�\211@\316\317#\210A\266\202\202u�\210\205\355�\203\234�@@@@=\204\240�\320\321!\210\303@A@A\203\303�\211@\203\270�\322\240\210\322\262A\262\211A\262\202\250�\203\337�@@\211AB\241\266\323	@\233\211\322\240\266A\262	A\262\266\202\212�)\207" [byte-compile-bound-variables cconv-freevars-alist byte-compile-lexical-variables nil mapcar #[257 "\211@\300\211\211\211\257\207" [nil] 6 "\n\n(fn VDATA)"] byte-compile-not-lexical-var-p byte-compile-warn "Lexical argument shadows the dynamic variable %S" symbol-name 0 38 memql cconv-analyze-form cconv--analyze-use "argument" cl--assertion-failed (and envcopy (eq (caar env) (caar envcopy))) t 3] 16 (#$ . 15335)])
#@492 Find mutated variables and variables captured by closure.
Analyze lambdas if they are suitable for lambda lifting.
- FORM is a piece of Elisp code after macroexpansion.
- ENV is an alist mapping each enclosing lexical variable to its info.
   I.e. each element has the form (VAR . (READ MUTATED CAPTURED CALLED)).
This function does not return anything but instead fills the
`cconv-captured+mutated' and `cconv-lambda-candidates' variables
and updates the data stored in ENV.

(fn FORM ENV)
(defalias 'cconv-analyze-form #[514 "\211C\303\304\305\306\307\310\311	:\203\355	@\211\312\267\202\225\nA\211:\203\332�\211@A\211\242\313\211\313\211\203\237�\211@\211:\204J�\211\262\211C\262\313\262\202f�\211@\262\211A@\262\314	\315=\203b�\242\202d�\"\210\316!\204\230�\317	\"\203y�	\210\202}�\211	B\210\313\211\211\211\257ABB\262\242B\240\266A\266\202\2022�\210\211\203\270�\211@\314\242\"\210A\266\203\202\242�\210\211\205\316�\211@\320\321#\210A\266\202\202\272�\262)\266\205\266\203\266\202\202*\322=\203\350�\n\"\202*:\203@\211\323=\203\376�
\f\"\202\"\262\202*\324\267\202%\n\"\202*\313\202*\313\202*!\202*\n\"\262\202\350\nA\211:\205\203\211@\211:\205\201\211@\211\323=\205A\211:\205}\211@AA\211?\205{@\242\325=\203p\314\211A\262\242A@\242\"\210\326\242$\266\202\266\203\262\262\262\262\202\350\nA\n\"\262\202\350\211:\203\272\211@\211\323=\203\253\f\"\202\265A\"\262\262\202\350\211\327\267\202\336\nA\n\"\262\202\350\313\202\350\nA\211:\203\230\211@A\211:\203\216\211@A\n\203\211\326\313C\242$\210\211\205\211@\326\205CA\242$\210A\266\202\202\371\262\266\203\202\211\211\314\242\"\210\211\203;\2119\203;\316!\203;\330\331\"\210\211\313\211\211\211\257\203O\242B\240\210\211\203v\211@\211A\211\203n\211@\314\242\"\210A\266\203\202X\210A\266\202\202P\210\205\205\320CAB\321#\262\266\203\266\202\202\223\f\"\266\202\202\235\n\"\262\202\350\n\203\310\nA\211:\203\276\211@A\f#\266\202\202\303\n\"\262\202\350\nA\n\"\262\202\350\nA\211:\203\355\211@A\f#\266\202\202\362\n\"\262\202\350\nA\211:\203/\211@A\211\204\211B\211\262\202*\211:\203%\211@\n
#\262\202*\f\"\266\202\2024\n\"\262\202\350\nA\211:\203b\211@A\211:\203X\211@\n
#\262\202]\f\"\266\202\202g\n\"\262\202\350\nA\211:\203\273\211@A\211\2119\205\204\211\242\236\211\203\223\332\233\211\333\240\266\202\232\314\242\"\210\210\211\205\262\211@\314\242\"\210A\266\203\202\234\262\266\202\266\202\202\315\334=\203\310!\202\315\n\"\262\202\350\nA!\262\202\350\nA\n\"\262\262\202\n	9\203		\242\236\211\205\211A\211\333\240\262\262\202\n\313\266\207\207" [byte-compile-bound-variables byte-compile-lexical-variables byte-compile--use-old-handlers #[257 "\211\211\205�\211@\300\301\"\210A\266\202\202�\207" [cconv-analyze-form nil] 6 "\n\n(fn FORMS)"] #[771 "\211B\301\242\"\207" [byte-compile-bound-variables cconv-analyze-form] 6 "\n\n(fn ENV VALUE VAR)"] #[771 "\300\242\"\210\301\302\242$\207" [cconv-analyze-form cconv--analyze-function nil] 8 "\n\n(fn ENV BODY FORM)"] #[514 "\211\211\205$�\211@\211\211\203�\211@\300\242\"\210A\266\202\202�\210A\266\202\202�\207" [cconv-analyze-form] 9 "\n\n(fn ENV COND-FORMS)"] #[514 "\300\301@A@\"\210\302@DAB\211\205\"�\211@\303\242\"\210A\266\202\202�\207" [byte-compile-warn "Use of deprecated ((lambda %s ...) ...) form" function cconv-analyze-form] 7 "\n\n(fn FORM ENV)"] #[514 "\211\205&�\211@\242\236\211\203�\211AA\211\300\240\266\210\301A@\242\"\210\211AA\262\202��\207" [t cconv-analyze-form] 6 "\n\n(fn ENV FORMS)"] #[514 "\211\211\205�\211@\300\242\"\210A\266\202\202�\207" [cconv-analyze-form] 7 "\n\n(fn ENV BODY-FORMS)"] #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (let 24 let* 24 function 303 setq 392)) nil cconv-analyze-form let* byte-compile-not-lexical-var-p memql cconv--analyze-use "variable" setq lambda #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cond 270 quote 278 function 282 interactive 286)) :documentation cconv--analyze-function #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cond 448 quote 461 condition-case 465 catch 674 unwind-protect 725 defvar 759 defconst 825 apply 876 funcall 876 interactive 978)) byte-compile-warn "Lexical variable shadows the dynamic variable %S" 4 t interactive] 29 (#$ . 16381)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias cconv-analyse-form cconv-analyze-form nil make-obsolete "25.1" provide cconv] 4)

${this.title}

Code Editor : cconv.elc