WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/emacs-lisp
Viewing File: /usr/share/emacs/24.3/lisp/emacs-lisp/byte-opt.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/byte-opt.el
;;; in Emacs version 24.3
;;; 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.

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


(byte-code "\300\301!\210\300\302!\207" [require bytecomp macroexp] 2)
(defalias 'byte-compile-log-lap-1 #[385 "\300\301\302\303C\303C\304\305\306\307\310\311\"\312\"\313\314%\"\266\202#!\207" [byte-compile-log-1 apply format nil mapcar make-byte-code 257 "\211:\204\2119\203\304\305\306!\"\203\307\306!\310\311O!\207\207\300@\240\250\203+\312\313\300@\"\210\300@\314=\2039\300\240\210\202r\301\300@\n>\203HAA@\202W\300@>\203UA@\202WA\240\210\300\306\300@!\240\210\304\315\300@\"\203r\300\307\300@\310\311O!\240\210\300@\316=\203}\300\317\240\210\211A\320=\203\216\300@\321>\204\216\300@\207\322\323\300@\301@#\207" vconcat vector [byte-goto-ops byte-constref-ops string-match "^byte-" symbol-name intern 5 nil error "non-symbolic byte-op %s" TAG "^byte-." constant const 0 (unbind call const) format "(%s %s)"] 6 "\n\n(fn ARG)"] 16 "\n\n(fn FORMAT &rest ARGS)"])
(defalias 'byte-compile-log-lap '(macro . #[385 "\300\301\302BBE\207" [and (memq byte-optimize-log '(t byte)) byte-compile-log-lap-1] 7 "\n\n(fn FORMAT-STRING &rest ARGS)"]))
(put 'inline 'byte-optimizer 'byte-optimize-inline-handler)
#@65 byte-optimize-handler for the `inline' special-form.

(fn FORM)
(defalias 'byte-optimize-inline-handler #[257 "\300\301\302A\"B\207" [progn mapcar #[257 "\211\242\2119\2037\211\236A\2041\302!\2037\211	\236A\2047\211K\211\262:\203+\211@\303=\2047\304!\2047\305!\2028\207" [byte-compile-function-environment byte-compile-macro-environment fboundp macro subrp byte-compile-inline-expand] 4 "\n\n(fn SEXP)"]] 5 (#$ . 1693)])
(defalias 'byte-compile-inline-expand #[257 "\211@\211\236A\211\206\302!\205KC\211@\211\242)\303=\2035\304@!\210\211\302!\203/K\2063\236A\240\210\305@\204D\306\307\"\210\202\267@:\203\213@@\211\303=\203_\310\311@A@#\202\206\211\312=\203r$\202\206\211\313=\203\205$\202\206\262\202\267@9\203\247@\314=\204\243\315@AB!\202\267\202\267\316@!\203\266@AB\202\267\262\207" [byte-compile-function-environment object fboundp autoload autoload-do-load #[1028 "\211@=\204!\211@@\203\302\202\303=\204!\304!\210KAB\207\211@=\203/\305@D\2025\306\307@!!\211\242\305=\203K\310\211A@)AB!\202T\311\312\313\"!\210\207" [lexical-binding x closure lambda byte-compile function byte-compile-preprocess byte-compile--reify-function byte-compile-unfold-lambda byte-compile-log-warning format "Inlining closure %S failed"] 10 "\n\n(fn FORM NAME LOCALFN FN)"] byte-compile-warn "attempt to inline `%s' before it was defined" error "File `%s' didn't define `%s'" lambda closure t byte-compile-inline-expand byte-code-function-p] 12 "\n\n(fn FORM)"])
(defalias 'byte-compile-unfold-lambda #[513 "\211\204\305\262@AA@AA\306\211\211@;\203#A\203#A\262@:\2035@@\307=\2035A\262\203\305@\310=\203[\203J\311\312	\"\210A\204U\311\313	\"\210\314\262\202\276@\315=\203A\204m\311\316	\"\210AA\203y\311\317	\"\210\314\262\202\276\203\231@\205\216\320BDB\262\306\262\202\276\204\260\204\260\321\322	\"\210\306\262\323\262\202\276@@DB\262A\262A\262\2025\203\332\323=\204\325\321\324	\"\210\202\211\203\347\325\237BB\202\352\326B\203	\327>\203\314\330\211\331\332\333\334
!\334!#!\210+\211\262\266\205\207" [byte-optimize byte-optimize-log print-length print-level print-escape-newlines "anonymous lambda" nil interactive &optional error "&optional found after &rest in %s" "nothing after &optional in %s" t &rest "nothing after &rest in %s" "multiple vars after &rest in %s" list byte-compile-warn "attempt to open-code `%s' with too few arguments" too-few "attempt to open-code `%s' with too many arguments" let progn (t source) 4 byte-compile-log-1 format "  %s	==>	%s" prin1-to-string] 16 "\n\n(fn FORM &optional NAME)"])
(defalias 'byte-optimize-form-code-walker #[514 "\242\306:\204!\205\2069?\206\307=?\205\202\310=\203DAA\2035\311\312\313!\"\210A@\205?\205\202\242\314=\203a\315!\211=\203X\202\\\316\"\262\202\317>\203|\320\321A@\"\322AA\"BB\202\323=\203\231\320\324\325\326\327\330	!\331\"\332\333%A\"B\202\334=\203\270AA\203\257\335\322A\"!\202\336A@\"\202\337=\203\340AA\203\327\337\336A@\"\322AA\307\"BB\202\336A@\"\202\340=\203\340\336A@\307\"\336\3418\"\322AAA\307\"BBB\202\342>\203\322A\"B\202\343=\203-\336A@\306\"\322AA\"BB\202\344=\203[G\345W\203>\311\346!\210\336A@\306\"\336\3418\"\322\345\233\"BBB\202\347>\203\276\203\263\350A!\211\203\211\336@\"\240\204\211A\262\202iA\203\243\211\204\243	\203\243\n\351>\203\243\307\352\211\353\354\355\313!\"!\210+\211\205\256\320\336\"\237B\262\202\320\336A\"B\202\356=\203\320\311\357\313!\"\210\306\202\360>\203\332\202\361=\203\357\336A@\"AABB\202\362=\203\336A@\306\"AABB\202\363=\203\337\306\320\336A\"BB\202\364=\203!\202\365!\2032\320\336A\"B\2029\204B\311\366\313!\"\210\202\203\364\367N\211\262\203\364\204\314\211\370=\204\314\371=\203\301\211@A@)\242\337=\203\301\211@A@)\211@A@)\341\211@A@)89\205\274\345\211@A@)\233?\205\274\211\242\372=\205\274\211@\211A@)=\205\274\3418\242\373=\205\274\3418\211@A@)=\266\202\204\314\311\374\313!\"\210\202\364	\203\346\n\351>\203\346\307\352\211\353\354\375\313!\"!\210+\336\334\376A\377\"B\307\"\202\320\336A\"\201AN\203\201B!\203\310\201C\320\201D\"\"D\202B\262\207" [byte-compile-delete-errors byte-optimize byte-optimize-log print-length print-level print-escape-newlines nil t quote byte-compile-warn "malformed quote form: `%s'" prin1-to-string lambda byte-compile-unfold-lambda byte-optimize-form-code-walker (let let*) mapcar #[257 "\2119\203\207\211AA\203\300\301\302!\"\210\211@\303A@\304\"D\207" [byte-compile-warn "malformed let binding: `%s'" prin1-to-string byte-optimize-form nil] 5 "\n\n(fn BINDING)"] byte-optimize-body cond make-byte-code 257 "\211:\203\301@\302\"\303A\300\"B\207\304\305\306!\"\210\207" vconcat vector [byte-optimize-form nil byte-optimize-body byte-compile-warn "malformed cond form: `%s'" prin1-to-string] 5 "\n\n(fn CLAUSE)" progn macroexp-progn byte-optimize-form prog1 prog2 2 (save-excursion save-restriction save-current-buffer) with-output-to-temp-buffer if 3 "too few arguments for `if'" (and or) reverse (t source) 4 byte-compile-log-1 format "  all subforms of %s called for effect; deleted" interactive "misplaced interactive spec: `%s'" #'condition-case unwind-protect catch ignore internal-make-closure byte-code-function-p "`%s' is a malformed function" side-effect-free error-free car setq cdr "value returned from %s is unused" "  %s called for effect; deleted" append (nil) x pure byte-optimize-all-constp apply eval] 13 "\n\n(fn FORM FOR-EFFECT)"])
#@70 Non-nil if all elements of LIST satisfy `macroexp-const-p

(fn LIST)
(defalias 'byte-optimize-all-constp #[257 "\300\203\211\203\301@!\204\302\262A\262\202\211\207" [t macroexp-const-p nil] 4 (#$ . 7497)])
#@73 The source-level pass of the optimizer.

(fn FORM &optional FOR-EFFECT)
(defalias 'byte-optimize-form #[513 "\305\"\262\306\211:\203Q@9\203Q\307@\310\"\211\262\203Q!\211\262=\204Q\203G	\311>\203G\312\313\211\314\315\316\317!\317!#!\210+\320\"\262\211\202R\207" [byte-optimize byte-optimize-log print-length print-level print-escape-newlines byte-optimize-form-code-walker nil function-get byte-optimizer (t source) t 4 byte-compile-log-1 format "  %s	==>	%s" prin1-to-string byte-optimize-form] 10 (#$ . 7722)])
(defalias 'byte-optimize-body #[514 "\300\211\211\2030\206A\262@\205\301@\"\262\211\204$\204)\211B\262A\262\202\237\207" [nil byte-optimize-form] 9 "\n\n(fn FORMS ALL-FOR-EFFECT)"])
#@72 Return non-nil if FORM always evaluates to a non-nil value.

(fn FORM)
(defalias 'byte-compile-trueconstp #[257 "\211\242\301=\203\302A!@\262\202\211:\203%\211@\211\303=\205$\211A@)\207\2119?\2064\211\304=\2064\305!\207" [x progn last quote t keywordp] 5 (#$ . 8475)])
(put 'byte-compile-trueconstp 'byte-optimizer 'byte-compile-inline-expand)
#@68 Return non-nil if FORM always evaluates to a nil value.

(fn FORM)
(defalias 'byte-compile-nilconstp #[257 "\211\242\301=\203\302A!@\262\202\211:\203&\211@\211\303=\205%\211A@)?\207\2119\204-\304\207\211?\207" [x progn last quote nil] 5 (#$ . 8838)])
(put 'byte-compile-nilconstp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'byte-optimize-associative-math #[257 "\300\211A\211\203$\211@\247\203\211@B\262\202\211@B\262\211A\262\202A\203O\203G@\301@\"A\203A@\237B\202C@E\202P\301@\"\202P\207" [nil apply] 8 "\n\n(fn FORM)"])
(defalias 'byte-optimize-nonassociative-math #[257 "\211A@\247\203\211AA@\247\204\207\211A@AA\211@\247\203+@@\"\262\211A\262\202\211\2038@BB\2029\207" [] 6 "\n\n(fn FORM)"])
(defalias 'byte-optimize-approx-equal #[514 "\300Z!\301_\300\\!X\207" [abs 100] 6 "\n\n(fn X Y)"])
(defalias 'byte-optimize-delay-constants-math #[771 "S\233\300>A\211\262A\203q@\250\203\301\302!\262S\233\262A\211\262\203@@\250\203%@B\262\301\240\210\202%\203^\303\304\305\306\"\"\306\304\"!\"\204^\262\202m\307\301\"\304\237\"C\244\262\210\202\207" [(+ *) nil copy-sequence byte-optimize-approx-equal apply mapcar float delq] 13 "\n\n(fn FORM START FUN)"])
(defalias 'byte-compile-butlast #[257 "\300!A\237\207" [reverse] 3 "\n\n(fn FORM)"])
(put 'byte-compile-butlast 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'byte-optimize-plus #[257 "\300>\203\301\300\302!\"\262\303\304\305A\">\203_\211G\306U\203_\211A@\307>\204/\3108\311>\203_\303\211A@\312>\203FA@\262\3108\262\202P\3108\262A@\262\313=\203Z\314\202[\315D\266\203\316!\207" [0 delq copy-sequence nil mapcar numberp 3 (1 -1) 2 (1 -1) (1 -1) 1 1+ 1- byte-optimize-predicate] 5 "\n\n(fn FORM)"])
(defalias 'byte-optimize-minus #[257 "\301\233\2037\302\211AA)>\2037\211@\211A@)D\303\302\304\211AA)!\"\244\262\211\211AA)\2047\211\302C\244\262\305\306\307A\">\203{\211AA\310\232\203S\311A@D\262\202{\211AA\312\232\203e\313A@D\262\202{\211A@\302=\203{\211G\301U\203{\314\3158D\262\316!\207" [x 3 0 delq copy-sequence nil mapcar numberp (1) 1- (-1) 1+ - 2 byte-optimize-predicate] 7 "\n\n(fn FORM)"])
(defalias 'byte-optimize-multiply #[257 "\300\301\302#\262\303\304\305A\">\203H\306A!@\211\301=\203)\306!A\237\262\262\202G\211\307=\203G\310\311\233\203A\306!A\237\262\202DA@D\262\210\312!\207" [byte-optimize-delay-constants-math 1 * nil mapcar numberp reverse -1 - 3 byte-optimize-predicate] 6 "\n\n(fn FORM)"])
(defalias 'byte-optimize-divide #[257 "\301\302\303#\262\304AA!@\211\203i\211\305=\204i\306\307\211AA)\"\204i\211\247\203i\310\311\312A\">\203i\211\313=\203K\314\233\203K\304!A\237\262\262\202i\211\315=\203i\316\314\233\203c\304!A\237\262\202fA@D\262\210\317!\207" [x byte-optimize-delay-constants-math 2 * reverse 0 memql 0.0 nil mapcar numberp 1 3 -1 - byte-optimize-predicate] 7 "\n\n(fn FORM)"])
(defalias 'byte-optimize-logmumble #[257 "\300\301@#\262\302\303>\203)@\304=\203\305AB\202#\306\303\307!\"\211\262\202>\242\310=\203=\311>\203=\305AB\202>!\207" [byte-optimize-delay-constants-math 1 byte-optimize-predicate 0 logand progn delq copy-sequence logior -1] 6 "\n\n(fn FORM)"])
(defalias 'byte-optimize-binary-predicate #[257 "\300A@!\203?\300\3018!\2035\302\303\304\305\306\307\310!\311\"\312\313%D\314\303\304\315\316\307\310	!\317\"\301\320%\302EDC\217\207\211@\3018A@E\207\207" [macroexp-const-p 2 #1=#:err funcall make-byte-code 0 "\301\302\300!D\207" vconcat vector [quote eval] 3 "\n\n(fn)" error 257 "\300\207" [] "\n\n(fn IGNORED)"] 11 "\n\n(fn FORM)"])
(defalias 'byte-optimize-predicate #[257 "\300A\211\203\203\301@!\262\211A\262\202\203C\302\303\304\305\306\307\310	!\311\"\312\313%D\314\303\304\315\316\307\310!\317\"\320\321%\302EDC\217\202D\207" [t macroexp-const-p #1=#:err funcall make-byte-code 0 "\301\302\300!D\207" vconcat vector [quote eval] 3 "\n\n(fn)" error 257 "\300\207" [] 2 "\n\n(fn IGNORED)"] 13 "\n\n(fn FORM)"])
(defalias 'byte-optimize-identity #[257 "\211A\203\211AA\204\211A@\207\300\301AGAG\302U\203 \303\202!\304#\210\207" [byte-compile-warn "identity called with %d arg%s, but requires 1" 1 "" "s"] 6 "\n\n(fn FORM)"])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\316\302\315#\210\300\317\302\320#\210\300\321\302\320#\210\300\322\302\320#\210\300\323\302\320#\210\300\324\302\320#\210\300\325\302\326#\210\300\327\302\326#\210\300\330\302\326#\210\300\331\302\326#\210\300\332\302\326#\210\300\333\302\326#\210\300\334\302\326#\210\300\335\302\326#\210\300\336\302\326#\210\300\337\302\326#\210\300\340\302\326#\210\300\341\302\326#\210\300\342\302\326#\210\300\343\302\326#\210\300\344\302\326#\210\300\345\302\346#\210\300\347\302\346#\210\300\350\302\346#\210\300\351\302\326#\210\300\352\302\326#\210\300\353\302\326#\210\300\354\302\326#\210\300\355\302\326#\210\300\356\302\357#\207" [put identity byte-optimizer byte-optimize-identity + byte-optimize-plus * byte-optimize-multiply - byte-optimize-minus / byte-optimize-divide max byte-optimize-associative-math min = byte-optimize-binary-predicate eq equal string= string-equal < byte-optimize-predicate > <= >= 1+ 1- not null memq consp listp symbolp stringp string< string-lessp logand byte-optimize-logmumble logior logxor lognot car cdr car-safe cdr-safe quote byte-optimize-quote] 4)
(defalias 'byte-optimize-quote #[257 "\211A@:\204I\211A@9\203J\211\301\302>\206D\303!\206D\211\205D>\206D\304!\205D\305\306\307\310\311\312\313!\314\"\315\316%D\317\306\320\305EDC\217\266\202\204J\207\211A@\207" [byte-compile-const-variables nil (nil t) keywordp boundp #1=#:err funcall make-byte-code 0 "\300\211JL\210\301\207" vconcat vector [nil] 2 "\n\n(fn)" setting-constant #[257 "\300\207" [t] 2 "\n\n(fn IGNORED)"]] 11 "\n\n(fn FORM)"])
(defalias 'byte-optimize-zerop #[257 "\211A@\247\203\301!\207\203\302A@\303E\207\207" [byte-compile-delete-errors eval = 0] 4 "\n\n(fn FORM)"])
(put 'zerop 'byte-optimizer 'byte-optimize-zerop)
(defalias 'byte-optimize-and #[257 "\211A?\2066\300>\203)\301\302\303!\211\262A@\203!A\262\202\300\241\210!\300E\207\211AA\2043\211A@\207\304!\207" [nil progn byte-optimize-and copy-sequence byte-optimize-predicate] 6 "\n\n(fn FORM)"])
(defalias 'byte-optimize-or #[257 "\301>\203\302\301\303!\"\262\211\211A\211\262A\203g\211@\211\242\304=\203+\305A!@\262\202\211:\203C\211@\211\306=\205>\211A@)\266\202\202T\2119?\206R\211\307=\206R\310!\262\203\303!\262\211@>\301\241\262\202AA\203s\311!\202vA@\207" [x nil delq copy-sequence progn last quote t keywordp byte-optimize-predicate] 6 "\n\n(fn FORM)"])
(defalias 'byte-optimize-cond #[257 "\301\301A\236\211\262\203\302\303!\"\262\202\301A>\203%\302\301\303!\"\262\262\211A\211\262\203\347\211@\242\211\242\304=\203D\305A!@\262\2023\211:\203\\\211@\211\306=\205W\211A@)\266\202\202m\2119?\206k\211\307=\206k\310!\262\203\227\211A=\203\200\304@B\262\202\221\211A\203\221\303!\262\211@>\301\241\210\301\262\202(\211@:\203(\211\211@@)\211\242\304=\203\264\305A!@\262\202\243\211:\203\315\211@\211\306=\205\310\211A@)?\266\202\202\334\2119\204\330\301\262\202\334\211?\262\203(\211@\301\241\210\202(\210\211\242\311=\203\211A\211@:\203
\211@A\204
\312@@\313@AAB!E\202\207\207" [x nil delq copy-sequence progn last quote t keywordp cond or byte-optimize-cond] 7 "\n\n(fn FORM)"])
(defalias 'byte-optimize-if #[257 "\211A@\211\242\301=\203?\302!A\204?\211\211AA)\204+\303\304\211A@)AABB!\202*\305!\303\304\302!@AABB!C\244\202*\211\211\242\301=\203Q\302A!@\262\202@\211:\203i\211@\211\306=\205d\211A@)\266\202\202z\2119?\206x\211\307=\206x\310!\262\203\206\301\3118E\202*\211\211\242\301=\203\230\302A!@\262\202\207\211:\203\261\211@\211\306=\205\254\211A@)?\266\202\202\300\2119\204\274\312\262\202\300\211?\262\203\315\301\313\233BB\202*\3118\203\350\313\233\314\232\203\344\304\3118E\202*\202*\3138\204\364\315\233\203&\304:\203@\316>\203G\311U\203A@\202\317D\315\233\203\301\313\233B\202\"\3138E\202*\301\312E\207" [x progn last byte-optimize-if if butlast quote t keywordp 2 nil 3 (nil) 4 (not null) not] 8 "\n\n(fn FORM)"])
(defalias 'byte-optimize-while #[257 "\211G\300W\203\301\302!\210\211A@\205\211\207" [2 byte-compile-warn "too few arguments for `while'"] 3 "\n\n(fn FORM)"])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\316\302\315#\210\300\317\302\315#\207" [put and byte-optimizer byte-optimize-and or byte-optimize-or cond byte-optimize-cond if byte-optimize-if while byte-optimize-while /= byte-compile-negation-optimizer atom nlistp] 4)
(defalias 'byte-optimize-funcall #[257 "\211A@\211\242\300>\203\211A@AAB\202\207" ['function] 4 "\n\n(fn FORM)"])
(defalias 'byte-optimize-apply #[257 "\211A@GS8\211\203\211\242\300=\203=\211A@<\2032\301AA!A\237\302D\244\303\304A@\"\244\262\202:\305\306\307!\"\210\310\206>\207" [quote reverse funcall mapcar #[257 "\300D\207" [quote] 3 "\n\n(fn X)"] byte-compile-warn "last arg to apply can't be a literal atom: `%s'" prin1-to-string nil] 8 "\n\n(fn FORM)"])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\307#\207" [put funcall byte-optimizer byte-optimize-funcall apply byte-optimize-apply let byte-optimize-letX let*] 4)
(defalias 'byte-optimize-letX #[257 "\211A@\204\f\300AAB\207\3018\204\302\233\203\207\211@\303=\203/\304\305\306\307\306\310A@\"\"\311#\207\312A@!\313\312A!@A@\314F\207" [progn 2 3 let append (progn) mapcar car-safe cdr-safe (nil) reverse let* nil] 8 "\n\n(fn FORM)"])
(put 'nth 'byte-optimizer 'byte-optimize-nth)
(defalias 'byte-optimize-nth #[257 "\300!\301U\203*\211A@\302>\203&\303\304A@!\203\3058\202$\306\3058DD\207\307!\207\207" [safe-length 3 (0 1) car zerop 2 cdr byte-optimize-predicate] 5 "\n\n(fn FORM)"])
(put 'nthcdr 'byte-optimizer 'byte-optimize-nthcdr)
(defalias 'byte-optimize-nthcdr #[257 "\300!\301U\2030\211A@\302>\203,\211A@\3038\262\211S\211\262\304Y\203*\305D\262\202\207\306!\207\207" [safe-length 3 (0 1 2) 2 0 cdr byte-optimize-predicate] 4 "\n\n(fn FORM)"])
(put 'set 'byte-optimizer 'byte-optimize-set)
(defalias 'byte-optimize-set #[257 "\211\243\242\211\242\301=\203\"\211A:\203\"\302\211A@)\211AA)BB\202V\211\242\303=\203U\211A\242\211\262\242\301=\203U\211A:\203U\304\211A@)\302\211A@)\211AA)BBE\202V\207" [x quote setq make-local-variable progn] 8 "\n\n(fn FORM)"])
(byte-code "\300\301\203\302@\303\304#\210A\262\202\211\203&\302@\303\305#\210\211A\262\202\266\306\211\203;\302@\307\304#\210\211A\262\202)\207" [(% * + - / /= 1+ 1- < <= = > >= abs acos append aref ash asin atan assoc assq boundp buffer-file-name buffer-local-variables buffer-modified-p buffer-substring byte-code-function-p capitalize car-less-than-car car cdr ceiling char-after char-before char-equal char-to-string char-width compare-strings concat coordinates-in-window-p copy-alist copy-sequence copy-marker cos count-lines decode-char decode-time default-boundp default-value documentation downcase elt encode-char exp expt encode-time error-message-string fboundp fceiling featurep ffloor file-directory-p file-exists-p file-locked-p file-name-absolute-p file-newer-than-file-p file-readable-p file-symlink-p file-writable-p float float-time floor format format-time-string frame-visible-p fround ftruncate get gethash get-buffer get-buffer-window getenv get-file-buffer hash-table-count int-to-string intern-soft keymap-parent length local-variable-if-set-p local-variable-p log log10 logand logb logior lognot logxor lsh langinfo make-list make-string make-symbol marker-buffer max member memq min mod multibyte-char-to-unibyte next-window nth nthcdr number-to-string parse-colon-path plist-get plist-member prefix-numeric-value previous-window prin1-to-string propertize degrees-to-radians radians-to-degrees rassq rassoc read-from-string regexp-quote region-beginning region-end reverse round sin sqrt string string< string= string-equal string-lessp string-to-char string-to-int string-to-number substring sxhash symbol-function symbol-name symbol-plist symbol-value string-make-unibyte string-make-multibyte string-as-multibyte string-as-unibyte string-to-multibyte tan truncate unibyte-char-to-multibyte upcase user-full-name user-login-name user-original-login-name custom-variable-p vconcat window-buffer window-dedicated-p window-edges window-height window-hscroll window-minibuffer-p window-width zerop) (arrayp atom bobp bolp bool-vector-p buffer-end buffer-list buffer-size buffer-string bufferp car-safe case-table-p cdr-safe char-or-string-p characterp charsetp commandp cons consp current-buffer current-global-map current-indentation current-local-map current-minor-mode-maps current-time current-time-string current-time-zone eobp eolp eq equal eventp floatp following-char framep get-largest-window get-lru-window hash-table-p identity ignore integerp integer-or-marker-p interactive-p invocation-directory invocation-name keymapp line-beginning-position line-end-position list listp make-marker mark mark-marker markerp max-char memory-limit minibuffer-window mouse-movement-p natnump nlistp not null number-or-marker-p numberp one-window-p overlayp point point-marker point-min point-max preceding-char primary-charset processp recent-keys recursion-depth safe-length selected-frame selected-window sequencep standard-case-table standard-syntax-table stringp subrp symbolp syntax-table syntax-table-p this-command-keys this-command-keys-vector this-single-command-keys this-single-command-raw-keys user-real-login-name user-real-uid user-uid vector vectorp visible-frame-list wholenump window-configuration-p window-live-p windowp) put side-effect-free t error-free (concat symbol-name regexp-opt regexp-quote string-to-syntax) pure] 6)
(defconst byte-constref-ops '(byte-constant byte-constant2 byte-varref byte-varset byte-varbind))
#@30 Don't call this!

(fn BYTES)
(defalias 'disassemble-offset #[257 "	W\2039\306\307\"\306\310\"\211\311=\203\nT\nH\2028\211\307=\2037\nT\nH\nT\312\nH\313\"\\\2028\211\207Y\203EZ\207\fY\203Q
X\204X\fU\203i\nT\211\nH\nT\312\nH\313\"\\\207
Y\205}X\205}\nT\211\nH\207" [bytedecomp-op byte-nth bytedecomp-ptr byte-constant byte-constant2 byte-goto-if-not-nil-else-pop logand 7 248 6 lsh 8 byte-stack-set2 byte-listN byte-discardN] 6 (#$ . 23188)])
#@73 Turn BYTECODE into lapcode, referring to CONSTVEC.

(fn BYTES CONSTVEC)
(defalias 'byte-decompile-bytecode #[514 "\303\211\304\305\"+\207" [byte-compile-tag-number byte-compile-variables byte-compile-constants nil 0 byte-decompile-bytecode-1] 5 (#$ . 23676)])
(defalias 'byte-decompile-bytecode-1 #[770 "G\306\307\211\211\211\211\211\307\262\307\262	U\204\n\204%	B\262\n	H	\262\310!\262\nH\211\204@\311\312\313C\"\210\211>\203`\236\206Z\314 B\211B\262\211\262A\262\202\366\315=\203k\316\202q\f>\203\330\nGY\203\317D\202\203	H\262\316=\203\301\211;\203\261\307
\211\203\252\211@\320@\"\203\243\211\262A\266\202\202\222\210\211\262\202\264\211
\236\206\323\211C
B\211@\202\323\211\236\206\323\211C\211B\211\262\262\202\366\321=\203\343\322\202\366\323=\203\366\324Y\203\366\325\324Z\262\206\375\306BBB\262	T\211\202\211\203=\211@\247\2046\211@@\236\211\262\2036\211\307ABAB\241\210\326\"\262\211A\262\211A\262\202\210\203H\327\330\"\210\331\332\237\"*\207" [bytedecomp-op bytedecomp-ptr byte-code-vector byte-goto-ops byte-constref-ops byte-compile-constants 0 nil disassemble-offset signal cl-assertion-failed opcode byte-compile-make-tag byte-constant2 byte-constant out-of-range equal-including-properties byte-stack-set2 byte-stack-set byte-discardN 128 byte-discardN-preserve-tos delq error "optimizer error: missed tags %s" mapcar #[257 "\211\247\203\207\211A\207" [] 2 "\n\n(fn ELT)"] byte-compile-variables] 18 "\n\n(fn BYTES CONSTVEC &optional MAKE-SPLICEABLE)"])
(defconst byte-tagref-ops (cons 'TAG byte-goto-ops))
(defconst byte-conditional-ops '(byte-goto-if-nil byte-goto-if-not-nil byte-goto-if-nil-else-pop byte-goto-if-not-nil-else-pop))
#@46 Byte-codes that can be moved past an unbind.
(defconst byte-after-unbind-ops '(byte-constant byte-dup byte-symbolp byte-consp byte-stringp byte-listp byte-numberp byte-integerp byte-eq byte-not byte-cons byte-list1 byte-list2 byte-interactive-p) (#$ . 25461))
(defconst byte-compile-side-effect-and-error-free-ops '(byte-constant byte-dup byte-symbolp byte-consp byte-stringp byte-listp byte-integerp byte-numberp byte-eq byte-equal byte-not byte-car-safe byte-cdr-safe byte-cons byte-list1 byte-list2 byte-point byte-point-max byte-point-min byte-following-char byte-preceding-char byte-current-column byte-eolp byte-eobp byte-bolp byte-bobp byte-current-buffer byte-stack-ref))
(defconst byte-compile-side-effect-free-ops (nconc '(byte-varref byte-nth byte-memq byte-car byte-cdr byte-length byte-aref byte-symbol-value byte-get byte-concat2 byte-concat3 byte-sub1 byte-add1 byte-eqlsign byte-gtr byte-lss byte-leq byte-geq byte-diff byte-negate byte-plus byte-max byte-min byte-mult byte-char-after byte-char-syntax byte-buffer-substring byte-string= byte-string< byte-nthcdr byte-elt byte-member byte-assq byte-quo byte-rem) byte-compile-side-effect-and-error-free-ops))
#@173 Simple peephole optimizer.  LAP is both modified and returned.
If FOR-EFFECT is non-nil, the return value is assumed to be of no importance.

(fn LAP &optional FOR-EFFECT)
(defalias 'byte-optimize-lapcode #[513 "\306\211\211\307\310\306\211\211\211\203	\202\n\203`	\307=\204(\311>\203(\312\313!\210\262\306\262\203@\262\nA@\262	\3148\262@\315=\203\304	@>\203\304\316\262\f\n@JH\262A\262\317U\203\201\311>\203r\312\320\"\210\321\n\321\"\"\262\f\202Y	\310U\203\236\311>\203\223\312\322\"\210\321\n
\"\262\f\202Y	\323U\203\275\311>\203\260\312\324\"\210	\315\240\210	\310\241\210\202Y	\325\326!\210\202Y		@
>\203C	A	=\203C	@\327=\203\353\321\n
\"\262\f\330\262\202\f	@@>\203	\315\211\262\240\210	\310\241\210\202\f\325\331\314\f8\"\210\332>\203=A\203=\333>\203=\316\334\211BCD\335\336\337A@\fA@\340	!A@%!\210+\316\262\202Y	@\341=\203)AA=\203)@\342>\203)A@E>\211\262\203r	@\343=\203Y	\316\262	@\344>\203\203\300	A@\306\345>\206\273\346!\206\273\211\205\273F>\206\273\347!\205\273\350\351\352\310\353\354\355!\356\"\314\357%D\360\351\361\350EDC\217\266\202\203\306	A\202\326\316G\236\206\326\316CGB\211G@\262\311>\203\363\312\362@B&\210\n@\240\210\241\210\202Y	\311>\203\312\363\n\n\f$\210	@\240\210\364\240\210\310\241\210\317\262\202Y		@\364=\203u@\315=\203u@\365>\203u\311>\203N\312\366\n\211#\210\316\262A\262@\367=\203f\211AS\241\266\321\n\321\n\"\"\262\f\202Y		@\370=\203\277@\371>\203\277\311>\203\241\312\372\n\211@\373=\203\232\374\202\233\373\fAB#\210\211@\373=\203\256\374\202\257\373\240\210\321\n
\"\262\f\316\262\202Y		@\375>\203@\327=\203	A=\203	@\373=\203\344\374\202\345\373\311>\203\375\312\376\f\f\fAB&\210\321\"\262
	\240\210\316\262\210\202Y		@\343=\203\224@H>\203\224	A:\203\224@\377>\2038	A@\202=	A@?\203c\311>\203P\312\201M#\210A\262\321\n\321\"\"\262\f\202\216\311>\203x\312\201N\327
AB$\210@@>\203\211\321\n
\"\262\f\327\240\210\316\262\202Y		@\201O>\203.A\262\310\262@@\364=\203\270T\262A\262\202\245	@\201P=\203\316\201Q\317\fA#\202\321	A@A=\203.	@@@=\203.\201R>\203\201SA\262=\204A\262\211\201TP\262\202\361\311>\203\312\201U\f\211&\210\210\316\262@\364\240\210@\310\241\210\262\202Y		@\201V=\203\234@\201V=\203\234\201W>\203oA\203o\333>\203o\316\334\211BCD\335\336\201XA@
A@#!\210+\262\201Y\n\"\211\262\203\216	\241\210>A\262\202s\321\n
\"\262\f\316\262\202Y		@\201V=\203\350\201Y\n
\"\204\350\201Z>\203\332A\203\332\333>\203\332\316\334\211BCD\335\336\201[\fA@\"!\210+\321\n
\"\262\f\316\262\202Y		@\201\\>\203\260@\201]>\204\260\262\310\201^>\306\211A\211\262	\2034@@\201V=\2044\203@B\262\201_P\262T\262\202\203\243@@\201V=\203P\336\201`	@A@\"\202Y@\206Y\201S\201aW\203}\201b\312\201c\201dQ\237E\244$\210\202\242\311>\203\242\312\201e\211\317U\203\227\201S\202\232\201f&\210\210\241\266\316\262\202Y	@\201g=\203\347	@I>\203\347\311>\203\326\312\201h\211%\210	\240\210A\n\240\210\316\262\202Y	@\201g=\203~	@\201i>\203~\310	AW\203~\201j	\211AS\241!\203\321	\"\210	@\201k=\203*\315\310B\240\210\2022\321\n
\"\262\f\311>\203x\312\201h@\fATB
@\201k=\203V@\202ZA@
A\310U\204s@\201k=\203s	A@\202v\201S%\210\316\262\202Y		@
>\203\335	A\f>A@\211\262@\201l>\203\335\n=\204Y		@\327=\204\257@\327=\203Y	\311>\203\301\312\201m@\211$\210@\201n=\203\321	\201n\240\210	A\241\210\316\262\202Y		@\201o>\203s	A\f>A\211\262@@\201p>\203s	@=\204s@\262	@\201q\236\262@>\2037	@\240\210	A\241\210\311>\203m\312\201r@
$\210\202mA@@\201V=\204L\201s AB\241\210\311>\203_\312\201t@A@$\210	A@\240\210	A@\241\210\316\262\202Y		@\343=\2030@\327=\2030A\f>A\211\262@@\201u>\2030@=\2040@\262	A:\203\351@\nA@\204\270\201v\202\273\201w>\203\351\311>\203\322\312\201x
%\210@\240\210A\241\210\306B\262\316\262\202Y		A:\204\367@\315=\203Y	\311>\203\312\201y#\210A@@\201V=\204\201s AB\241\210A@\241\210\321\n
\"\262\f\316\262\202Y	@\201z=\203\275@\327=\203\275A>\204\275A\f>A\211\262@@\341=\203\275@A	A=\203\275A@E>\204\275\201s \311>\203\236\312\201{\nAA@@

\211AA@@A@\364\327\fB&\210\364\310BAB\241\210	\241AB\241\266\317\262\316\262\202Y		@\327=\203Y	@\201V=\203Y	\nA
>A\211\262@A=\203Y	@@\201|>\203Y	\201s \311>\203	\312\201}\f\fA@AA@	@\n@@\201~\236ABA@&\210\241AB\241\210@@\201=\203H	\343\306G\236\206A	\306CGB\211G@BAB\241\210\n@@\201\200>A@\240\266\316\262A\262\202/\306\211GJ\262\311>\203v	\312\201\201!\210\203#\f@\262\nA@\262		@K>\203\273		@\201\202>\203\252		AG>\204\273		AGBG\202\273		AJ>\204\273		AJBJ	@\343=\203\n\3148@\343=\203\n	A\3148A=\203\n@\201\203>\203\n\311>\203\370	\312\201\204
\211&\210AA	@\nAB\240\210A\364\310B\240\210\317\262\202\f	@\201\205>\203d\n\262\306\262A\211\262@@\364=\204!\n	A@A=\203M\n	@@@=\203M\n\364\310B\240\210\316\262\202!\n\203\f\311>\203\f\312\201\206\211\211$\210\202\f	@\201g=\203\250\n@\201g=\203\250\n\311>\203\223\n\312\201N\201gAA\\B$\210\321\n
\"\262\f\211AA\\\241\210\202\f	@\367=\203*@\201\207>\203*A\262	AS\262\310\262@@\201\210>\203\353\n@@\315=\203\336\n\317\202\341\n@A\\\262A\262\202\307\nY\203*\321\n
\"\262\fU\203\201\211\202\n\201\212\240\210T\241\210A\241\210\311>\203\f\312\201\213#\210\202\f	@\201\214>\203\242@\201\215>\203\242\321\n
\"\262\f\311>\203u\312\201\216
@\315=\203`\317\202c
A
@\315=\203o\317\202r
A\\$\210\n@\315=\203\203\317\202\206\nA\n@\315=\203\222\317\202\225\nA\\\241\210\201\212\240\210\202\f	@\201\211=\203\337@\201\211=\203\337\321\n
\"\262\f\nA\nA\\\241\210\311>\203\f\312\201N@$\210\202\f@\201n=\203\f	@\201\217>\204\f	@\367=\203\f	A\317U\203\f\321\n
\"\262\f\311>\203\f\312\201N\211$\210A\262\202v	L\\L\266\n\207" [byte-compile-delete-errors byte-compile-side-effect-free-ops byte-compile-side-effect-and-error-free-ops byte-optimize-log byte-stack+-info byte-goto-ops nil first-time 0 (t byte) byte-compile-log-lap-1 "  ---- next pass" 2 byte-discard t 1 "  %s discard	-->	<deleted>" delq "  %s discard	-->	<deleted> discard" -1 "  %s discard	-->	discard discard" error "Optimizer error: too much on the stack" byte-goto "<deleted>" "Depth conflict at tag %d" (t byte) (t source) 4 byte-compile-log-1 format "  (goto %s) %s:	-->	%s %s:" prin1-to-string byte-varref (byte-varset byte-varbind) byte-constant (byte-constant byte-dup) (nil t) keywordp boundp #1=#:err funcall make-byte-code "\300\211JL\210\301\207" vconcat vector [nil] "\n\n(fn)" setting-constant #[257 "\300\207" [t] 2 "\n\n(fn IGNORED)"] "  %s %s %s	-->	%s %s %s" "  %s %s	-->	dup %s" byte-dup (byte-varset byte-varbind byte-stack-set) "  dup %s discard	-->	%s" byte-stack-set byte-not (byte-goto-if-nil byte-goto-if-not-nil) "  not %s	-->	%s" byte-goto-if-nil byte-goto-if-not-nil (byte-goto-if-nil byte-goto-if-not-nil) "  %s %s %s:	-->	%s %s:" (byte-goto-if-nil byte-goto-if-nil-else-pop) byte-goto-always-pop-ops byte-optimize print-length print-level print-escape-newlines byte-boolean-vars byte-compile-const-variables byte-compile-constants byte-conditional-ops byte-after-unbind-ops byte-compile-variables byte-constref-ops byte-compile-maxdepth "  %s %s	-->	<deleted>" "  %s %s	-->	%s" (byte-varref byte-stack-ref) byte-stack-ref + (t byte) "" " dup" "  %s%s %s	-->	%s%s dup" TAG (t byte) "  adjacent tags %d and %d merged" rassq (t byte) "  unused tag %d removed" (byte-goto byte-return) (TAG nil) (t lap) " %s" "%d:" 6 apply "  %s" " %s	-->	%s <deleted> %s" "  %s <%d unreachable op%s> %s	-->	%s <deleted> %s" "s" byte-unbind "  %s %s	-->	%s %s" (byte-varbind byte-save-excursion byte-save-restriction) zerop byte-varbind (byte-goto byte-return) "  %s [%s]	-->	%s" byte-return (byte-goto-if-nil-else-pop byte-goto-if-not-nil-else-pop) (byte-discard . #2=(byte-goto-if-nil byte-goto-if-not-nil byte-goto-if-nil-else-pop byte-goto-if-not-nil-else-pop)) ((byte-goto-if-nil-else-pop byte-goto-if-nil) (byte-goto-if-not-nil-else-pop byte-goto-if-not-nil)) "  %s-else-pop [%s]	-->	%s" byte-compile-make-tag "  %s [%s]	-->	%s <skip>" (byte-discard . #2#) (byte-goto-if-nil byte-goto-if-nil-else-pop) (byte-goto-if-not-nil byte-goto-if-not-nil-else-pop) "  %s goto [%s]	-->	%s %s" "  %s goto [%s]	-->	<deleted> goto <skip>" byte-varset "  %s: %s ... %s %s	-->	%s: %s %s: ... %s %s %s" (byte-goto byte-goto-if-nil byte-goto-if-not-nil byte-goto-if-nil-else-pop) "%s %s: ... %s: %s	-->	%s ... %s:" ((byte-goto-if-nil . byte-goto-if-not-nil) (byte-goto-if-not-nil . byte-goto-if-nil) (byte-goto-if-nil-else-pop . byte-goto-if-not-nil-else-pop) (byte-goto-if-not-nil-else-pop . byte-goto-if-nil-else-pop)) byte-goto-if-nil-else-pop (byte-goto-if-nil-else-pop byte-goto-if-not-nil byte-goto-if-nil byte-goto-if-not-nil byte-goto byte-goto) "  ---- final pass" (byte-constant byte-constant2) (byte-varbind byte-varset) "  %s %s %s	-->	%s dup %s" (byte-constant byte-varref) "  %s [dup/%s]...	-->	%s dup..." (byte-discard byte-discardN) (byte-discard byte-discardN) byte-discardN-preserve-tos byte-discardN "  %s [discard/discardN]...	-->	%s" (byte-discard byte-discardN byte-discardN-preserve-tos) (byte-discard byte-discardN) "  %s %s	-->	(discardN %s)" (byte-discardN-preserve-tos byte-dup)] 27 (#$ . 26643)])
(provide 'byte-opt)
F1l3 Manager
