WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/emacs-lisp
Viewing File: /usr/share/emacs/24.3/lisp/emacs-lisp/cconv.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:46:47 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/cconv.el
;;; in Emacs version 24.3
;;; 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 (#$ . 557))
#@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#+\207" [cconv-captured+mutated cconv-lambda-candidates cconv-freevars-alist nil cconv-analyse-form cconv-convert] 5 (#$ . 698)])
(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 (#$ . 1227)])
#@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 (#$ . 1428)])
#@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 (#$ . 1633)])
#@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\303C\"\210\207" [remq signal cl-assertion-failed (null (assq x res))] 7 (#$ . 1842)])
#@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 (#$ . 2080)])
(defalias 'cconv--convert-function #[1028 "\211@@)\232\204\303\304\305C\"\210\211A@A\306\211\211C\307C\306C\211\203\243\211@\211\n\236A\206/\211\310:\203\207@A\311=\204O			%\210\202\202\211:\203u\211@\211\n\f@B\240\210\311\312
@DE\n@B\240\266\202\202			%\210\266\202\224\211%\210\266\211@T\240\210A\266\202\202 \210\211@\237\240\210\211@\237\240\210	\211\203\357\211@\211C	B\n\235\204\324\211@\236\203\350C@B\240\210\202\350\311E@B\240\210\211\313DDB\262A\266\202\202\262\210\314\315\316\317\320\321!\322\"\323\324%\n\"\262\2032\306@;\204@\242\325>\203#\211A\262@B\262\202\326\237\327	BBC\"\262\210@\204C\330\331BBD\202M\332\n@BBB\207" [cconv-freevars-alist x cconv-captured+mutated signal cl-assertion-failed (equal body (caar cconv-freevars-alist)) nil 0 #[1285 "@B\240\210\300@E@B\240\207" [internal-get-closed-var] 9 "\n\n(fn ENVECTOR I NEW-ENV FV EXP)"] car internal-get-closed-var list mapcar make-byte-code 257 "\301\300@\302#\207" vconcat vector [cconv-convert nil] 5 "\n\n(fn FORM)" (interactive declare) append let function lambda internal-make-closure] 24 "\n\n(fn ARGS BODY ENV PARENTFORM)"])
#@863 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 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%@\"\"\203!\320\321\322C\"\210\323:\203|@A\324>\203'\211:\203\211@A\211\306	@C@C\211\203\373\211@\306:\204\\\211C\262\202f\211A@)\262@B	\235\203V@\325=\203\202\211A@)@\326=\204\210\320\321\327C\"\210\211A@)\211AA)\n\211@@)\232\204\243\320\321\330C\"\210\n@A\211A@)\211\211A@)\331\"\205\276GY\266\204\203V\n\211A@A\211A@)\211\211A@)\331\"\211AA)\306C\332		BBB
@B\240\210\211\2039\211@\211\333@\"\203
@\210\202
@B\240\210\210\211@\236A\242\334=\2032\211>\2042\334E@B\240\210A\266\202\202\364\210\325\326\307\310\311\335\313\314	!\336\"\316\337%\"BBD\266\206\202\222B\f\235\203x\334E@B\240\210\340\341@@#D\202\222\211@\236\203\211C@B\240\210\341@@#@>\203\325\342\343\344!P!\307\310\311\345\313\314	\"\346\"\347\317%\n@\"\240\210\350	@\"\240\210@B\240\210\211D	B\262	\210DB\262\351=\203\362@\240\210@\240\210\266A\266\202\202H\210\237\307\310\311\352\313\314		\"\353\"\316\337%	\"BB\266\203\266\203\266\202\202w$\202w:\203h@\211\326=\203[\354\341\325D	@@#\307\310\311\352\313\314\"\355\"\316\337%\"BB\266\202\202c$\262\202w\356=\203\210\211\356\307\310\311\357\313\314
\"\360\"\361\362%\"B\262\202w\325=\203\327\211:\203\322\211@\211:\203\313\211@A\326=\204\251\n\202\306\211:\203\304\211@A\211\363
@$\266\202\266\202\202\306\n\266\202\202\315\262\202w\202w\364=\203\343\365\366!\202w\367=\203\356\202w\370>\203(\211:\203\211@A\211\211\307\310\311\352\313\314\"\371\"\316\337%\"BB\266\203\266\202\202w$\202w\372=\203\211\211:\203\211@A\211:\203q\211@A\211\363\306C
@$\372\373\307\310\311\374\313\314\f#\375\"\376\377%\"BBB\262\266\203\266\202\202z$\266\202\202w$\202w\201@>\203\304\211:\203\272\211@A\211\211\341@
@#\373\363\306@$F\266\203\266\202\202w$\202w\201A=\203\340\211\201A\373\363\306	@$E\262\202w\201B=\203r\211\306\203[\211A\262@\211@\236A\206\376\211\341\211A\262@	@@#9\203\201BE\202T:\203S@A\334=\204-\202N\211:\203M\211@A\211\204G\201CE\262\202H\266\202\202N\266\202\202T\211B\266\204\202\352\211A\203i\201D\237B\202k\211@\262\262\202w\201E>\203K\211:\203A\211@A\211	@\236A\201F:\203*@A\332=\204\255
			%\202%\211:\203\211A\211:\203\211\211A@)=\204\316\320\321\201GC\"\210\331\307\310\311\201H\313\314!\201I\"\376\201J%\"\307\310\311\352\313\314\"\201K\"\316\201L%\"\"BB\262\202\n\n\n%\262\202%
			%\266\202\2026\211
%\262\262\266\203\266\202\202w$\202w\201M=\203c\211\201M\307\201N\"B\262\202w\201O=\203p\202w$\266\202\202\205@\236A\206\205\262\207" [x cconv-lambda-candidates cconv-freevars-alist cconv-liftwhen cconv-captured+mutated delq nil mapcar make-byte-code 257 "\211\211A@)\302=\205\303\211AA)A\300@\"\207" vconcat vector [x apply-partially cconv--set-diff] 5 "\n\n(fn MAPPING)" signal cl-assertion-failed (not (delq nil (mapcar (lambda (mapping) (if (eq (cadr mapping) 'apply-partially) (cconv--set-diff (cdr (cddr mapping)) extend))) env))) #[1028 "\211\300\301\302\303\304\305\n\n\"\306\"\307\310%\"B\207" [mapcar make-byte-code 257 "\302\300@\301@#\207" vconcat vector [cconv-convert] 5 "\n\n(fn FORM)"] 13 "\n\n(fn ENV EXTEND FORMS FUNC)"] (let* let) 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 "\301\300@\302#\207" [cconv-convert nil] "\n\n(fn FORM)" list cconv-convert make-symbol "closed-" symbol-name "\211\211A@)\303=\204\f\207\211@\3048=\204\305\306\307C\"\210\211@\303@\310\311\312\313\314\315\300\301\"\316\"\317\320%\317\233\"BBB\207" [x apply-partially 2 signal 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 remq let* "\302\300@\301@#\207" [cconv-convert] funcall [cconv-convert] cond "\302\303\304\305\306\307\300\301\"\310\"\311\312%\"\207" [mapcar make-byte-code 257 "\302\300@\301@#\207" vconcat vector [cconv-convert] 5 "\n\n(fn FORM)"] 9 "\n\n(fn BRANCH)" cconv--convert-function internal-make-closure byte-compile-report-error "Internal error in compiler: cconv called twice?" quote (defconst defvar) [cconv-convert] condition-case :fun-body "\211@\304\302\206CA\301@\300$D\207" [cconv--dummy-var cconv--convert-function] 7 "\n\n(fn HANDLER)" (catch unwind-protect) track-mouse setq setcar progn (funcall apply) #[1285 "\211\300\301\302\303\304\305\"\306\"\307\310%B\"B\207" [mapcar make-byte-code 257 "\302\300@\301@#\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@\236A\206	\211\211:\2032\211@A\301=\204\202-\211:\203,\211@\211\211\262\262\202-\266\202\2023\211\207" [car] "\n\n(fn FV)" [cconv-convert] "\n\n(fn ARG)" interactive #[257 "\300\301\211#\207" [cconv-convert nil] 5 "\n\n(fn FORM)"] declare] 37 (#$ . 3521)])
(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--analyse-use #[771 "\301:\203@A\211:\203\211@A\204\311\211:\203\211@A\204\224\211:\203\304\211@A\204e\211:\203\217\211@A\203`	:\203`	@\211\302!\303H\304=\262\203_\204_
\"\210\210\266\202\217:\203\217@\211\302!\303H\304=\262\203\216:\203\216A\211\204\215\n\f\"\210\210\210\266\202\304:\203\304@\211\302!\303H\304=\262\203\303:\203\303A\211:\203\302\211A\211\204\301	\"\210\210\210\210\266\202:\203@\211\302!\303H\304=\262\203:\203A\211:\203\377\211A\211:\203\376\211A\211\204\375\n\"\210\210\210\210\210\266\266\210\305:\205\317@A:\203y@A:\205t@A\204'\211:\205r\211@A\211:\205\"\211@A\211:\205 \211@A\204q\211?\205	\306!?\206`\302!\303H\304=\206`\211\307=?\205l\310\311\312#!\262\202\313=\203\223\313=\204\201\314\202\211\204\217\f
\"\202\314\202:\203@	A:\205@A\315=\204\262\314\202\211:\203\211@A:\205@\211\316=\204\314\314\202\203\324\314\202\203\334\314\202\f\203\345\314\202\n\203\356\314\202\313=\204\371\314\202\204
\211BB\211\262\202\314\262\266\202\202\314\266\202\266\202\202\314\266\202\266\202\266\202\202r\211:\203q\211@A\313=\204:\314\202l\211:\203k\211@A\313=\204M\314\202f\211:\203e\211A\211?\205`\f\"\262\202f\314\266\202\202l\314\266\202\202r\314\266\202\266\202\202\315\211:\203\314\211A\211:\205\307\211@A\313=\204\223\314\202\305\211:\203\304\211@A\313=\204\246\314\202\277\211:\203\276\211A\211?\205\271	\"\262\202\277\314\266\202\202\305\314\266\202\262\202\315\314\266\202\207" [cconv-lambda-candidates #[514 "\300\301\302#!\207" [byte-compile-log-warning format "%s `%S' not left unused"] 7 "\n\n(fn VARKIND VAR)"] symbol-name 0 95 #[514 "\211BB\211\207" [cconv-captured+mutated] 4 "\n\n(fn FORM BINDER)"] intern-soft ignored byte-compile-log-warning format "Unused lexical %s `%S'" t nil function lambda] 26 (#$ . 9832)])
(defalias 'cconv--analyse-function #[1028 "\302C\303\304\"\211B\211\203L\211@\305!\203$\306\307\310\"!\210\202E\311!\312H\313=\204E\211\302\211\211\211\257CABB\262\211B\262\210A\266\202\202\210\211\203a\211@\314\"\210A\266\202\202O\210\211\203w\211@\315\316#\210A\266\202\202c\210\205\346\203\220\211@@)\211@@)=\204\226\317\320\321C\"\210\302@A@A\203\271\211@\203\256\322\240\210\322\262A\262\211A\262\202\236\203\330\211@@)\211AB\241\266\323	@\233\211\322\240\266A\262	A\262\266\202x\207" [cconv-freevars-alist x nil mapcar #[257 "\211@\300\211\211\211\257\207" [nil] 6 "\n\n(fn VDATA)"] byte-compile-not-lexical-var-p byte-compile-log-warning format "Argument %S is not a lexical variable" symbol-name 0 38 cconv-analyse-form cconv--analyse-use "argument" signal cl-assertion-failed (and envcopy (eq (caar env) (caar envcopy))) t 3] 17 "\n\n(fn ARGS BODY ENV PARENTFORM)"])
#@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-analyse-form #[514 "\211C\302:\203%@A\303>\203\302\211:\203\273\211@A\211@\304\211\211\211\203\203\211@\211:\204=\211\262\211C\262\304\262\202\\\211@\262\211\211A@)\262\305\306=\203X@\202Z\"\210\307!\204|\304\211\211\211\257ABB\262@B\240\266A\266\202\202%\210\211\203\232\211@\305@\"\210A\266\202\202\206\210\211\205\260\211@\310\311#\210A\266\202\202\234\262\266\204\266\203\266\202\202 \"\202 \312=\203\f\211:\205 \211@A:\205@A\313=\204\344\304\202\211:\203\211@A?\205\377\211\314@$\266\202\266\202\202\304\266\202\266\202\202 \315=\203E\211\211\205@\211@@\236\211\203(\211AA\211\316\240\266\210\305\211A@)@\"\210\211\211AA)\262\202\262\202 :\203\203@\211\313=\203z\317\320\316\321#\210\312@DAB\211\205u\211@\305@\"\210A\266\202\202a\262\202~\"\262\202 \322=\203\265\211\211\211\205\256\211@\211\211\203\246\211@\305\n@\"\210A\266\202\202\222\210A\266\202\202\213\262\262\202 \323=\203\277\304\202 \324=\203\211:\203\211@A\211:\203\f\211@A\211\314\304C
@$\210\211\205\211@\314\205\363CA@$\210A\266\202\202\346\262\266\203\266\202\202\"\266\202\202 \"\202 \325>\203K\211:\203D\211@A\211\305	@\"\210\314\304\n@$\266\202\266\202\202 \"\202 \326=\203`\211\314\304@\n$\262\202 \327>\203\232\211:\203\223\211@A\211:\203\211\211@\211\211	B\305\n@\"\266\202\262\202\216\"\266\202\202 \"\202 \330>\203\361\211:\203\352\211@A\211\2119\205\265\211@\236\211\203\304\331\233\211\316\240\266\202\313\305\n@\"\210\210\211\205\341\211@\305@\"\210A\266\202\202\315\262\266\202\266\202\202 \"\202 \332=\203\211\211\211\205\211@\305\304\"\210A\266\202\202\371\262\262\202 \333=\203\304\202 \"\266\202\202?9\203>@\236\211\2059\211A\211\316\240\262\262\202?\304\262\207" [x byte-compile-bound-variables #[514 "\211\211\205\211@\300@\"\210A\266\202\202\207" [cconv-analyse-form] 7 "\n\n(fn ENV BODY-FORMS)"] (let* let) nil cconv-analyse-form let* byte-compile-not-lexical-var-p cconv--analyse-use "variable" function lambda cconv--analyse-function setq t byte-compile-log-warning "Use of deprecated ((lambda ...) ...) form" :warning cond quote condition-case (catch unwind-protect) track-mouse (defconst defvar) (funcall apply) 4 interactive declare] 23 (#$ . 13021)])
(provide 'cconv)
F1l3 Manager
