Gecko [ 122.154.134.11 ]

Name	Size	Permission
advice.elc	60.71 KB	-rw-r--r--
assoc.elc	4.37 KB	-rw-r--r--
authors.elc	27.41 KB	-rw-r--r--
autoload.elc	15.7 KB	-rw-r--r--
avl-tree.elc	15.92 KB	-rw-r--r--
backquote.elc	4.46 KB	-rw-r--r--
benchmark.elc	3.33 KB	-rw-r--r--
bindat.elc	10.84 KB	-rw-r--r--
byte-opt.elc	34.22 KB	-rw-r--r--
byte-run.elc	6.65 KB	-rw-r--r--
bytecomp.elc	124.99 KB	-rw-r--r--
check-declare.elc	8.77 KB	-rw-r--r--
checkdoc.elc	65.08 KB	-rw-r--r--
cl-compat.elc	4.28 KB	-rw-r--r--
cl-extra.elc	21.48 KB	-rw-r--r--
cl-indent.elc	13.98 KB	-rw-r--r--
cl-loaddefs.el	39.57 KB	-rw-r--r--
cl-macs.elc	99.36 KB	-rw-r--r--
cl-seq.elc	43.98 KB	-rw-r--r--
cl-specs.el	13.87 KB	-rw-r--r--
cl.elc	20.74 KB	-rw-r--r--
copyright.elc	8.64 KB	-rw-r--r--
crm.elc	7.94 KB	-rw-r--r--
cust-print.elc	12.77 KB	-rw-r--r--
debug.elc	24.86 KB	-rw-r--r--
derived.elc	10.72 KB	-rw-r--r--
disass.elc	5.09 KB	-rw-r--r--
easy-mmode.elc	14.85 KB	-rw-r--r--
easymenu.elc	20.15 KB	-rw-r--r--
edebug.elc	100.82 KB	-rw-r--r--
eldoc.elc	15.31 KB	-rw-r--r--
elint.elc	19.76 KB	-rw-r--r--
elp.elc	12.78 KB	-rw-r--r--
ewoc.elc	28.62 KB	-rw-r--r--
find-func.elc	17.26 KB	-rw-r--r--
find-gc.elc	3.74 KB	-rw-r--r--
float-sup.elc	1.39 KB	-rw-r--r--
generic.elc	6.55 KB	-rw-r--r--
gulp.elc	4.82 KB	-rw-r--r--
helper.elc	3.84 KB	-rw-r--r--
levents.elc	10.29 KB	-rw-r--r--
lisp-mnt.elc	21.87 KB	-rw-r--r--
lisp-mode.elc	37.14 KB	-rw-r--r--
lisp.elc	21.61 KB	-rw-r--r--
lmenu.elc	11.67 KB	-rw-r--r--
lucid.elc	6.22 KB	-rw-r--r--
macroexp.elc	4.45 KB	-rw-r--r--
map-ynp.elc	6.3 KB	-rw-r--r--
pp.elc	5.09 KB	-rw-r--r--
re-builder.elc	22.36 KB	-rw-r--r--
regexp-opt.elc	4.43 KB	-rw-r--r--
regi.elc	6.15 KB	-rw-r--r--
ring.elc	6.41 KB	-rw-r--r--
rx.elc	26.61 KB	-rw-r--r--
shadow.elc	5.63 KB	-rw-r--r--
sregex.elc	12.45 KB	-rw-r--r--
syntax.elc	5.18 KB	-rw-r--r--
tcover-ses.elc	14.68 KB	-rw-r--r--
tcover-unsafep.elc	4.09 KB	-rw-r--r--
testcover.elc	13.41 KB	-rw-r--r--
timer.elc	22.73 KB	-rw-r--r--
tq.elc	3.94 KB	-rw-r--r--
trace.elc	5.28 KB	-rw-r--r--
unsafep.elc	5.01 KB	-rw-r--r--
warnings.elc	9.61 KB	-rw-r--r--

Code Editor : byte-opt.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:01:59 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/byte-opt.el
;;; in Emacs version 23.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`byte-opt.el' was compiled for Emacs 19.29 or later"))

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

(require 'bytecomp)
(defalias 'byte-compile-log-lap-1 #[(format &rest args) "\305H\203\n�\306\307!\210\310\311\301	\312\211\313\314\f\"*#!\207" [byte-code-vector format a c args 0 error "The old version of the disassembler is loaded.  Reload new-bytecomp as well" byte-compile-log-1 apply nil mapcar #[(arg) ":\204�9\203�\305\306\307!\"\203�\310\307!\311\312O!\207\207@\211\250\203+�\313\314	\"\210	\315=\2036�\202d�	\n>\203C�AA@\202Q�	>\203O�A@\202Q�A\307	!\305\316	\"\203d�\310	\311\312O!	\317=\203l�\320A\321=\203{�	\322>\204{�	\207\323\324	\f#\207" [arg c byte-goto-ops byte-constref-ops a 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)"] 4]] 7])
(defalias 'byte-compile-log-lap '(macro . #[(format-string &rest args) "\302\303\304	BBE\207" [format-string args and (memq byte-optimize-log '(t byte)) byte-compile-log-lap-1] 5]))
(put 'inline 'byte-optimizer 'byte-optimize-inline-handler)
#@54 byte-optimize-handler for the `inline' special-form.
(defalias 'byte-optimize-inline-handler #[(form) "\301\302\303A\"B\207" [form progn mapcar #[(sexp) "\242\2119\2037�	\n\236A\2041�\304	!\2037�	\236A\2047�	K\211:\203+�	@\305=\2047�\306	!\2047�\307!\2028�)\207" [sexp f byte-compile-function-environment byte-compile-macro-environment fboundp macro subrp byte-compile-inline-expand] 3]] 4 (#$ . 1633)])
(defalias 'byte-inline-lapcode #[(lap) "\237	\244\211\207" [lap byte-compile-output] 2])
(defalias 'byte-compile-inline-expand #[(form) "@\211\n\236A\206�\305	!\205�	K\211\204 �\306\307	\"\210\202\250�:\203B�@\310=\203B�\311A@!\210\305	!\203=�	K\206A�	\n\236A:\203V�@\310=\203V�\312\313A@	#\2109\203j�\314=\204j�\315AB!\202\250�\316!\203\231�\317\320!\210\321H\305\322!\203\204�\322\f!\323\324H\325\f\326H\327HFEA)B\202\250�\242\323=\203\247�AB\202\250�*\207" [form name byte-compile-function-environment fn string fboundp byte-compile-warn "attempt to inline `%s' before it was defined" autoload load error "File `%s' didn't define `%s'" t byte-compile-inline-expand byte-code-function-p nil fetch-bytecode 1 string-as-unibyte lambda 0 byte-code 2 3] 8])
(defalias 'byte-compile-unfold-lambda #[(form &optional name) "\204�\306	@	A\307!\203#�\303\310H\311\312H\313H\314HFEA@AA\315\211\211$%&%@;\203F�%A\203F�%A%%@:\203[�%@@\316=\203[�%A%&\203\350�&@\317=\203\202�
\203q�\320\321\"\210&A\204|�\320\322\"\210\323$\202\337�&@\324=\203\246�&A\204\225�\320\325\"\210&AA\203\241�\320\326\"\210\323\202\337�
\203\275�&@\n\205\264�\327\nBD\fB\315\202\337�$\204\323�\n\204\323�\330\331\"\210\315&\332\202\337�&@\n@D\fB\nA&A\211&\204`�\n\203\373�\n\332=\204\367�\330\333\"\210	\2025\f\203	\334\f\237%BB\202
\335%B'(\2032)\336>\2032\323\337\211*+,\340\341\342\343	!\343'!#!\210+').\207" [name form values lambda bindings restp "anonymous lambda" byte-code-function-p 0 byte-code 1 2 3 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 optionalp body arglist newform byte-optimize byte-optimize-log print-length print-level print-escape-newlines] 8])
(defalias 'byte-optimize-form-code-walker #[(form for-effect) "\242\306:\204#�\205�\f\206�9?\206�\307=?\205,\202,\n\310=\203E�AA\2036�\311\312\313!\"\210A@\205,?\205,\202,\314\n!\204R�\n\242\315=\203[�\316\317!\"\202,\n\320>\203s�\n\321\322A@\"\323AA\"BB\202,\n\324=\203\203�\n\321\325A\"B\202,\n\326=\203\256�AA\203\245�\323A\"\211A\203\240�\326	B\202,	@\202,\327A@\"\202,\n\330=\203\325�AA\203\314�\330\327A@\"\323AA\307\"BB\202,\327A@\"\202,\n\331=\203\365�\331\327A@\307\"\327\3328\"\323AAA\307\"BBB\202,\n\333>\203\n\323A\"B\202,\n\334=\203\n\327A@\306\"\323AA\"BB\202,\n\335=\203GG\336W\203.\311\337!\210\n\327A@\306\"\327\3328\"\323\336\233\"BBB\202,\n\340>\203\254\203\242\341A!\211\203k
\327
@\"\240\204k
A\211\204ZA\203\223
\204\223?\203\223@\342>\203\223\307\343\211ABC\344\345\346\313!\"!\210+
\205\236\n\321\327
\"\237B)\202,\n\321\327A\"B\202,\n\347=\203\275\311\350\313!\"\210\306\202,\n\351>\203\307\202,\n\352=\203\334\n\327A@\"AABB\202,\n\353=\203\361\n\327A@\306\"AABB\202,\n\354=\203\330\306\321\327A\"BB\202,\355D\"\211=\204\327\"\202,\356\357!\203:\2429\203:\242\360N\203:\357!\211=\204:\327\"\202,\n9\204J\311\361\313\n!\"\210\202,\203\n\362N\211\203\f\204\332	\363=\204\332\n\364=\203\320\211EA@)\242\330=\203\320\211EA@)\211EA@)\332\211EA@)8F\211G9\205\314\336\211EA@)\233?\205\314F\242\365=\205\314F\211EA@)G=\205\314\332F8\242\366=\205\314\332F8\211EA@)G=*\204\332\311\367\313!\"\210\202?\203\371@\342>\203\371\307\343\211ABC\344\345\370\313\n!\"!\210+\327\326\371A\372\"B\307\"\202,\321\327A\"H\n\373N\203'\374H!\203'\310\375\n\321\376H\"\"D\202+\nHB)*\207" [form tmp fn for-effect byte-compile-delete-errors backwards nil t quote byte-compile-warn "malformed quote form: `%s'" prin1-to-string byte-code-function-p lambda byte-optimize-form-code-walker byte-compile-unfold-lambda (let let*) mapcar #[(binding) "9\203�\207AA\203�\301\302\303!\"\210@\304A@\305\"D\207" [binding byte-compile-warn "malformed let binding: `%s'" prin1-to-string byte-optimize-form nil] 4] byte-optimize-body cond #[(clause) ":\203�\302@\303\"\304A	\"B\207\305\306\307!\"\210\207" [clause for-effect byte-optimize-form nil byte-optimize-body byte-compile-warn "malformed cond form: `%s'" prin1-to-string] 4] 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'" (defun defmacro function condition-case save-window-excursion) unwind-protect catch ignore macroexpand fboundp compiler-macroexpand cl-compiler-macro "`%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) pure byte-optimize-all-constp apply eval byte-optimize byte-optimize-log print-length print-level print-escape-newlines byte-compile-macro-environment x last var args] 7])
#@64 Non-nil if all elements of LIST satisfy `byte-compile-constp'.
(defalias 'byte-optimize-all-constp #[(list) "\305	\203C�\203C�	@:\203�	@@\306=\2027�	@9\203<�	@\307\211\310>\2066�\311!\2066�\n\2056�\f>*\204<�\307	A\211\204�)\207" [constant list any-value symbol byte-compile-const-variables t quote nil (nil t) keywordp] 3 (#$ . 7328)])
#@41 The source-level pass of the optimizer.
(defalias 'byte-optimize-form #[(form &optional for-effect) "\306	\"\307\211:\203]�@9\203]�	\203!�@\310N\211\204*�@\311N\211\203]�!\211=\204]�\f\203T�
\312>\203T�\313\314\211\315\316\317\320!\320\n!#!\210+\321\n	\"\211\202^�*\207" [form for-effect new opt byte-optimize byte-optimize-log byte-optimize-form-code-walker nil byte-for-effect-optimizer byte-optimizer (t source) t 4 byte-compile-log-1 format "  %s	==>	%s" prin1-to-string byte-optimize-form print-length print-level print-escape-newlines] 7 (#$ . 7681)])
(defalias 'byte-optimize-body #[(forms all-for-effect) "\306\211\211\211\2031�
\206�\fA\f@\205�\307\f@\n\"\211\204&�\n\204*�	B\fA\211\204\f�\237,\207" [forms new fe result rest all-for-effect nil byte-optimize-form] 5])
#@61 Return non-nil if FORM always evaluates to a non-nil value.
(defalias 'byte-compile-trueconstp #[(form) "\242\302=\203�\303A!@\211\202�:\203$�@\304=\2053�\211A@)\2079?\2063�\305=\2063�\306!\207" [form x progn last quote t keywordp] 3 (#$ . 8501)])
(put 'byte-compile-trueconstp 'byte-optimizer 'byte-compile-inline-expand)
#@57 Return non-nil if FORM always evaluates to a nil value.
(defalias 'byte-compile-nilconstp #[(form) "\242\302=\203�\303A!@\211\202�:\203%�@\304=\205.�\211A@)?\2079\204,�\305\207?\207" [form x progn last quote nil] 3 (#$ . 8842)])
(put 'byte-compile-nilconstp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'byte-optimize-associative-math #[(form) "\304\211A	\203%�	@\247\203�	@\nB\202�	@B	A\211\204�\nA\203P�\203H�@\305@\n\"A\203B�@\237B\202D�@E\202Q�\305@\n\"\202Q�+\207" [form rest constants args nil apply] 5])
(defalias 'byte-optimize-nonassociative-math #[(form) "A@\247\203�AA@\247\204�\207A@AA	@\247\203-�@\n	@\"	A\211\202�	\203:�@\n	BB\202;�\n*\207" [form rest constant] 4])
(defalias 'byte-optimize-approx-equal #[(x y) "\302	Z!\303_\302	\\!X\207" [x y abs 100] 4])
(defalias 'byte-optimize-delay-constants-math #[(form start fun) "S	\233	\n\306>
A\211A\203n�
@\250\203�\307\310	!S	\233
A\211\203@�
@\250\203%�
@B
\307\240\210\202%�\203]�\311\312\n\313\314\"\"\314\312\n\"!\"\204]�\f\202j�\315\307	\"\312\n\237\"C\244)\202�	+\207" [start form fun overflow orig rest (+ *) nil copy-sequence byte-optimize-approx-equal apply mapcar float delq constants] 6])
(defalias 'byte-compile-butlast #[(form) "\301!A\237\207" [form reverse] 2])
(put 'byte-compile-butlast 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'byte-optimize-plus #[(form) "\303>\203
�\304\303\305!\"\306\307\310A\">\203\\�G\311U\203\\�A@\312>\204.�\3138\314>\203\\�\306\211A@\315>\203E�A@\3138\202M�\3138A@\n\316=\203W�\317\202X�\320	D*\321!\207" [form other integer 0 delq copy-sequence nil mapcar numberp 3 (1 -1) 2 (1 -1) (1 -1) 1 1+ 1- byte-optimize-predicate] 4])
(defalias 'byte-optimize-minus #[(form) "\302\233\2035�\303\211AA)>\2035�@\211A@)D\304\303\305\211AA)!\"\244\211\211AA)\2045�\303C\244\306\307\310A\">\203v�AA\311\232\203P�\312A@D\202v�AA\313\232\203a�\314A@D\202v�A@\303=\203v�G\302U\203v�\315\3168D\317!\207" [form x 3 0 delq copy-sequence nil mapcar numberp (1) 1- (-1) 1+ - 2 byte-optimize-predicate] 6])
(defalias 'byte-optimize-multiply #[(form) "\302\303\304#\305\306\307A\">\203F�\310A!@\211\303=\203(�\310!A\237)\202E�	\311=\203E�\312\313\233\203@�\310!A\237)\202C�A@D)\314!\207" [form last byte-optimize-delay-constants-math 1 * nil mapcar numberp reverse -1 - 3 byte-optimize-predicate] 5])
(defalias 'byte-optimize-divide #[(form) "\303\304\305#\306AA!@\211\203g�	\307=\204g�\310\311\211AA)\"\204g�	\247\203g�\312\313\314A\">\203g�	\315=\203J�\316\233\203J�\306!A\237)\202g�	\317=\203g�\320\316\233\203b�\306!A\237)\202e�A@D)\321!\207" [form last x byte-optimize-delay-constants-math 2 * reverse 0 memql 0.0 nil mapcar numberp 1 3 -1 - byte-optimize-predicate] 5])
(defalias 'byte-optimize-logmumble #[(form) "\301\302@#\303\304>\203'�@\305=\203�\306AB\202\"�\307\304\310!\"\211\202<�\242\311=\203;�\312>\203;�\306AB\202<�!\207" [form byte-optimize-delay-constants-math 1 byte-optimize-predicate 0 logand progn delq copy-sequence logior -1] 5])
(defalias 'byte-optimize-binary-predicate #[(form) "A@:\203�A@@\304=\2021�A@9\2034�A@\305\211\306>\2060�\307\n!\2060�	\2050�\n>*\203w�\3108:\203D�\3108@\304=\202e�\31089\203h�\3108\305\211\306>\206d�\307\n!\206d�	\205d�\n>*\203m�\305\311\312\217\207@\3108A@E\207\207" [form any-value symbol byte-compile-const-variables quote nil (nil t) keywordp 2 (byte-code "\301\302!D\207" [form quote eval] 3) ((error form))] 4])
(defalias 'byte-optimize-predicate #[(form) "\306A	\203C�\n\203C�	@:\203�	@@\307=\202;�	@9?\206;�	@\310\211\311>\206:�\312\f!\206:�\205:�\f
>*	A\211\204	�\n\203N�\310\313\314\217\202O�*\207" [form rest ok any-value symbol byte-compile-const-variables t quote nil (nil t) keywordp (byte-code "\301\302!D\207" [form quote eval] 3) ((error form))] 4])
(defalias 'byte-optimize-identity #[(form) "A\203�AA\204�A@\207\301\302AGAG\303U\203 �\304\202!�\305#\210\207" [form byte-compile-warn "identity called with %d arg%s, but requires 1" 1 "" "s"] 5])
(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 #[(form) "A@:\204)�A@9\203+�\304\211\305>\206%�\306\n!\206%�	\205%�\n>*\204+�\207A@\207" [form any-value symbol byte-compile-const-variables nil (nil t) keywordp] 3])
(defalias 'byte-optimize-zerop #[(form) "A@\247\203�\302!\207	\203�\303A@\304E\207\207" [form byte-compile-delete-errors eval = 0] 3])
(put 'zerop 'byte-optimizer 'byte-optimize-zerop)
(defalias 'byte-optimize-and #[(form) "A?\2065�\301>\203(�\302\303\304!\211\211A@\203 �A\211\202�\301\241\210!\301E\207AA\2042�A@\207\305!\207" [form nil progn byte-optimize-and copy-sequence byte-optimize-predicate] 6])
(defalias 'byte-optimize-or #[(form) "\303>\203
�\304\303\305!\"	A\211A\203b�	@\211\242\306=\203+�\307A!@\211\202�:\203@�@\310=\205O�\211A@)\202O�9?\206O�\311=\206O�\312!)\203�\305!	@>\303\241\211\202�AA\203n�\313!\202q�A@)\207" [form rest x nil delq copy-sequence progn last quote t keywordp byte-optimize-predicate] 5])
(defalias 'byte-optimize-cond #[(form) "\304\304	A\236\211\203�\305\306	!\"\202�\304	A>\203#�\305\304\306	!\"	A\211\203\331�@\242\211\242\307=\203A�\310	A!@\211\2021�	:\203V�	@\311=\205e�	\211A@)\202e�	9?\206e�	\312=\206e�\313	!)\203\216�	A=\203x�\307@B\202\210�A\203\210�\306	!@	>\304\241\210\304\211\202&�@:\203%�\211@@)\211\242\307=\203\254�\310	A!@\211\202\234�	:\203\302�	@\311=\205\315�	\211A@)?\202\315�	9\204\313�\304\202\315�	?)\203%�@\304\241\210\202%�)	\242\314=\203	A\211@:\203�@A\204�\315@@\316	@	AAB!E\202	)\207	\207" [rest form x clauses nil delq copy-sequence progn last quote t keywordp cond or byte-optimize-cond] 6])
(defalias 'byte-optimize-if #[(form) "A@\211\242\303=\203@�\304	!A\204@�	\211AA)\204,�\305\306	\211A@)AABB!\202#\307	!\305\306\304	!@AABB!C\244\202#	\211\242\303=\203S�\304A!@\211\202C�:\203h�@\310=\205w�\211A@)\202w�9?\206w�\311=\206w�\312!)\203\204�\303	\3138E\202#	\211\242\303=\203\227�\304A!@\211\202\207�:\203\255�@\310=\205\270�\211A@)?\202\270�9\204\266�\314\202\270�?)\203\306�\303	\315\233BB\202#\3138\203\341�\315\233\316\232\203\335�\306	\3138E\202#\202#\3158\204\355�\317\233\203\306	:\203	@\320>\203	G\313U\203	A@\202\n\321	D\317\233\203\303\315\233B\202\3158E\202#\303	\314E)\207" [form clause x progn last byte-optimize-if if butlast quote t keywordp 2 nil 3 (nil) 4 (not null) not] 6])
(defalias 'byte-optimize-while #[(form) "G\301W\203�\302\303!\210A@\205�\207" [form 2 byte-compile-warn "too few arguments for `while'"] 2])
(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 #[(form) "A@\211\242\302>\203�	A@AAB\202�)\207" [form fn 'function] 3])
(defalias 'byte-optimize-apply #[(form) "A@GS8	\203�	\242\304=\203?�	A@<\2034�\305AA!A\237\306\nD\244\307\310	A@\"\244)\202<�\311\312\313	!\"\210\314\206@�*\207" [form last fn butlast quote reverse funcall mapcar #[(x) "\301D\207" [x quote] 2] byte-compile-warn "last arg to apply can't be a literal atom: `%s'" prin1-to-string nil] 4])
(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 #[(form) "A@\204\f�\302AAB\207\3038\204�\304\233\203�\207@\305=\203/�\306\307\310\311\310\312A@\"\"\313#\207\314A@!\315\314	A!	@A@\316F)\207" [form binds progn 2 3 let append (progn) mapcar car-safe cdr-safe (nil) reverse let* nil] 7])
(put 'nth 'byte-optimizer 'byte-optimize-nth)
(defalias 'byte-optimize-nth #[(form) "\301!\302U\203*�A@\303>\203&�\304\305A@!\203�\3068\202$�\307\3068DD\207\310!\207\207" [form safe-length 3 (0 1) car zerop 2 cdr byte-optimize-predicate] 4])
(put 'nthcdr 'byte-optimizer 'byte-optimize-nthcdr)
(defalias 'byte-optimize-nthcdr #[(form) "\302!\303U\203/�A@\304>\203+�A@\3058	S\211\306Y\203(�\307D\202�)\207\310!\207\207" [form count safe-length 3 (0 1 2) 2 0 cdr byte-optimize-predicate] 2])
(put 'featurep 'byte-optimizer 'byte-optimize-featurep)
(defalias 'byte-optimize-featurep #[(form) "\243\301\235?\205�\243\302\235\203�\303\207\207" [form (('xemacs) ('sxemacs)) (('emacs)) t] 2])
(put 'set 'byte-optimizer 'byte-optimize-set)
(defalias 'byte-optimize-set #[(form) "\243\242\211\242\303=\203#�	A:\203#�\304	\211A@)\211AA)BB\202V�	\242\305=\203U�	A\242\211\242\303=\203U�	A:\203U�\306\211A@)\304	\211A@)\211AA)BBE\202V�)\207" [form var x quote setq make-local-variable progn] 6])
(byte-code "\303\304\211\203�\305	@\306\307#\210	A\211\204�\203(�\305@\306\310#\210A\211\204�*\311\305\n@\312\307#\210\nA\211\204+�)\305\207" [side-effect-and-error-free-fns side-effect-free-fns pure-fns (% * + - / /= 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 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 user-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] 5)
(defalias 'byte-compile-splice-in-already-compiled-code #[(form) "\304>\204\n�\305	!\207\306\307	A@\310	8\311#!\210\n\312	8\\]\nT\211\207" [byte-optimize form byte-compile-depth byte-compile-maxdepth (t lap) byte-compile-normal-call byte-inline-lapcode byte-decompile-bytecode-1 2 t 3] 5])
(byte-code "\301\302\303\304#\210\305B\306\307!\207" [current-load-list put byte-code byte-compile byte-compile-splice-in-already-compiled-code byte-constref-ops (lambda (#1=#:defconst-tmp-var) (defconst byte-constref-ops #1#)) (byte-constant byte-constant2 byte-varref byte-varset byte-varbind)] 4)
#@18 Don't call this!
(defalias 'disassemble-offset #[nil "	W\203;�\306\307\"\306\310\"\n\311=\203�T\fH\2029�\n\307=\2038�T\fHT\312\fH\313\"\\\2029�\n)\207
Y\203G�
Z
\207\fY\203f�
X\203f�T\fHT\312\fH\313\"\\\207Y\205z�X\205z�T\fH\207" [op byte-nth tem ptr bytes byte-constant logand 7 248 6 lsh 8 byte-constant2 byte-goto-if-not-nil-else-pop byte-listN byte-insertN] 4 (#$ . 23103)])
#@52 Turn BYTECODE into lapcode, referring to CONSTVEC.
(defalias 'byte-decompile-bytecode #[(bytes constvec) "\305\211\306\307\f\"+\207" [byte-compile-tag-number byte-compile-variables byte-compile-constants bytes constvec nil 0 byte-decompile-bytecode-1] 3 (#$ . 23525)])
(defalias 'byte-decompile-bytecode-1 #[(bytes constvec &optional make-spliceable) "G\306\307\211\211\211\211\211\211U\204\204)�BH\310 
H\211>\203X�\f\236\206S�\f\311 BB\211@A\202
\312=\203c�\313\202j�
>\203\337�\fGY\203x�\314\fD\202|�\fH
\313=\203\313�\n;\203\270�\307\307 \211!\203\261�!@ \315 @\n\"\203\250� !A\211!\204\226�*)\202\274�\n\236\206\333�\nCB\211@\202\333�\n\"\236\206\333�\nC\"B\211\"@\202\203
\316=\203SU\203\370�\307\202	\206�\311 \211\317
\f\206\306BBBT\211\202�\211#\203T#@\247\204K#@@\236\211\203K#\307\nAB#AB\241\210\320\n\"#A##A\211#\204 )\203`\321\322\"\210@A@\204jA	\203t\307	BB\323\324\237\".	\207" [bytes endtag tmp lap offset op 0 nil disassemble-offset byte-compile-make-tag byte-constant2 byte-constant out-of-range equal-including-properties byte-return byte-goto delq error "optimizer error: missed tags %s" mapcar #[(elt) "\247\203�\207A\207" [elt] 1] tags optr ptr length make-spliceable byte-code-vector byte-goto-ops byte-constref-ops constvec result byte-compile-constants elt #1=#:--cl-dolist-temp-- byte-compile-variables rest] 10])
(byte-code "\302B\303\304	B!\210\305B\306\307!\207" [current-load-list byte-goto-ops byte-tagref-ops (lambda (#1=#:defconst-tmp-var) (defconst byte-tagref-ops #1#)) TAG byte-conditional-ops (lambda (#2=#:defconst-tmp-var) (defconst byte-conditional-ops #2#)) (byte-goto-if-nil byte-goto-if-not-nil byte-goto-if-nil-else-pop byte-goto-if-not-nil-else-pop)] 3)
#@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) (#$ . 25389))
(byte-code "\301B\302\303!\210\304B\305\306	\244!\207" [current-load-list byte-compile-side-effect-and-error-free-ops (lambda (#1=#:defconst-tmp-var) (defconst byte-compile-side-effect-and-error-free-ops #1#)) (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-interactive-p) byte-compile-side-effect-free-ops (lambda (#2=#:defconst-tmp-var) (defconst byte-compile-side-effect-free-ops #2#)) (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)] 3)
#@142 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.
(defalias 'byte-optimize-lapcode #[(lap &optional for-effect) "\306\211\211\307\310\306\211\211\211\203�	\202�\n@ABCDEFC\203p	C\307=\204:�G\311>\203:�\312\313!\210HA\306CA\203#�A@FAA@E\314A8DE@\315=\203\342�F@>\203\342�\316CIF@JH@AAA@\317U\203\233�G\311>\203\214�\312\320F\"\210\321F\321EH\"\"H\202g	@\310U\203\272�G\311>\203\257�\312\322F\"\210\321FH\"H\202g	@\323U\203\333�G\311>\203\316�\312\324F\"\210F\315\240\210F\310\241\210\202g	\325\326!\210\202g	F@J>\203dFAE=\203dF@\327=\203\n\321FH\"H\330@\202+F@K>\203#F\315\211@\240\210F\310\241\210\202+\325\331\314F8\"\210G\332>\203^L\203^G\333>\203^\316\334\211MNO\335\336\337EA@EA@\340@!EA@%!\210+\316C\202g	D@\341=\2033EADA=\2033E@\342>\2033DA@P>\211@\203\223F@\343=\203g	\316CF@\344>\203@\203\307FA@\306Q\211R\345>\206\303\346R!\206\303Q\205\303RS>*\203\315FA\202\335\316T\236\206\335\316CTB\211T@@G\311>\203\373\312\347FEDFEF@@B&\210DF@\240\210D@\241\210\202g	G\311>\203\312\350EDE$\210DE@\240\210E\351\240\210E\310\241\210\317B\202g	F@\351=\203pD@\315=\203pE@\352>\203pG\311>\203Y\312\353E\211#\210\316CAAA\321F\321DH\"\"H\202g	F@\354=\203\303E@\355=\204\210E@\356=\203\303G\311>\203\245\312\357E\211@\355=\203\236\356\202\237\355EAB#\210E\211@\355=\203\262\356\202\263\355\240\210\321FH\"H\316C\202g	F@\355=\204\323F@\356=\203\"E@\327=\203\"FAD=\203\"F@\355=\203\360\356\202\361\355UG\311>\203
\312\360FEDUEABD&\210\321FH\"HEU\240\210\316C)\202g	F@\343=\203\274E@V>\203\274E@\355=\204CE@\361=\203JFA@\202OFA@?\203uG\311>\203a\312\362FE#\210AAA\321F\321EH\"\"H\202\266E@K>\203\235G\311>\203\222\312\363FE\327EAB$\210\321FH\"H\202\261G\311>\203\261\312\363FE\327EAB$\210E\327\240\210\316C\202g	F@\341=\203;AA\211@@@\351=\203\332@A\211@\202\312FA@@A=\203;@@@\341=\203;G\364>\203%\365WAA@
=\204
AW\366PW\202\374G\311>\203$\312\367FWF\211W&\210)\316C@@\351\240\210@@\310\241\210@A\202g	F@\370=\203\236E@\370=\203\236G\371>\203vL\203vG\333>\203v\316\334\211MNO\335\336\372EA@FA@#!\210+H\373F\f\"\211\203\220
E\241\210
\f>A\202y\321FH\"H\316C\202g	F@\370=\203\344\373FH\"\204\344G\374>\203\326L\203\326G\333>\203\326\316\334\211MNO\335\336\375FA@\"!\210+\321FH\"H\316C\202g	F@\376>\203\267E@\377>\204\267A@\310G\201a�>\306\211XWYZ@A\211@\2038@@@\370=\2048Y\203	@@XBXW\201b�PWZTZ\202	Y\203\252@@@\370=\203S\336\201c�@@A@\"\202Z@@\206Z\365[Z\201d�W\203\204\201e�\312\201f�W\201g�QFX\237[F[E\244$\210\202\251G\311>\203\251\312\201h�FZ\211\317U\203\235\365\202\240\201i�[F[&\210)A@\241\210,\316C\202g	E@\201j�=\203\361F@\\>\203\361G\311>\203\336\312\201k�FE\211F%\210AE\240\210AAF\240\210\316C\202g	E@\201j�=\203\210F@\201l�>\203\210\310EAW\203\210\201m�E\211AS\241!\203!\321EA\"\210F@\201n�=\2035A\315\310B\240\210\202=\321FH\"HG\311>\203\202\312\201k�FE@EATBF@\201n�=\203bA@\202fAA@EA\310U\204F@\201n�=\203AA@\202\200\365%\210\316C\202g	F@J>\203\355FAH>A@\211@@\201o�>\203\355@F=\204g	F@\327=\204\274@@\327=\203g	G\311>\203\317\312\201p�F@@\211$\210@@\201q�=\203\340F\201q�\240\210F@A\241\210\316C\202g	F@\201r�>\203\207FAH>A\211@@@\201s�>\203\207F@@=\204\207@@F@\201t�\236
@\f>\203HF
@\240\210F
A\241\210G\311>\203\201\312\201u�F@
F$\210\202\201@A@@\370=\204^@\201v� @AB\241\210G\311>\203r\312\201w�F@
\fA@$\210F\fA@\240\210F@A@\241\210\316C\202g	F@\343=\2031E@\327=\2031EAH>A\211@@@\201x�>\2031E@@=\2041@@\211@FA@\204\306\201y�\202\311\201z�>\203\365G\311>\203\340\312\201{�F
F
%\210E
@\240\210E
A\241\210\306ABA\202+G\311>\203\312\201|�F
#\210@A@@\370=\204@\201v� @AB\241\210E@A@\241\210\321FH\"H\316C\202g	E@\201}�=\203\306D@\327=\203\306DAA>\204\306DAH>A\211@@@\341=\203\306@@AEA=\203\306EA@P>\204\306\201v� ]G\311>\203\244\312\201~�DAA@@@ED\211AA@@@]A@\351E\327]B&\210A\351\310BAAB\241\210@D]\241@AB\241\210)\317B\316C\202g	F@\327=\203g	E@\370=\203g	EFAH>A\211@@A=\203g	@@@\201�>\203g	\201v� ]G\311>\203%	\312\201\200�FEA@FAA@@@@@@\201\201�\236A]B]A@&\210@F]\241@AB\241\210@@@\361=\203U	A\343\306T\236\206N	\306CTB\211T@BAAB\241\210F@@@\201\202�>A@\240\210)\316CAA\211A\202C�\306\211T^H\211A\203\306\nA@FAA@EF@_>\203\311	F@\343=\204\244	F@\201\203�=\203\270	FAT>\204\311	FATBT\202\311	FA^>\204\311	FA^B^F@\343=\203#\n\314A8@\343=\203#\nFA\314A8A=\203#\nE@\201\204�>\203#\nG\311>\203\n\312\201\205�FEF\211E&\210AAAE@EAB\240\210AA\351\310B\240\210\317B\202\275\nF@\201\206�>\203z\nA@\306@A\211@@@\351=\2043\nFA@@A=\203b\nF@@@@=\203b\n@\351\310B\240\210\316\2023\n
\203\275\nG\311>\203\275\n\312\201\207�F\211\211$\210\202\275\nF@\201j�=\203\275\nE@\201j�=\203\275\nG\311>\203\250\n\312\363FE\201j�FAEA\\B$\210\316C\321FH\"HE\211AFA\\\241\210AA\211A\204~	`B\\`.\nH\207" [byte-compile-delete-errors byte-compile-side-effect-free-ops byte-compile-side-effect-and-error-free-ops side-effect-free tmp3 tmp2 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 "  %s %s %s	-->	%s %s %s" "  %s %s	-->	dup %s" byte-dup (byte-varset byte-varbind) "  dup %s discard	-->	%s" byte-not byte-goto-if-nil byte-goto-if-not-nil "  not %s	-->	%s" "  %s %s %s:	-->	%s %s:" byte-goto-if-nil-else-pop "  %s %s	-->	<deleted>" "  %s %s	-->	%s" (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) tmp rest add-depth keep-going lap2 lap1 lap0 byte-optimize-log lap byte-stack+-info byte-goto-ops byte-goto-always-pop-ops byte-optimize print-length print-level print-escape-newlines byte-boolean-vars any-value symbol byte-compile-const-variables byte-compile-constants inverse byte-conditional-ops str deleted opt-p i tagstr byte-after-unbind-ops newtag byte-compile-variables byte-constref-ops byte-compile-maxdepth (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 . #1=(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 . #1#) (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-not-nil byte-goto-if-nil byte-goto-if-not-nil byte-goto byte-goto) byte-constant2 (byte-varbind byte-varset) "  %s %s %s	-->	%s dup %s" (byte-constant byte-varref) "  %s [dup/%s]...	-->	%s dup..."] 14 (#$ . 26755)])
(provide 'byte-opt)

${this.title}

Code Editor : byte-opt.elc