HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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\262
A\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\262
A\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\262
A\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\262
A\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\302\303!\210\211A\242A\304\211\211C\305C\304C\211\203\250\211@\211\236A\206*\211\306
:\203\214
@\211\307=\203{A\211:\203`\211@\211\n
\f\242B\240\210\307\310
\242DE\n\242B\240\266\202w\n\242B\240\210\310\n\242E\242B\240\210\210\202\210
%\210\210\202\231\211%\210\266\211\242T\240\210
A\266\202\202\210\211\242\237\240\210\211
\242\237\240\210\n\211\203\364\211@\211C\nB	\235\204\331\211\242\236\203\355
C\242B\240\210\202\355
\307E\242B\240\210\211\311DDB\262
A\266\202\202\267\210\312\313\314\315\316\317!\320\"\321\322%\"\262\2037
\304@;\204
@\242\323>\203(
\211A\262\242
B\262
\202

\324
\237\325	BBC\"\262\210\242\204M
\204M
\326\327\fBBD\202Z
\330\242	BBBB\207" [cconv-freevars-alist cconv-captured+mutated 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 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 function lambda internal-make-closure] 24 (#$ . 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 (#$ . 3805)])
#@868 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.
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\237\n@\211\330>\203\314A\211:\203<\211@
A\211\306\242C\242C\211\203\326
\211@\306
:\204a
\211C\262\202u
AA\203n\331\332#\210
A@\262

@B\235\203?

@\333=\203\216
A@@\334=\204\222\320\335!\210
A@AA	@@\232\204\242\320\336!\210	@AA@\211A@\337\"\205\267\n
GY\266\204\203?
	\211A\242AA@\211A@\337\"AA\306C\340		BBB
\242B\240\210\211\203\"
\211@\211\341
\242\"\204\375

\242B\240\210\210\211\242\236A\242\342=\203
\211>\204

\342E\242B\240\210
A\266\202\202\344\210\333\334\307\310\311\343\313\314	!\344\"\345\346%\"BBD\266\206\202{
B\235\203a

\342E\242B\240\210\347\350\242\242#D\202{
\211\242\236\203r

C\242B\240\210\350\242\242#\351=\203\260

\242>\203\260
\352\353\354\"!\355	\242#\240\210
\356\n\242\"B\240\210\211D	B\262	\210

DB\262\351=\203\315
\242\240\210\242\240\210\266
A\266\202\202M\210\351=\204\211\203\211@\211\242\242>\203\211\242\352\353\354\"!\355\242#\240\210
\356\242\"B\240\210\211DB\262\266
A\266\202\202\336
\210\237\307\310\311\357\313\314		\"\360\"\345\346%	\"BB\266\203\266\203\266\202\202\307
:\203c
@\211\334=\203U\n\f$\202^\n\f$\262
\202\307
\361=\203s	#\202\307
\362=\203\363\364!\202\307
\365=\203\212\f\202\307
\333=\203\225\f\202\307
\366=\203\247
\n\f$\202\307
\367=\203\264
!\202\307
\370=\203\277\f\202\307	$\262
\202\232\211:\203\375\211@\211\334=\203\352\fA\n\f$\262
\202\370\fA\n\f$\262
\262
\202\232\211\361=\203A	#\262
\202\232\211\333=\203\203A\211:\203|\211@\211:\203u\211@\211\334=\203n
A\211:\203g\211@
A\211
@\242\371=\205T\350\211A\262\242A@\242\242#\372\242%\262
\266\202\266\202\202i\262
\202p\262
\202w
\262
\202~\f\262
\202\232\211\362=\203\217\363\364!\202\232\211\365=\203\232\202\232\211\373>\203A\211:\203\315\211@
A\211\211\307\310\311\357\313\314\"\374\"\345\346%\"BB\266\203\266\202\202\377
\366=\203\337
\n\f$\202\377
\367=\203\354
!\202\377
\370=\203\367\f\202\377	$\262
\202\232\211\375=\203\335A\211:\203\320\211@
A\211:\203\302\211@
A\f\203X\211\372\306C\242$\375\376\307\310\311\377\313\314\f#\201@\"\201A\201B%\"BBB\262
\266\203\202\275\211\375
\350\242\242#\205qCB\235\211\203\203\201CE\242B\202\227\242\236\203\224C\242B\202\227\242\307\310\311\201D\313\314\f		$\201E\"\201F\201B%	\"\266\202BBB\266\203\266\202\202\313
$\266\202\202\330	$\262
\202\232\211\201G=\203\"\f\203A\211:\203\211@
A	
%\266\202\202
	$\262
\202\232A	$\262
\202\232\211\201H=\203SA\211:\203F\211@
A	
%\266\202\202N	$\262
\202\232\211\366=\203jA
\n\f$\262
\202\232\211\201I>\203pA\211:\203K\211@
A\211
\242\236A\201J
:\2034
@\211\340=\203#A\211:\203\211A\211:\203\361\211A@=\204\265\320\201K!\210\337\307\310\311\201L\313\314!\201M\"\201A\201N%\"\307\310\311\357\313\314\"\201O\"\345\201P%\"\"BB\262
\202
\307\310\311\357\313\314\"\201Q\"\345\201P%	B\"B\262
\202			%\262
\202/
%\262
\202@\211%\262
\262
\266\203\266\202\202k
\367=\203X
!\202k
\370=\203c\f\202k	$\262
\202\232\211\367=\203\202A
!\262
\202\232\211\370=\203\215\202\232A	$\262
\262
\202\253\n\242\236A\206\253\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\302
AAA\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 "\300
G\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=\203mA\211:\203g\211@
A\211\204a
\306
E\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 "\301
\300\242\302#\207" [cconv-convert nil] 5 "\n\n(fn FORM)" list cconv-convert let* make-symbol format "closed-%s" cconv--remap-llv remq "\302
\300\242\301\242#\207" [cconv-convert] cond internal-make-closure byte-compile-report-error "Internal error in compiler: cconv called twice?" quote setq interactive declare :documentation cconv--convert-function (defvar defconst) [cconv-convert] condition-case :fun-body "\211@\304\302\206CA\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\262
B\207" [mapcar make-byte-code 257 "\302
\301\300\242#\207" vconcat vector [cconv-convert] 5 "\n\n(fn FORM)" let list] 10 catch unwind-protect (apply funcall) #[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]] 41 (#$ . 4310)])
(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
\203gA\211\204f
\304\305#\266\210\210\210\210\202\234:\203\234@\211\301
!\302H\303=\262
\203\233A\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\325A\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
\203
A\211:\203
\211A\211:\203
\211A\211:\203
\211A\211\204
\304\305#\266\210\210\210\210\210\210\266\306:\205\274@\211:\203r\211@
AA\211:\205m\211@\211\204,
A\211:\205'\211@
A\211:\205%\211@
A\211:\205#\211@\211\204\207

A\211?\205\202
\n\307
!?\206v
\301
!\302H\303=\206v
\211\310=?\205\200
\304\311#\262
\262
\202!\312=\203\246
\312=\205!
A\211?\205\241
\f
\"\262
\202!:\203 @\211:\205\211@\211\313=\205
A\211:\205\211@\211:\205\211@\211\314=\205A\211?\205A\211??\206\365
??\206\365
	??\206\365
\312=??\205A\211?\205
\211BB\211\262
\262
\262
\262
\262
\262
\262
\262
\262
\202!\315\262
\266\202\266\202\262
\202k
A\211:\205i\211@\211\312=\205g
A\211:\205e\211@\211\312=\205c
A\211:\205a\211A\211?\205_\f\"\262
\262
\262
\262
\262
\262
\262
\266\203\202\272A\211:\205\270\211A\211:\205\266\211@\211\312=\205\264
A\211:\205\262\211@\211\312=\205\260
A\211:\205\256\211A\211?\205\254	\"\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 "Unused lexical %s `%S'" t function lambda nil] 26 (#$ . 12377)])
#@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\210
C
ABB\262\211B\262\210
A\266\202\202\210\211\203s\211@\315
\"\210
A\266\202\202a\210\211\203\211\211@\316
\317#\210
A\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\262
A\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 (#$ . 14463)])
#@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;	@\211\312>\203A
\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\257

ABB\262
\242B\240\266
A\266\202\2022\210\211\203\270\211@\314\242\"\210A\266\203\202\242\210\211\205\316\211@\320
\321#\210
A\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=\203
\n\"\202<

\325=\203 
\313\202<

\326=\203*
\313\202<

\327=\2037

!\202<
\n\"\262
\2026\211\326=\203\240
\nA\211:\205\233
\211@\211:\205\231
\211@\211\323=\205\227

A\211:\205\225
\211@
AA\211?\205\223


@\242\330=\203\210
\314\211A\262\242A@\242\"\210\331
\242$\266\202\266\203\262
\262
\262
\262
\2026\211\322=\203\263
\nA\n\"\262
\2026\211:\203\330
\211@\211\323=\203\311
\f\"\202\323
A\"\262
\262
\2026\211\324=\203\353
\nA\n\"\262
\2026\211\325=\203\365
\313\2026\211\332=\203\314\nA\211:\203\302\211@
A\211:\203\270\211@
A\n\203G\211\331\313C\242$\210\211\205@\211@\331\2050CA\242$\210
A\266\202\202#\262
\266\203\202\263\211\314\242\"\210\211\203e\2119\203e\316
!\203e\333\334\"\210\211\313\211\211\211\257
\203y
\242B\240\210\211\203\240\211@\211A\211\203\230\211@\314\242\"\210A\266\203\202\202\210
A\266\202\202z\210
\205\257\320CAB\321#\262
\266\203\266\202\202\275\f\"\266\202\202\307\n\"\262
\2026\211\335=\203\n\203\370\nA\211:\203\356\211@
A\f#\266\202\202\363\n\"\262
\2026\nA\n\"\262
\2026\211\336=\203-\nA\211:\203#\211@
A\f#\266\202\202(\n\"\262
\2026\211\337=\203u\nA\211:\203k\211@
A\211\204N
\211B\211\262
\202f\211:\203a\211@\n
#\262
\202f\f\"\266\202\202p\n\"\262
\2026\211\340=\203\256\nA\211:\203\244\211@
A\211:\203\232\211@\n
#\262
\202\237\f\"\266\202\202\251\n\"\262
\2026\211\341>\203\nA\211:\203\211@
A\211\2119\205\314\211\242\236\211\203\333\342
\233\211\343\240\266\202\342\314\242\"\210\210
\211\205\372\211@\314\242\"\210A\266\203\202\344\262
\266\202\266\202\202
\327=\203
!\202\n\"\262
\2026\211\327=\203,\nA
!\262
\2026\nA\n\"\262
\262
\202X	9\203W	\242\236\211\205R\211A\211\343\240\262
\262
\202X\313\266\207\207" [byte-compile-bound-variables byte-compile-lexical-variables byte-compile--use-old-handlers #[257 "\211\211\205\211@\300
\301\"\210
A\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\"\210
A\266\202\202\210
A\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\"\210
A\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\301
A@\242\"\210\211AA\262
\202\207" [t cconv-analyze-form] 6 "\n\n(fn ENV FORMS)"] #[514 "\211\211\205\211@\300
\242\"\210
A\266\202\202
\207" [cconv-analyze-form] 7 "\n\n(fn ENV BODY-FORMS)"] (let let*) nil cconv-analyze-form let* byte-compile-not-lexical-var-p memql cconv--analyze-use "variable" setq lambda cond quote function interactive :documentation cconv--analyze-function condition-case byte-compile-warn "Lexical variable shadows the dynamic variable %S" catch unwind-protect defvar defconst (apply funcall) 4 t] 29 (#$ . 15509)])
(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)