home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-04-01 | 65.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 54 68 75 20 |lidomide| on Thu |
|00000030| 46 65 62 20 31 38 20 31 | 38 3a 33 32 3a 30 32 20 |Feb 18 1|8:32:02 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 75 2f 6a 77 | 7a 2f 65 6d 61 63 73 31 |le /u/jw|z/emacs1|
|00000060| 39 2f 6c 69 73 70 2f 62 | 79 74 65 63 6f 6d 70 2f |9/lisp/b|ytecomp/|
|00000070| 62 79 74 65 63 6f 6d 70 | 2e 65 6c 0a 3b 3b 3b 20 |bytecomp|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 35 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |.5 Lucid|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000b0| 2e 31 30 3b 20 31 36 2d | 66 65 62 2d 39 33 2e 0a |.10; 16-|feb-93..|
|000000c0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000d0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000e0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|000000f0| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000100| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 31 38 |exist in| Emacs18|
|00000110| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000120| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000130| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000140| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000150| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000160| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|. (s|
|00000170| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|00000180| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 22 29 29 |s-versio|n "19"))|
|00000190| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 54 68 |). (e|rror "Th|
|000001a0| 69 73 20 66 69 6c 65 20 | 77 61 73 20 63 6f 6d 70 |is file |was comp|
|000001b0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 31 39 |iled for| Emacs19|
|000001c0| 2e 22 29 29 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |."))..(b|yte-code|
|000001d0| 20 22 c0 11 c2 c3 21 ac | 84 c4 c5 21 88 c6 c7 21 | "....!.|...!...!|
|000001e0| ab 84 0e 07 ac 86 0e 08 | c9 99 ab 9c c6 ca 21 ac |........|......!.|
|000001f0| 84 ca 20 16 5c 6e cb cc | 4d 88 c2 cd 21 ab 86 ce |.. .\n..|M...!...|
|00000200| cd 4b 21 ac 84 cd cf 4d | 88 c2 87 22 20 5b 22 32 |.K!....M|..." ["2|
|00000210| 2e 31 30 3b 20 31 36 2d | 66 65 62 2d 39 33 2e 22 |.10; 16-|feb-93."|
|00000220| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 76 65 | byte-co|mpile-ve|
|00000230| 72 73 69 6f 6e 20 66 62 | 6f 75 6e 64 70 20 64 65 |rsion fb|oundp de|
|00000240| 66 73 75 62 73 74 20 6c | 6f 61 64 2d 6c 69 62 72 |fsubst l|oad-libr|
|00000250| 61 72 79 20 22 62 79 74 | 65 63 6f 6d 70 2d 72 75 |ary "byt|ecomp-ru|
|00000260| 6e 74 69 6d 65 22 20 62 | 6f 75 6e 64 70 20 65 70 |ntime" b|oundp ep|
|00000270| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 20 65 6d 61 |och::ver|sion ema|
|00000280| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 20 |cs-versi|on "19" |
|00000290| 62 61 75 64 2d 72 61 74 | 65 20 63 6f 6d 70 69 6c |baud-rat|e compil|
|000002a0| 65 64 2d 66 75 6e 63 74 | 69 6f 6e 2d 70 20 28 6c |ed-funct|ion-p (l|
|000002b0| 61 6d 62 64 61 20 28 78 | 29 20 22 45 6d 61 63 73 |ambda (x|) "Emacs|
|000002c0| 20 31 38 20 64 6f 65 73 | 6e 27 74 20 68 61 76 65 | 18 does|n't have|
|000002d0| 20 74 68 65 73 65 2e 22 | 20 6e 69 6c 29 20 6d 65 | these."| nil) me|
|000002e0| 6d 62 65 72 20 73 75 62 | 72 70 20 23 5b 28 65 6c |mber sub|rp #[(el|
|000002f0| 74 20 6c 69 73 74 29 20 | 22 08 ab 8c 09 08 40 9a |t list) |".....@.|
|00000300| ac 86 08 41 89 10 ac 74 | 08 87 22 20 5b 6c 69 73 |...A...t|.." [lis|
|00000310| 74 20 65 6c 74 5d 20 33 | 20 22 6c 69 6b 65 20 6d |t elt] 3| "like m|
|00000320| 65 6d 71 2c 20 62 75 74 | 20 75 73 65 73 20 65 71 |emq, but| uses eq|
|00000330| 75 61 6c 20 69 6e 73 74 | 65 61 64 20 6f 66 20 65 |ual inst|ead of e|
|00000340| 71 2e 20 20 49 6e 20 76 | 31 39 2c 20 74 68 69 73 |q. In v|19, this|
|00000350| 20 69 73 20 61 20 73 75 | 62 72 2e 22 5d 5d 20 32 | is a su|br."]] 2|
|00000360| 29 0a 28 64 65 66 76 61 | 72 20 65 6d 61 63 73 2d |).(defva|r emacs-|
|00000370| 6c 69 73 70 2d 66 69 6c | 65 2d 72 65 67 65 78 70 |lisp-fil|e-regexp|
|00000380| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 c1 3d | (byte-c|ode "..=|
|00000390| ab 82 c2 87 c3 87 22 20 | 5b 73 79 73 74 65 6d 2d |......" |[system-|
|000003a0| 74 79 70 65 20 76 61 78 | 2d 76 6d 73 20 22 5c 5c |type vax|-vms "\\|
|000003b0| 2e 45 4c 5c 5c 28 3b 5b | 30 2d 39 5d 2b 5c 5c 29 |.EL\\(;[|0-9]+\\)|
|000003c0| 3f 24 22 20 22 5c 5c 2e | 65 6c 24 22 5d 20 32 29 |?$" "\\.|el$"] 2)|
|000003d0| 20 22 5c 0a 2a 52 65 67 | 65 78 70 20 77 68 69 63 | "\.*Reg|exp whic|
|000003e0| 68 20 6d 61 74 63 68 65 | 73 20 74 68 65 20 65 78 |h matche|s the ex|
|000003f0| 74 65 6e 73 69 6f 6e 20 | 6f 66 20 65 6c 69 73 70 |tension |of elisp|
|00000400| 20 73 6f 75 72 63 65 2d | 66 69 6c 65 73 2e 0a 59 | source-|files..Y|
|00000410| 6f 75 20 6d 61 79 20 77 | 61 6e 74 20 74 6f 20 72 |ou may w|ant to r|
|00000420| 65 64 65 66 69 6e 65 20 | 64 65 66 75 6e 20 62 79 |edefine |defun by|
|00000430| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 64 65 73 74 2d |te-compi|le-dest-|
|00000440| 66 69 6c 65 20 74 6f 20 | 6d 61 74 63 68 20 74 68 |file to |match th|
|00000450| 69 73 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |is.").(b|yte-code|
|00000460| 20 22 c0 c1 21 ac 84 c1 | c2 4d 88 c3 c4 c5 5c 22 | "..!...|.M....\"|
|00000470| 88 c3 c6 c5 5c 22 88 c3 | c7 c5 5c 22 88 c3 c8 c5 |....\"..|..\"....|
|00000480| 5c 22 87 22 20 5b 66 62 | 6f 75 6e 64 70 20 62 79 |\"." [fb|oundp by|
|00000490| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 64 65 73 74 2d |te-compi|le-dest-|
|000004a0| 66 69 6c 65 20 23 5b 28 | 66 69 6c 65 6e 61 6d 65 |file #[(|filename|
|000004b0| 29 20 22 c0 09 21 11 5c | 6e c3 3d ab 8a 09 c4 c5 |) "..!.\|n.=.....|
|000004c0| c6 09 5c 22 4f c7 50 87 | c5 0e 08 09 5c 22 ab 88 |..\"O.P.|....\"..|
|000004d0| 09 c4 89 94 4f c9 50 87 | 09 c7 50 87 22 20 5b 66 |....O.P.|..P." [f|
|000004e0| 69 6c 65 2d 6e 61 6d 65 | 2d 73 61 6e 73 2d 76 65 |ile-name|-sans-ve|
|000004f0| 72 73 69 6f 6e 73 20 66 | 69 6c 65 6e 61 6d 65 20 |rsions f|ilename |
|00000500| 73 79 73 74 65 6d 2d 74 | 79 70 65 20 76 61 78 2d |system-t|ype vax-|
|00000510| 76 6d 73 20 30 20 73 74 | 72 69 6e 67 2d 6d 61 74 |vms 0 st|ring-mat|
|00000520| 63 68 20 22 3b 22 20 22 | 63 22 20 65 6d 61 63 73 |ch ";" "|c" emacs|
|00000530| 2d 6c 69 73 70 2d 66 69 | 6c 65 2d 72 65 67 65 78 |-lisp-fi|le-regex|
|00000540| 70 20 22 2e 65 6c 63 22 | 5d 20 35 20 22 43 6f 6e |p ".elc"|] 5 "Con|
|00000550| 76 65 72 74 73 20 61 6e | 20 65 6d 61 63 73 2d 6c |verts an| emacs-l|
|00000560| 69 73 70 20 73 6f 75 72 | 63 65 2d 66 69 6c 65 6e |isp sour|ce-filen|
|00000570| 61 6d 65 20 74 6f 20 61 | 20 63 6f 6d 70 69 6c 65 |ame to a| compile|
|00000580| 64 2d 66 69 6c 65 6e 61 | 6d 65 2e 22 5d 20 61 75 |d-filena|me."] au|
|00000590| 74 6f 6c 6f 61 64 20 62 | 79 74 65 2d 63 6f 6d 70 |toload b|yte-comp|
|000005a0| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|000005b0| 64 20 22 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |d "byte-|optimize|
|000005c0| 22 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 2d |" byte-o|ptimize-|
|000005d0| 66 6f 72 6d 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |form byt|e-optimi|
|000005e0| 7a 65 2d 6c 61 70 63 6f | 64 65 20 62 79 74 65 2d |ze-lapco|de byte-|
|000005f0| 63 6f 6d 70 69 6c 65 2d | 75 6e 66 6f 6c 64 2d 6c |compile-|unfold-l|
|00000600| 61 6d 62 64 61 5d 20 33 | 29 0a 28 64 65 66 76 61 |ambda] 3|).(defva|
|00000610| 72 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 76 |r byte-c|ompile-v|
|00000620| 65 72 62 6f 73 65 20 28 | 62 79 74 65 2d 63 6f 64 |erbose (|byte-cod|
|00000630| 65 20 22 08 3f ad 83 09 | 5c 6e 56 87 22 20 5b 6e |e ".?...|\nV." [n|
|00000640| 6f 6e 69 6e 74 65 72 61 | 63 74 69 76 65 20 62 61 |onintera|ctive ba|
|00000650| 75 64 2d 72 61 74 65 20 | 73 65 61 72 63 68 2d 73 |ud-rate |search-s|
|00000660| 6c 6f 77 2d 73 70 65 65 | 64 5d 20 32 29 20 22 5c |low-spee|d] 2) "\|
|00000670| 0a 2a 4e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 |.*Non-ni|l means |
|00000680| 70 72 69 6e 74 20 6d 65 | 73 73 61 67 65 73 20 64 |print me|ssages d|
|00000690| 65 73 63 72 69 62 69 6e | 67 20 70 72 6f 67 72 65 |escribin|g progre|
|000006a0| 73 73 20 6f 66 20 62 79 | 74 65 2d 63 6f 6d 70 69 |ss of by|te-compi|
|000006b0| 6c 65 72 2e 22 29 0a 28 | 64 65 66 76 61 72 20 62 |ler.").(|defvar b|
|000006c0| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 65 6d 61 63 |yte-comp|ile-emac|
|000006d0| 73 31 38 2d 63 6f 6d 70 | 61 74 69 62 69 6c 69 74 |s18-comp|atibilit|
|000006e0| 79 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |y (byte-|code "..|
|000006f0| 21 ab 83 09 ae 83 5c 6e | c3 99 87 22 20 5b 62 6f |!.....\n|..." [bo|
|00000700| 75 6e 64 70 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |undp epo|ch::vers|
|00000710| 69 6f 6e 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ion emac|s-versio|
|00000720| 6e 20 22 31 39 22 5d 20 | 32 29 20 22 5c 0a 2a 49 |n "19"] |2) "\.*I|
|00000730| 66 20 74 68 69 73 20 69 | 73 20 74 72 75 65 2c 20 |f this i|s true, |
|00000740| 74 68 65 6e 20 74 68 65 | 20 62 79 74 65 20 63 6f |then the| byte co|
|00000750| 6d 70 69 6c 65 72 20 77 | 69 6c 6c 20 67 65 6e 65 |mpiler w|ill gene|
|00000760| 72 61 74 65 20 2e 65 6c | 63 20 66 69 6c 65 73 20 |rate .el|c files |
|00000770| 77 68 69 63 68 20 77 69 | 6c 6c 0a 77 6f 72 6b 20 |which wi|ll.work |
|00000780| 69 6e 20 67 65 6e 65 72 | 69 63 20 76 65 72 73 69 |in gener|ic versi|
|00000790| 6f 6e 20 31 38 20 65 6d | 61 63 73 65 73 20 77 69 |on 18 em|acses wi|
|000007a0| 74 68 6f 75 74 20 68 61 | 76 69 6e 67 20 62 79 74 |thout ha|ving byt|
|000007b0| 65 63 6f 6d 70 2d 72 75 | 6e 74 69 6d 65 2e 65 6c |ecomp-ru|ntime.el|
|000007c0| 20 6c 6f 61 64 65 64 2e | 0a 49 66 20 74 68 69 73 | loaded.|.If this|
|000007d0| 20 69 73 20 66 61 6c 73 | 65 2c 20 74 68 65 20 67 | is fals|e, the g|
|000007e0| 65 6e 65 72 61 74 65 64 | 20 63 6f 64 65 20 77 69 |enerated| code wi|
|000007f0| 6c 6c 20 62 65 20 6d 6f | 72 65 20 65 66 66 69 63 |ll be mo|re effic|
|00000800| 69 65 6e 74 20 69 6e 20 | 65 6d 61 63 73 20 31 39 |ient in |emacs 19|
|00000810| 2c 20 61 6e 64 0a 77 69 | 6c 6c 20 62 65 20 6c 6f |, and.wi|ll be lo|
|00000820| 61 64 61 62 6c 65 20 69 | 6e 20 65 6d 61 63 73 20 |adable i|n emacs |
|00000830| 31 38 20 6f 6e 6c 79 20 | 69 66 20 62 79 74 65 63 |18 only |if bytec|
|00000840| 6f 6d 70 2d 72 75 6e 74 | 69 6d 65 2e 65 6c 20 69 |omp-runt|ime.el i|
|00000850| 73 20 6c 6f 61 64 65 64 | 2e 0a 53 65 65 20 61 6c |s loaded|..See al|
|00000860| 73 6f 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |so byte-|compile-|
|00000870| 67 65 6e 65 72 61 74 65 | 2d 65 6d 61 63 73 31 39 |generate|-emacs19|
|00000880| 2d 62 79 74 65 63 6f 64 | 65 73 2e 22 29 0a 28 64 |-bytecod|es.").(d|
|00000890| 65 66 76 61 72 20 62 79 | 74 65 2d 63 6f 6d 70 69 |efvar by|te-compi|
|000008a0| 6c 65 2d 67 65 6e 65 72 | 61 74 65 2d 65 6d 61 63 |le-gener|ate-emac|
|000008b0| 73 31 39 2d 62 79 74 65 | 63 6f 64 65 73 20 28 62 |s19-byte|codes (b|
|000008c0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 ab 83 09 |yte-code| "..!...|
|000008d0| ae 83 5c 6e c3 99 3f 87 | 22 20 5b 62 6f 75 6e 64 |..\n..?.|" [bound|
|000008e0| 70 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |p epoch:|:version|
|000008f0| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 22 | emacs-v|ersion "|
|00000900| 31 39 22 5d 20 32 29 20 | 22 5c 0a 2a 49 66 20 74 |19"] 2) |"\.*If t|
|00000910| 68 69 73 20 69 73 20 74 | 72 75 65 2c 20 74 68 65 |his is t|rue, the|
|00000920| 6e 20 74 68 65 20 62 79 | 74 65 2d 63 6f 6d 70 69 |n the by|te-compi|
|00000930| 6c 65 72 20 77 69 6c 6c | 20 67 65 6e 65 72 61 74 |ler will| generat|
|00000940| 65 20 62 79 74 65 63 6f | 64 65 20 77 68 69 63 68 |e byteco|de which|
|00000950| 20 0a 6d 61 6b 65 73 20 | 75 73 65 20 6f 66 20 62 | .makes |use of b|
|00000960| 79 74 65 2d 6f 70 73 20 | 77 68 69 63 68 20 61 72 |yte-ops |which ar|
|00000970| 65 20 70 72 65 73 65 6e | 74 20 6f 6e 6c 79 20 69 |e presen|t only i|
|00000980| 6e 20 65 6d 61 63 73 31 | 39 2e 20 20 43 6f 64 65 |n emacs1|9. Code|
|00000990| 20 67 65 6e 65 72 61 74 | 65 64 0a 74 68 69 73 20 | generat|ed.this |
|000009a0| 77 61 79 20 63 61 6e 20 | 6e 65 76 65 72 20 62 65 |way can |never be|
|000009b0| 20 72 75 6e 20 69 6e 20 | 65 6d 61 63 73 31 38 2c | run in |emacs18,|
|000009c0| 20 61 6e 64 20 6d 61 79 | 20 65 76 65 6e 20 63 61 | and may| even ca|
|000009d0| 75 73 65 20 69 74 20 74 | 6f 20 63 72 61 73 68 2e |use it t|o crash.|
|000009e0| 22 29 0a 28 64 65 66 76 | 61 72 20 62 79 74 65 2d |").(defv|ar byte-|
|000009f0| 6f 70 74 69 6d 69 7a 65 | 20 74 20 22 5c 0a 2a 49 |optimize| t "\.*I|
|00000a00| 66 20 6e 69 6c 2c 20 6e | 6f 20 63 6f 6d 70 69 6c |f nil, n|o compil|
|00000a10| 65 2d 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 73 20 |e-optimi|zations |
|00000a20| 77 69 6c 6c 20 62 65 20 | 64 6f 6e 65 2e 0a 43 6f |will be |done..Co|
|00000a30| 6d 70 69 6c 61 74 69 6f | 6e 20 77 69 6c 6c 20 62 |mpilatio|n will b|
|00000a40| 65 20 66 61 73 74 65 72 | 2c 20 67 65 6e 65 72 61 |e faster|, genera|
|00000a50| 74 65 64 20 63 6f 64 65 | 20 77 69 6c 6c 20 62 65 |ted code| will be|
|00000a60| 20 73 6c 6f 77 65 72 20 | 61 6e 64 20 6c 61 72 67 | slower |and larg|
|00000a70| 65 72 2e 0a 54 68 69 73 | 20 6d 61 79 20 62 65 20 |er..This| may be |
|00000a80| 6e 69 6c 2c 20 74 2c 20 | 27 62 79 74 65 2c 20 6f |nil, t, |'byte, o|
|00000a90| 72 20 27 73 6f 75 72 63 | 65 2e 20 20 49 66 20 69 |r 'sourc|e. If i|
|00000aa0| 74 20 69 73 20 27 62 79 | 74 65 2c 20 74 68 65 6e |t is 'by|te, then|
|00000ab0| 20 6f 6e 6c 79 20 62 79 | 74 65 2d 6c 65 76 65 6c | only by|te-level|
|00000ac0| 0a 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 73 20 77 |.optimiz|ations w|
|00000ad0| 69 6c 6c 20 62 65 20 64 | 6f 6e 65 3b 20 69 66 20 |ill be d|one; if |
|00000ae0| 69 74 20 69 73 20 27 73 | 6f 75 72 63 65 2c 20 74 |it is 's|ource, t|
|00000af0| 68 65 6e 20 6f 6e 6c 79 | 20 73 6f 75 72 63 65 2d |hen only| source-|
|00000b00| 6c 65 76 65 6c 20 0a 6f | 70 74 69 6d 69 7a 61 74 |level .o|ptimizat|
|00000b10| 69 6f 6e 73 20 77 69 6c | 6c 20 62 65 20 64 6f 6e |ions wil|l be don|
|00000b20| 65 2e 22 29 0a 28 64 65 | 66 76 61 72 20 62 79 74 |e.").(de|fvar byt|
|00000b30| 65 2d 63 6f 6d 70 69 6c | 65 2d 64 65 6c 65 74 65 |e-compil|e-delete|
|00000b40| 2d 65 72 72 6f 72 73 20 | 74 20 22 5c 0a 2a 49 66 |-errors |t "\.*If|
|00000b50| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 74 68 65 20 6f 70 | non-nil|, the op|
|00000b60| 74 69 6d 69 7a 65 72 20 | 6d 61 79 20 64 65 6c 65 |timizer |may dele|
|00000b70| 74 65 20 66 6f 72 6d 73 | 20 74 68 61 74 20 6d 61 |te forms| that ma|
|00000b80| 79 20 73 69 67 6e 61 6c | 20 61 6e 20 65 72 72 6f |y signal| an erro|
|00000b90| 72 0a 28 76 61 72 69 61 | 62 6c 65 20 72 65 66 65 |r.(varia|ble refe|
|00000ba0| 72 65 6e 63 65 73 20 61 | 6e 64 20 73 69 64 65 2d |rences a|nd side-|
|00000bb0| 65 66 66 65 63 74 2d 66 | 72 65 65 20 66 75 6e 63 |effect-f|ree func|
|00000bc0| 74 69 6f 6e 73 20 73 75 | 63 68 20 61 73 20 43 41 |tions su|ch as CA|
|00000bd0| 52 29 2e 22 29 0a 28 64 | 65 66 76 61 72 20 62 79 |R).").(d|efvar by|
|00000be0| 74 65 2d 6f 70 74 69 6d | 69 7a 65 2d 6c 6f 67 20 |te-optim|ize-log |
|00000bf0| 6e 69 6c 20 22 5c 0a 2a | 49 66 20 74 72 75 65 2c |nil "\.*|If true,|
|00000c00| 20 74 68 65 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c | the byt|e-compil|
|00000c10| 65 72 20 77 69 6c 6c 20 | 6c 6f 67 20 69 74 73 20 |er will |log its |
|00000c20| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 73 20 69 6e |optimiza|tions in|
|00000c30| 74 6f 20 2a 43 6f 6d 70 | 69 6c 65 2d 4c 6f 67 2a |to *Comp|ile-Log*|
|00000c40| 2e 0a 49 66 20 74 68 69 | 73 20 69 73 20 27 73 6f |..If thi|s is 'so|
|00000c50| 75 72 63 65 2c 20 74 68 | 65 6e 20 6f 6e 6c 79 20 |urce, th|en only |
|00000c60| 73 6f 75 72 63 65 2d 6c | 65 76 65 6c 20 6f 70 74 |source-l|evel opt|
|00000c70| 69 6d 69 7a 61 74 69 6f | 6e 73 20 77 69 6c 6c 20 |imizatio|ns will |
|00000c80| 62 65 20 6c 6f 67 67 65 | 64 2e 0a 49 66 20 69 74 |be logge|d..If it|
|00000c90| 20 69 73 20 27 62 79 74 | 65 2c 20 74 68 65 6e 20 | is 'byt|e, then |
|00000ca0| 6f 6e 6c 79 20 62 79 74 | 65 2d 6c 65 76 65 6c 20 |only byt|e-level |
|00000cb0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 73 20 77 69 |optimiza|tions wi|
|00000cc0| 6c 6c 20 62 65 20 6c 6f | 67 67 65 64 2e 22 29 0a |ll be lo|gged.").|
|00000cd0| 28 64 65 66 76 61 72 20 | 62 79 74 65 2d 63 6f 6d |(defvar |byte-com|
|00000ce0| 70 69 6c 65 2d 65 72 72 | 6f 72 2d 6f 6e 2d 77 61 |pile-err|or-on-wa|
|00000cf0| 72 6e 20 6e 69 6c 20 22 | 5c 0a 2a 49 66 20 74 72 |rn nil "|\.*If tr|
|00000d00| 75 65 2c 20 74 68 65 20 | 62 79 74 65 2d 63 6f 6d |ue, the |byte-com|
|00000d10| 70 69 6c 65 72 20 77 69 | 6c 6c 20 72 65 70 6f 72 |piler wi|ll repor|
|00000d20| 74 20 77 61 72 6e 69 6e | 67 73 20 77 69 74 68 20 |t warnin|gs with |
|00000d30| 60 65 72 72 6f 72 27 20 | 69 6e 73 74 65 61 64 0a |`error' |instead.|
|00000d40| 6f 66 20 60 6d 65 73 73 | 61 67 65 2e 27 22 29 0a |of `mess|age.'").|
|00000d50| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 11 c2 87 |(byte-co|de "....|
|00000d60| 22 20 5b 28 72 65 64 65 | 66 69 6e 65 20 63 61 6c |" [(rede|fine cal|
|00000d70| 6c 61 72 67 73 20 66 72 | 65 65 2d 76 61 72 73 20 |largs fr|ee-vars |
|00000d80| 75 6e 72 65 73 6f 6c 76 | 65 64 29 20 62 79 74 65 |unresolv|ed) byte|
|00000d90| 2d 63 6f 6d 70 69 6c 65 | 2d 77 61 72 6e 69 6e 67 |-compile|-warning|
|00000da0| 2d 74 79 70 65 73 20 6e | 69 6c 5d 20 31 29 0a 28 |-types n|il] 1).(|
|00000db0| 64 65 66 76 61 72 20 62 | 79 74 65 2d 63 6f 6d 70 |defvar b|yte-comp|
|00000dc0| 69 6c 65 2d 77 61 72 6e | 69 6e 67 73 20 74 20 22 |ile-warn|ings t "|
|00000dd0| 5c 0a 2a 4c 69 73 74 20 | 6f 66 20 77 61 72 6e 69 |\.*List |of warni|
|00000de0| 6e 67 73 20 74 68 61 74 | 20 74 68 65 20 62 79 74 |ngs that| the byt|
|00000df0| 65 2d 63 6f 6d 70 69 6c | 65 72 20 73 68 6f 75 6c |e-compil|er shoul|
|00000e00| 64 20 69 73 73 75 65 20 | 28 74 20 66 6f 72 20 61 |d issue |(t for a|
|00000e10| 6c 6c 29 2e 0a 45 6c 65 | 6d 65 6e 74 73 20 6f 66 |ll)..Ele|ments of|
|00000e20| 20 74 68 65 20 6c 69 73 | 74 20 6d 61 79 20 62 65 | the lis|t may be|
|00000e30| 20 62 65 3a 0a 0a 20 20 | 66 72 65 65 2d 76 61 72 | be:.. |free-var|
|00000e40| 73 09 72 65 66 65 72 65 | 6e 63 65 73 20 74 6f 20 |s.refere|nces to |
|00000e50| 76 61 72 69 61 62 6c 65 | 73 20 6e 6f 74 20 69 6e |variable|s not in|
|00000e60| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 6c 65 78 | the cur|rent lex|
|00000e70| 69 63 61 6c 20 73 63 6f | 70 65 2e 0a 20 20 75 6e |ical sco|pe.. un|
|00000e80| 72 65 73 6f 6c 76 65 64 | 09 63 61 6c 6c 73 20 74 |resolved|.calls t|
|00000e90| 6f 20 75 6e 6b 6e 6f 77 | 6e 20 66 75 6e 63 74 69 |o unknow|n functi|
|00000ea0| 6f 6e 73 2e 0a 20 20 63 | 61 6c 6c 61 72 67 73 09 |ons.. c|allargs.|
|00000eb0| 6c 61 6d 62 64 61 20 63 | 61 6c 6c 73 20 77 69 74 |lambda c|alls wit|
|00000ec0| 68 20 61 72 67 73 20 74 | 68 61 74 20 64 6f 6e 27 |h args t|hat don'|
|00000ed0| 74 20 6d 61 74 63 68 20 | 74 68 65 20 64 65 66 69 |t match |the defi|
|00000ee0| 6e 69 74 69 6f 6e 2e 0a | 20 20 72 65 64 65 66 69 |nition..| redefi|
|00000ef0| 6e 65 09 66 75 6e 63 74 | 69 6f 6e 20 63 65 6c 6c |ne.funct|ion cell|
|00000f00| 20 72 65 64 65 66 69 6e | 65 64 20 66 72 6f 6d 20 | redefin|ed from |
|00000f10| 61 20 6d 61 63 72 6f 20 | 74 6f 20 61 20 6c 61 6d |a macro |to a lam|
|00000f20| 62 64 61 20 6f 72 20 76 | 69 63 65 0a 09 09 76 65 |bda or v|ice...ve|
|00000f30| 72 73 61 2c 20 6f 72 20 | 72 65 64 65 66 69 6e 65 |rsa, or |redefine|
|00000f40| 64 20 74 6f 20 74 61 6b | 65 20 61 20 64 69 66 66 |d to tak|e a diff|
|00000f50| 65 72 65 6e 74 20 6e 75 | 6d 62 65 72 20 6f 66 20 |erent nu|mber of |
|00000f60| 61 72 67 75 6d 65 6e 74 | 73 2e 0a 0a 53 65 65 20 |argument|s...See |
|00000f70| 61 6c 73 6f 20 74 68 65 | 20 6d 61 63 72 6f 20 62 |also the| macro b|
|00000f80| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 72 2d 6f 70 74 |yte-comp|iler-opt|
|00000f90| 69 6f 6e 73 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ions.").|(defvar |
|00000fa0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 67 65 6e |byte-com|pile-gen|
|00000fb0| 65 72 61 74 65 2d 63 61 | 6c 6c 2d 74 72 65 65 20 |erate-ca|ll-tree |
|00000fc0| 6e 69 6c 20 22 5c 0a 2a | 49 66 20 74 68 69 73 20 |nil "\.*|If this |
|00000fd0| 69 73 20 74 72 75 65 2c | 20 74 68 65 6e 20 74 68 |is true,| then th|
|00000fe0| 65 20 63 6f 6d 70 69 6c | 65 72 20 77 69 6c 6c 20 |e compil|er will |
|00000ff0| 63 6f 6c 6c 65 63 74 20 | 73 74 61 74 69 73 74 69 |collect |statisti|
|00001000| 63 73 20 6f 6e 20 77 68 | 61 74 0a 66 75 6e 63 74 |cs on wh|at.funct|
|00001010| 69 6f 6e 73 20 77 65 72 | 65 20 63 61 6c 6c 65 64 |ions wer|e called|
|00001020| 20 61 6e 64 20 66 72 6f | 6d 20 77 68 65 72 65 2e | and fro|m where.|
|00001030| 20 20 54 68 69 73 20 77 | 69 6c 6c 20 62 65 20 64 | This w|ill be d|
|00001040| 69 73 70 6c 61 79 65 64 | 20 61 66 74 65 72 20 74 |isplayed| after t|
|00001050| 68 65 0a 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 20 63 |he.compi|lation c|
|00001060| 6f 6d 70 6c 65 74 65 73 | 2e 20 20 49 66 20 69 74 |ompletes|. If it|
|00001070| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 20 62 75 74 | is non-|nil, but|
|00001080| 20 6e 6f 74 20 74 2c 20 | 79 6f 75 20 77 69 6c 6c | not t, |you will|
|00001090| 20 62 65 20 61 73 6b 65 | 64 0a 66 6f 72 20 77 68 | be aske|d.for wh|
|000010a0| 65 74 68 65 72 20 74 6f | 20 64 69 73 70 6c 61 79 |ether to| display|
|000010b0| 20 74 68 69 73 2e 0a 0a | 54 68 65 20 63 61 6c 6c | this...|The call|
|000010c0| 20 74 72 65 65 20 6f 6e | 6c 79 20 6c 69 73 74 73 | tree on|ly lists|
|000010d0| 20 66 75 6e 63 74 69 6f | 6e 73 20 63 61 6c 6c 65 | functio|ns calle|
|000010e0| 64 2c 20 6e 6f 74 20 6d | 61 63 72 6f 73 20 75 73 |d, not m|acros us|
|000010f0| 65 64 2e 20 54 68 6f 73 | 65 20 66 75 6e 63 74 69 |ed. Thos|e functi|
|00001100| 6f 6e 73 0a 77 68 69 63 | 68 20 74 68 65 20 62 79 |ons.whic|h the by|
|00001110| 74 65 2d 63 6f 64 65 20 | 69 6e 74 65 72 70 72 65 |te-code |interpre|
|00001120| 74 65 72 20 6b 6e 6f 77 | 73 20 61 62 6f 75 74 20 |ter know|s about |
|00001130| 64 69 72 65 63 74 6c 79 | 20 28 65 71 2c 20 63 6f |directly| (eq, co|
|00001140| 6e 73 2c 20 65 74 63 2e | 29 20 61 72 65 0a 6e 6f |ns, etc.|) are.no|
|00001150| 74 20 72 65 70 6f 72 74 | 65 64 2e 0a 0a 54 68 65 |t report|ed...The|
|00001160| 20 63 61 6c 6c 20 74 72 | 65 65 20 61 6c 73 6f 20 | call tr|ee also |
|00001170| 6c 69 73 74 73 20 74 68 | 6f 73 65 20 66 75 6e 63 |lists th|ose func|
|00001180| 74 69 6f 6e 73 20 77 68 | 69 63 68 20 61 72 65 20 |tions wh|ich are |
|00001190| 6e 6f 74 20 6b 6e 6f 77 | 6e 20 74 6f 20 62 65 20 |not know|n to be |
|000011a0| 63 61 6c 6c 65 64 0a 28 | 74 68 61 74 20 69 73 2c |called.(|that is,|
|000011b0| 20 74 6f 20 77 68 69 63 | 68 20 6e 6f 20 63 61 6c | to whic|h no cal|
|000011c0| 6c 73 20 68 61 76 65 20 | 62 65 65 6e 20 63 6f 6d |ls have |been com|
|000011d0| 70 69 6c 65 64 2e 29 20 | 20 46 75 6e 63 74 69 6f |piled.) | Functio|
|000011e0| 6e 73 20 77 68 69 63 68 | 20 63 61 6e 20 62 65 0a |ns which| can be.|
|000011f0| 69 6e 76 6f 6b 65 64 20 | 69 6e 74 65 72 61 63 74 |invoked |interact|
|00001200| 69 76 65 6c 79 20 61 72 | 65 20 65 78 63 6c 75 64 |ively ar|e exclud|
|00001210| 65 64 20 66 72 6f 6d 20 | 74 68 69 73 20 6c 69 73 |ed from |this lis|
|00001220| 74 2e 22 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 62 |t.").(de|fconst b|
|00001230| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 63 61 6c 6c |yte-comp|ile-call|
|00001240| 2d 74 72 65 65 20 6e 69 | 6c 20 22 5c 0a 41 6c 69 |-tree ni|l "\.Ali|
|00001250| 73 74 20 6f 66 20 66 75 | 6e 63 74 69 6f 6e 73 20 |st of fu|nctions |
|00001260| 61 6e 64 20 74 68 65 69 | 72 20 63 61 6c 6c 20 74 |and thei|r call t|
|00001270| 72 65 65 2e 0a 45 61 63 | 68 20 65 6c 65 6d 65 6e |ree..Eac|h elemen|
|00001280| 74 20 6c 6f 6f 6b 73 20 | 6c 69 6b 65 0a 0a 20 20 |t looks |like.. |
|00001290| 28 46 55 4e 43 54 49 4f | 4e 20 43 41 4c 4c 45 52 |(FUNCTIO|N CALLER|
|000012a0| 53 20 43 41 4c 4c 53 29 | 0a 0a 77 68 65 72 65 20 |S CALLS)|..where |
|000012b0| 43 41 4c 4c 45 52 53 20 | 69 73 20 61 20 6c 69 73 |CALLERS |is a lis|
|000012c0| 74 20 6f 66 20 66 75 6e | 63 74 69 6f 6e 73 20 74 |t of fun|ctions t|
|000012d0| 68 61 74 20 63 61 6c 6c | 20 46 55 4e 43 54 49 4f |hat call| FUNCTIO|
|000012e0| 4e 2c 20 61 6e 64 20 43 | 41 4c 4c 53 0a 69 73 20 |N, and C|ALLS.is |
|000012f0| 61 20 6c 69 73 74 20 6f | 66 20 66 75 6e 63 74 69 |a list o|f functi|
|00001300| 6f 6e 73 20 66 6f 72 20 | 77 68 69 63 68 20 63 61 |ons for |which ca|
|00001310| 6c 6c 73 20 77 65 72 65 | 20 67 65 6e 65 72 61 74 |lls were| generat|
|00001320| 65 64 20 77 68 69 6c 65 | 20 63 6f 6d 70 69 6c 69 |ed while| compili|
|00001330| 6e 67 0a 46 55 4e 43 54 | 49 4f 4e 2e 22 29 0a 28 |ng.FUNCT|ION.").(|
|00001340| 64 65 66 76 61 72 20 62 | 79 74 65 2d 63 6f 6d 70 |defvar b|yte-comp|
|00001350| 69 6c 65 2d 63 61 6c 6c | 2d 74 72 65 65 2d 73 6f |ile-call|-tree-so|
|00001360| 72 74 20 27 6e 61 6d 65 | 20 22 5c 0a 2a 49 66 20 |rt 'name| "\.*If |
|00001370| 6e 6f 6e 20 6e 69 6c 2c | 20 74 68 65 20 63 61 6c |non nil,| the cal|
|00001380| 6c 20 74 72 65 65 20 69 | 73 20 73 6f 72 74 65 64 |l tree i|s sorted|
|00001390| 2e 0a 54 68 65 20 76 61 | 6c 75 65 73 20 27 6e 61 |..The va|lues 'na|
|000013a0| 6d 65 2c 20 27 63 61 6c | 6c 65 72 73 2c 20 27 63 |me, 'cal|lers, 'c|
|000013b0| 61 6c 6c 73 2c 20 27 63 | 61 6c 6c 73 2b 63 61 6c |alls, 'c|alls+cal|
|000013c0| 6c 65 72 73 20 6d 65 61 | 6e 73 20 74 6f 20 73 6f |lers mea|ns to so|
|000013d0| 72 74 20 6f 6e 0a 74 68 | 65 20 74 68 6f 73 65 20 |rt on.th|e those |
|000013e0| 66 69 65 6c 64 73 2e 22 | 29 0a 28 64 65 66 76 61 |fields."|).(defva|
|000013f0| 72 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 6f |r byte-c|ompile-o|
|00001400| 76 65 72 77 72 69 74 65 | 2d 66 69 6c 65 20 74 20 |verwrite|-file t |
|00001410| 22 5c 0a 49 66 20 6e 69 | 6c 2c 20 6f 6c 64 20 2e |"\.If ni|l, old .|
|00001420| 65 6c 63 20 66 69 6c 65 | 73 20 61 72 65 20 64 65 |elc file|s are de|
|00001430| 6c 65 74 65 64 20 62 65 | 66 6f 72 65 20 74 68 65 |leted be|fore the|
|00001440| 20 6e 65 77 20 69 73 20 | 73 61 76 65 64 2c 20 61 | new is |saved, a|
|00001450| 6e 64 20 2e 65 6c 63 0a | 66 69 6c 65 73 20 77 69 |nd .elc.|files wi|
|00001460| 6c 6c 20 68 61 76 65 20 | 74 68 65 20 73 61 6d 65 |ll have |the same|
|00001470| 20 6d 6f 64 65 73 20 61 | 73 20 74 68 65 20 63 6f | modes a|s the co|
|00001480| 72 72 65 73 70 6f 6e 64 | 69 6e 67 20 2e 65 6c 20 |rrespond|ing .el |
|00001490| 66 69 6c 65 2e 20 20 4f | 74 68 65 72 77 69 73 65 |file. O|therwise|
|000014a0| 2c 0a 65 78 69 73 74 69 | 6e 67 20 2e 65 6c 63 20 |,.existi|ng .elc |
|000014b0| 66 69 6c 65 73 20 77 69 | 6c 6c 20 73 69 6d 70 6c |files wi|ll simpl|
|000014c0| 79 20 62 65 20 6f 76 65 | 72 77 72 69 74 74 65 6e |y be ove|rwritten|
|000014d0| 2c 20 61 6e 64 20 74 68 | 65 20 65 78 69 73 74 69 |, and th|e existi|
|000014e0| 6e 67 20 6d 6f 64 65 73 | 0a 77 69 6c 6c 20 6e 6f |ng modes|.will no|
|000014f0| 74 20 62 65 20 63 68 61 | 6e 67 65 64 2e 20 20 49 |t be cha|nged. I|
|00001500| 66 20 74 68 69 73 20 76 | 61 72 69 61 62 6c 65 20 |f this v|ariable |
|00001510| 69 73 20 6e 69 6c 2c 20 | 74 68 65 6e 20 61 6e 20 |is nil, |then an |
|00001520| 2e 65 6c 63 20 66 69 6c | 65 20 77 68 69 63 68 20 |.elc fil|e which |
|00001530| 0a 69 73 20 61 20 73 79 | 6d 62 6f 6c 69 63 20 6c |.is a sy|mbolic l|
|00001540| 69 6e 6b 20 77 69 6c 6c | 20 62 65 20 74 75 72 6e |ink will| be turn|
|00001550| 65 64 20 69 6e 74 6f 20 | 61 20 6e 6f 72 6d 61 6c |ed into |a normal|
|00001560| 20 66 69 6c 65 2c 20 69 | 6e 73 74 65 61 64 20 6f | file, i|nstead o|
|00001570| 66 20 74 68 65 20 66 69 | 6c 65 0a 77 68 69 63 68 |f the fi|le.which|
|00001580| 20 74 68 65 20 6c 69 6e | 6b 20 70 6f 69 6e 74 73 | the lin|k points|
|00001590| 20 74 6f 20 62 65 69 6e | 67 20 6f 76 65 72 77 72 | to bein|g overwr|
|000015a0| 69 74 74 65 6e 2e 22 29 | 0a 28 64 65 66 76 61 72 |itten.")|.(defvar|
|000015b0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 63 6f | byte-co|mpile-co|
|000015c0| 6e 73 74 61 6e 74 73 20 | 6e 69 6c 20 22 5c 0a 6c |nstants |nil "\.l|
|000015d0| 69 73 74 20 6f 66 20 61 | 6c 6c 20 63 6f 6e 73 74 |ist of a|ll const|
|000015e0| 61 6e 74 73 20 65 6e 63 | 6f 75 6e 74 65 72 65 64 |ants enc|ountered|
|000015f0| 20 64 75 72 69 6e 67 20 | 63 6f 6d 70 69 6c 61 74 | during |compilat|
|00001600| 69 6f 6e 20 6f 66 20 74 | 68 69 73 20 66 6f 72 6d |ion of t|his form|
|00001610| 22 29 0a 28 64 65 66 76 | 61 72 20 62 79 74 65 2d |").(defv|ar byte-|
|00001620| 63 6f 6d 70 69 6c 65 2d | 76 61 72 69 61 62 6c 65 |compile-|variable|
|00001630| 73 20 6e 69 6c 20 22 5c | 0a 6c 69 73 74 20 6f 66 |s nil "\|.list of|
|00001640| 20 61 6c 6c 20 76 61 72 | 69 61 62 6c 65 73 20 65 | all var|iables e|
|00001650| 6e 63 6f 75 6e 74 65 72 | 65 64 20 64 75 72 69 6e |ncounter|ed durin|
|00001660| 67 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 20 6f 66 |g compil|ation of|
|00001670| 20 74 68 69 73 20 66 6f | 72 6d 22 29 0a 28 64 65 | this fo|rm").(de|
|00001680| 66 76 61 72 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |fvar byt|e-compil|
|00001690| 65 2d 62 6f 75 6e 64 2d | 76 61 72 69 61 62 6c 65 |e-bound-|variable|
|000016a0| 73 20 6e 69 6c 20 22 5c | 0a 6c 69 73 74 20 6f 66 |s nil "\|.list of|
|000016b0| 20 76 61 72 69 61 62 6c | 65 73 20 62 6f 75 6e 64 | variabl|es bound|
|000016c0| 20 69 6e 20 74 68 65 20 | 63 6f 6e 74 65 78 74 20 | in the |context |
|000016d0| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 66 |of the c|urrent f|
|000016e0| 6f 72 6d 3b 20 74 68 69 | 73 20 6c 69 73 74 0a 6c |orm; thi|s list.l|
|000016f0| 69 76 65 73 20 70 61 72 | 74 6c 79 20 6f 6e 20 74 |ives par|tly on t|
|00001700| 68 65 20 73 74 61 63 6b | 2e 22 29 0a 28 64 65 66 |he stack|.").(def|
|00001710| 63 6f 6e 73 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |const by|te-compi|
|00001720| 6c 65 2d 69 6e 69 74 69 | 61 6c 2d 6d 61 63 72 6f |le-initi|al-macro|
|00001730| 2d 65 6e 76 69 72 6f 6e | 6d 65 6e 74 20 27 28 28 |-environ|ment '((|
|00001740| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 72 2d 6f 70 |byte-com|piler-op|
|00001750| 74 69 6f 6e 73 20 6c 61 | 6d 62 64 61 20 28 26 72 |tions la|mbda (&r|
|00001760| 65 73 74 20 66 6f 72 6d | 73 29 20 28 61 70 70 6c |est form|s) (appl|
|00001770| 79 20 27 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 72 |y 'byte-|compiler|
|00001780| 2d 6f 70 74 69 6f 6e 73 | 2d 68 61 6e 64 6c 65 72 |-options|-handler|
|00001790| 20 66 6f 72 6d 73 29 29 | 20 28 65 76 61 6c 2d 77 | forms))| (eval-w|
|000017a0| 68 65 6e 2d 63 6f 6d 70 | 69 6c 65 20 6c 61 6d 62 |hen-comp|ile lamb|
|000017b0| 64 61 20 28 26 72 65 73 | 74 20 62 6f 64 79 29 20 |da (&res|t body) |
|000017c0| 28 6c 69 73 74 20 27 71 | 75 6f 74 65 20 28 65 76 |(list 'q|uote (ev|
|000017d0| 61 6c 20 28 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |al (byte|-compile|
|000017e0| 2d 74 6f 70 2d 6c 65 76 | 65 6c 20 28 63 6f 6e 73 |-top-lev|el (cons|
|000017f0| 20 27 70 72 6f 67 6e 20 | 62 6f 64 79 29 29 29 29 | 'progn |body))))|
|00001800| 29 20 28 65 76 61 6c 2d | 61 6e 64 2d 63 6f 6d 70 |) (eval-|and-comp|
|00001810| 69 6c 65 20 6c 61 6d 62 | 64 61 20 28 26 72 65 73 |ile lamb|da (&res|
|00001820| 74 20 62 6f 64 79 29 20 | 28 65 76 61 6c 20 28 63 |t body) |(eval (c|
|00001830| 6f 6e 73 20 27 70 72 6f | 67 6e 20 62 6f 64 79 29 |ons 'pro|gn body)|
|00001840| 29 20 28 63 6f 6e 73 20 | 27 70 72 6f 67 6e 20 62 |) (cons |'progn b|
|00001850| 6f 64 79 29 29 29 20 22 | 5c 0a 54 68 65 20 64 65 |ody))) "|\.The de|
|00001860| 66 61 75 6c 74 20 6d 61 | 63 72 6f 2d 65 6e 76 69 |fault ma|cro-envi|
|00001870| 72 6f 6e 6d 65 6e 74 20 | 70 61 73 73 65 64 20 74 |ronment |passed t|
|00001880| 6f 20 6d 61 63 72 6f 65 | 78 70 61 6e 64 20 62 79 |o macroe|xpand by|
|00001890| 20 74 68 65 20 63 6f 6d | 70 69 6c 65 72 2e 0a 50 | the com|piler..P|
|000018a0| 6c 61 63 69 6e 67 20 61 | 20 6d 61 63 72 6f 20 68 |lacing a| macro h|
|000018b0| 65 72 65 20 77 69 6c 6c | 20 63 61 75 73 65 20 61 |ere will| cause a|
|000018c0| 20 6d 61 63 72 6f 20 74 | 6f 20 68 61 76 65 20 64 | macro t|o have d|
|000018d0| 69 66 66 65 72 65 6e 74 | 20 73 65 6d 61 6e 74 69 |ifferent| semanti|
|000018e0| 63 73 20 77 68 65 6e 0a | 65 78 70 61 6e 64 65 64 |cs when.|expanded|
|000018f0| 20 62 79 20 74 68 65 20 | 63 6f 6d 70 69 6c 65 72 | by the |compiler|
|00001900| 20 61 73 20 77 68 65 6e | 20 65 78 70 61 6e 64 65 | as when| expande|
|00001910| 64 20 62 79 20 74 68 65 | 20 69 6e 74 65 72 70 72 |d by the| interpr|
|00001920| 65 74 65 72 2e 22 29 0a | 28 64 65 66 76 61 72 20 |eter.").|(defvar |
|00001930| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 6d 61 63 |byte-com|pile-mac|
|00001940| 72 6f 2d 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 62 |ro-envir|onment b|
|00001950| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 69 74 |yte-comp|ile-init|
|00001960| 69 61 6c 2d 6d 61 63 72 | 6f 2d 65 6e 76 69 72 6f |ial-macr|o-enviro|
|00001970| 6e 6d 65 6e 74 20 22 5c | 0a 41 6c 69 73 74 20 6f |nment "\|.Alist o|
|00001980| 66 20 28 4d 41 43 52 4f | 4e 41 4d 45 20 2e 20 44 |f (MACRO|NAME . D|
|00001990| 45 46 49 4e 49 54 49 4f | 4e 29 20 6d 61 63 72 6f |EFINITIO|N) macro|
|000019a0| 73 20 64 65 66 69 6e 65 | 64 20 69 6e 20 74 68 65 |s define|d in the|
|000019b0| 20 66 69 6c 65 20 77 68 | 69 63 68 20 69 73 20 62 | file wh|ich is b|
|000019c0| 65 69 6e 67 20 0a 63 6f | 6d 70 69 6c 65 64 2e 20 |eing .co|mpiled. |
|000019d0| 20 49 74 20 69 73 20 28 | 4d 41 43 52 4f 4e 41 4d | It is (|MACRONAM|
|000019e0| 45 20 2e 20 6e 69 6c 29 | 20 77 68 65 6e 20 61 20 |E . nil)| when a |
|000019f0| 6d 61 63 72 6f 20 69 73 | 20 72 65 64 65 66 69 6e |macro is| redefin|
|00001a00| 65 64 20 61 73 20 61 20 | 66 75 6e 63 74 69 6f 6e |ed as a |function|
|00001a10| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 62 79 74 65 |.").(def|var byte|
|00001a20| 2d 63 6f 6d 70 69 6c 65 | 2d 66 75 6e 63 74 69 6f |-compile|-functio|
|00001a30| 6e 2d 65 6e 76 69 72 6f | 6e 6d 65 6e 74 20 6e 69 |n-enviro|nment ni|
|00001a40| 6c 20 22 5c 0a 41 6c 69 | 73 74 20 6f 66 20 28 46 |l "\.Ali|st of (F|
|00001a50| 55 4e 43 54 49 4f 4e 4e | 41 4d 45 20 2e 20 44 45 |UNCTIONN|AME . DE|
|00001a60| 46 49 4e 49 54 49 4f 4e | 29 20 66 75 6e 63 74 69 |FINITION|) functi|
|00001a70| 6f 6e 73 20 64 65 66 69 | 6e 65 64 20 69 6e 20 74 |ons defi|ned in t|
|00001a80| 68 65 20 66 69 6c 65 20 | 77 68 69 63 68 0a 69 73 |he file |which.is|
|00001a90| 20 62 65 69 6e 67 20 63 | 6f 6d 70 69 6c 65 64 20 | being c|ompiled |
|00001aa0| 28 74 68 69 73 20 69 73 | 20 73 6f 20 77 65 20 63 |(this is| so we c|
|00001ab0| 61 6e 20 69 6e 6c 69 6e | 65 20 74 68 65 6d 20 69 |an inlin|e them i|
|00001ac0| 66 20 6e 65 63 65 73 73 | 61 72 79 29 2e 20 20 49 |f necess|ary). I|
|00001ad0| 74 20 69 73 0a 28 46 55 | 4e 43 54 49 4f 4e 4e 41 |t is.(FU|NCTIONNA|
|00001ae0| 4d 45 20 2e 20 6e 69 6c | 29 20 77 68 65 6e 20 61 |ME . nil|) when a|
|00001af0| 20 66 75 6e 63 74 69 6f | 6e 20 69 73 20 72 65 64 | functio|n is red|
|00001b00| 65 66 69 6e 65 64 20 61 | 73 20 61 20 6d 61 63 72 |efined a|s a macr|
|00001b10| 6f 2e 22 29 0a 28 64 65 | 66 76 61 72 20 62 79 74 |o.").(de|fvar byt|
|00001b20| 65 2d 63 6f 6d 70 69 6c | 65 2d 75 6e 72 65 73 6f |e-compil|e-unreso|
|00001b30| 6c 76 65 64 2d 66 75 6e | 63 74 69 6f 6e 73 20 6e |lved-fun|ctions n|
|00001b40| 69 6c 20 22 5c 0a 41 6c | 69 73 74 20 6f 66 20 75 |il "\.Al|ist of u|
|00001b50| 6e 64 65 66 69 6e 65 64 | 20 66 75 6e 63 74 69 6f |ndefined| functio|
|00001b60| 6e 73 20 74 6f 20 77 68 | 69 63 68 20 63 61 6c 6c |ns to wh|ich call|
|00001b70| 73 20 68 61 76 65 20 62 | 65 65 6e 20 63 6f 6d 70 |s have b|een comp|
|00001b80| 69 6c 65 64 20 28 75 73 | 65 64 20 66 6f 72 0a 77 |iled (us|ed for.w|
|00001b90| 61 72 6e 69 6e 67 73 20 | 77 68 65 6e 20 74 68 65 |arnings |when the|
|00001ba0| 20 66 75 6e 63 74 69 6f | 6e 20 69 73 20 6c 61 74 | functio|n is lat|
|00001bb0| 65 72 20 64 65 66 69 6e | 65 64 20 77 69 74 68 20 |er defin|ed with |
|00001bc0| 69 6e 63 6f 72 72 65 63 | 74 20 61 72 67 73 29 2e |incorrec|t args).|
|00001bd0| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |").(byte|-code ".|
|00001be0| c1 21 ac 82 c2 11 c0 87 | 22 20 5b 62 6f 75 6e 64 |.!......|" [bound|
|00001bf0| 70 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 74 |p byte-c|ompile-t|
|00001c00| 61 67 2d 6e 75 6d 62 65 | 72 20 30 5d 20 32 29 0a |ag-numbe|r 0] 2).|
|00001c10| 28 64 65 66 76 61 72 20 | 62 79 74 65 2d 63 6f 6d |(defvar |byte-com|
|00001c20| 70 69 6c 65 2d 6f 75 74 | 70 75 74 20 6e 69 6c 20 |pile-out|put nil |
|00001c30| 22 5c 0a 41 6c 69 73 74 | 20 64 65 73 63 72 69 62 |"\.Alist| describ|
|00001c40| 69 6e 67 20 63 6f 6e 74 | 65 6e 74 73 20 74 6f 20 |ing cont|ents to |
|00001c50| 70 75 74 20 69 6e 20 62 | 79 74 65 20 63 6f 64 65 |put in b|yte code|
|00001c60| 20 73 74 72 69 6e 67 2e | 0a 45 61 63 68 20 65 6c | string.|.Each el|
|00001c70| 65 6d 65 6e 74 20 69 73 | 20 28 49 4e 44 45 58 20 |ement is| (INDEX |
|00001c80| 2e 20 56 41 4c 55 45 29 | 22 29 0a 28 64 65 66 76 |. VALUE)|").(defv|
|00001c90| 61 72 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |ar byte-|compile-|
|00001ca0| 64 65 70 74 68 20 30 20 | 22 5c 0a 43 75 72 72 65 |depth 0 |"\.Curre|
|00001cb0| 6e 74 20 64 65 70 74 68 | 20 6f 66 20 65 78 65 63 |nt depth| of exec|
|00001cc0| 75 74 69 6f 6e 20 73 74 | 61 63 6b 2e 22 29 0a 28 |ution st|ack.").(|
|00001cd0| 64 65 66 76 61 72 20 62 | 79 74 65 2d 63 6f 6d 70 |defvar b|yte-comp|
|00001ce0| 69 6c 65 2d 6d 61 78 64 | 65 70 74 68 20 30 20 22 |ile-maxd|epth 0 "|
|00001cf0| 5c 0a 4d 61 78 69 6d 75 | 6d 20 64 65 70 74 68 20 |\.Maximu|m depth |
|00001d00| 6f 66 20 65 78 65 63 75 | 74 69 6f 6e 20 73 74 61 |of execu|tion sta|
|00001d10| 63 6b 2e 22 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |ck.").(d|efconst |
|00001d20| 62 79 74 65 2d 63 6f 64 | 65 2d 76 65 63 74 6f 72 |byte-cod|e-vector|
|00001d30| 20 6e 69 6c 20 22 5c 0a | 41 6e 20 61 72 72 61 79 | nil "\.|An array|
|00001d40| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 62 79 74 65 | contain|ing byte|
|00001d50| 2d 63 6f 64 65 20 6e 61 | 6d 65 73 20 69 6e 64 65 |-code na|mes inde|
|00001d60| 78 65 64 20 62 79 20 62 | 79 74 65 2d 63 6f 64 65 |xed by b|yte-code|
|00001d70| 20 76 61 6c 75 65 73 2e | 22 29 0a 28 64 65 66 63 | values.|").(defc|
|00001d80| 6f 6e 73 74 20 62 79 74 | 65 2d 73 74 61 63 6b 2b |onst byt|e-stack+|
|00001d90| 2d 69 6e 66 6f 20 6e 69 | 6c 20 22 5c 0a 41 6e 20 |-info ni|l "\.An |
|00001da0| 61 72 72 61 79 20 77 69 | 74 68 20 74 68 65 20 73 |array wi|th the s|
|00001db0| 74 61 63 6b 20 61 64 6a | 75 73 74 6d 65 6e 74 20 |tack adj|ustment |
|00001dc0| 66 6f 72 20 65 61 63 68 | 20 62 79 74 65 2d 63 6f |for each| byte-co|
|00001dd0| 64 65 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |de.").(b|yte-code|
|00001de0| 20 22 c0 c1 4d 88 c2 c3 | 4d 87 22 20 5b 62 79 74 | "..M...|M." [byt|
|00001df0| 65 2d 64 65 66 6f 70 20 | 28 6d 61 63 72 6f 20 2e |e-defop |(macro .|
|00001e00| 20 23 5b 28 6f 70 63 6f | 64 65 20 73 74 61 63 6b | #[(opco|de stack|
|00001e10| 2d 61 64 6a 75 73 74 20 | 6f 70 6e 61 6d 65 20 26 |-adjust |opname &|
|00001e20| 6f 70 74 69 6f 6e 61 6c | 20 64 6f 63 73 74 72 69 |optional| docstri|
|00001e30| 6e 67 29 20 22 c0 c1 4e | ae 88 c2 c0 c1 c3 c4 c5 |ng) "..N|........|
|00001e40| 5c 22 23 c6 c1 4e ae 88 | c2 c6 c1 c3 c4 c5 5c 22 |\"#..N..|......\"|
|00001e50| 23 1e 07 89 1e 08 0e 09 | 0e 5c 6e 49 88 0e 07 0e |#.......|.\nI....|
|00001e60| 09 0e 0b 49 88 2a 0e 0c | ab 8c cd 0e 5c 6e 0e 09 |...I.*..|....\n..|
|00001e70| ce 0e 0c cf 51 46 87 cd | 0e 5c 6e 0e 09 45 87 22 |....QF..|.\n..E."|
|00001e80| 20 5b 62 79 74 65 2d 63 | 6f 64 65 2d 76 65 63 74 | [byte-c|ode-vect|
|00001e90| 6f 72 20 74 6d 70 2d 63 | 6f 6d 70 69 6c 65 2d 74 |or tmp-c|ompile-t|
|00001ea0| 69 6d 65 2d 76 61 6c 75 | 65 20 70 75 74 20 6d 61 |ime-valu|e put ma|
|00001eb0| 6b 65 2d 76 65 63 74 6f | 72 20 32 35 36 20 6e 69 |ke-vecto|r 256 ni|
|00001ec0| 6c 20 62 79 74 65 2d 73 | 74 61 63 6b 2b 2d 69 6e |l byte-s|tack+-in|
|00001ed0| 66 6f 20 76 32 20 76 31 | 20 6f 70 63 6f 64 65 20 |fo v2 v1| opcode |
|00001ee0| 6f 70 6e 61 6d 65 20 73 | 74 61 63 6b 2d 61 64 6a |opname s|tack-adj|
|00001ef0| 75 73 74 20 64 6f 63 73 | 74 72 69 6e 67 20 64 65 |ust docs|tring de|
|00001f00| 66 63 6f 6e 73 74 20 22 | 42 79 74 65 20 63 6f 64 |fconst "|Byte cod|
|00001f10| 65 20 6f 70 63 6f 64 65 | 20 22 20 22 2e 22 5d 20 |e opcode| " "."] |
|00001f20| 38 5d 29 20 62 79 74 65 | 2d 65 78 74 72 75 64 65 |8]) byte|-extrude|
|00001f30| 2d 62 79 74 65 2d 63 6f | 64 65 2d 76 65 63 74 6f |-byte-co|de-vecto|
|00001f40| 72 73 20 28 6d 61 63 72 | 6f 20 2e 20 23 5b 6e 69 |rs (macr|o . #[ni|
|00001f50| 6c 20 22 c0 c1 89 c2 4e | c3 89 c2 4e af 05 c4 c1 |l "....N|...N....|
|00001f60| c2 c5 23 88 c4 c3 c2 c5 | 23 88 87 22 20 5b 73 65 |..#.....|#.." [se|
|00001f70| 74 71 20 62 79 74 65 2d | 63 6f 64 65 2d 76 65 63 |tq byte-|code-vec|
|00001f80| 74 6f 72 20 74 6d 70 2d | 63 6f 6d 70 69 6c 65 2d |tor tmp-|compile-|
|00001f90| 74 69 6d 65 2d 76 61 6c | 75 65 20 62 79 74 65 2d |time-val|ue byte-|
|00001fa0| 73 74 61 63 6b 2b 2d 69 | 6e 66 6f 20 70 75 74 20 |stack+-i|nfo put |
|00001fb0| 6e 69 6c 5d 20 36 5d 29 | 5d 20 32 29 0a 28 64 65 |nil] 6])|] 2).(de|
|00001fc0| 66 63 6f 6e 73 74 20 62 | 79 74 65 2d 76 61 72 72 |fconst b|yte-varr|
|00001fd0| 65 66 20 38 20 22 5c 0a | 42 79 74 65 20 63 6f 64 |ef 8 "\.|Byte cod|
|00001fe0| 65 20 6f 70 63 6f 64 65 | 20 66 6f 72 20 76 61 72 |e opcode| for var|
|00001ff0| 69 61 62 6c 65 20 72 65 | 66 65 72 65 6e 63 65 2e |iable re|ference.|
|00002000| 22 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 62 79 74 |").(defc|onst byt|
|00002010| 65 2d 76 61 72 73 65 74 | 20 31 36 20 22 5c 0a 42 |e-varset| 16 "\.B|
|00002020| 79 74 65 20 63 6f 64 65 | 20 6f 70 63 6f 64 65 20 |yte code| opcode |
|00002030| 66 6f 72 20 73 65 74 74 | 69 6e 67 20 61 20 76 61 |for sett|ing a va|
|00002040| 72 69 61 62 6c 65 2e 22 | 29 0a 28 64 65 66 63 6f |riable."|).(defco|
|00002050| 6e 73 74 20 62 79 74 65 | 2d 76 61 72 62 69 6e 64 |nst byte|-varbind|
|00002060| 20 32 34 20 22 5c 0a 42 | 79 74 65 20 63 6f 64 65 | 24 "\.B|yte code|
|00002070| 20 6f 70 63 6f 64 65 20 | 66 6f 72 20 62 69 6e 64 | opcode |for bind|
|00002080| 69 6e 67 20 61 20 76 61 | 72 69 61 62 6c 65 2e 22 |ing a va|riable."|
|00002090| 29 0a 28 64 65 66 63 6f | 6e 73 74 20 62 79 74 65 |).(defco|nst byte|
|000020a0| 2d 63 61 6c 6c 20 33 32 | 20 22 5c 0a 42 79 74 65 |-call 32| "\.Byte|
|000020b0| 20 63 6f 64 65 20 6f 70 | 63 6f 64 65 20 66 6f 72 | code op|code for|
|000020c0| 20 63 61 6c 6c 69 6e 67 | 20 61 20 66 75 6e 63 74 | calling| a funct|
|000020d0| 69 6f 6e 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |ion.").(|defconst|
|000020e0| 20 62 79 74 65 2d 75 6e | 62 69 6e 64 20 34 30 20 | byte-un|bind 40 |
|000020f0| 22 5c 0a 42 79 74 65 20 | 63 6f 64 65 20 6f 70 63 |"\.Byte |code opc|
|00002100| 6f 64 65 20 66 6f 72 20 | 75 6e 62 69 6e 64 69 6e |ode for |unbindin|
|00002110| 67 20 73 70 65 63 69 61 | 6c 20 62 69 6e 64 69 6e |g specia|l bindin|
|00002120| 67 73 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |gs.").(b|yte-code|
|00002130| 20 22 c0 11 c2 13 c4 15 | c6 16 07 c8 16 09 ca 16 | "......|........|
|00002140| 0b cc 16 0d ce 16 0f d0 | 16 11 d2 16 13 d4 16 15 |........|........|
|00002150| d6 16 17 d8 16 19 da 16 | 1b dc 16 1d de 16 1f e0 |........|........|
|00002160| 16 21 e2 16 23 e4 16 25 | e6 16 27 e8 16 29 ea 16 |.!..#..%|..'..)..|
|00002170| 2b ec 16 2d ee 16 2f f0 | 16 31 f2 16 33 f4 16 35 |+..-../.|.1..3..5|
|00002180| f6 16 37 f8 16 39 fa 16 | 3b fc 16 3d fe 16 3f 81 |..7..9..|;..=..?.|
|00002190| 40 00 16 41 81 42 00 16 | 43 81 44 00 16 45 81 46 |@..A.B..|C.D..E.F|
|000021a0| 00 16 47 81 48 00 16 49 | 81 4a 00 16 4b 81 4c 00 |..G.H..I|.J..K.L.|
|000021b0| 16 4d 81 4e 00 16 4f 81 | 50 00 16 51 81 52 00 16 |.M.N..O.|P..Q.R..|
|000021c0| 53 81 54 00 16 55 81 56 | 00 16 57 81 58 00 16 59 |S.T..U.V|..W.X..Y|
|000021d0| 81 5a 00 16 5b 81 5c 5c | 00 16 5d 81 5e 00 16 5f |.Z..[.\\|..].^.._|
|000021e0| 81 60 00 16 61 81 62 00 | 16 63 81 64 00 16 65 81 |.`..a.b.|.c.d..e.|
|000021f0| 66 00 16 67 81 68 00 16 | 69 81 6a 00 16 6b 81 6c |f..g.h..|i.j..k.l|
|00002200| 00 16 6d 81 6e 00 16 6f | 81 70 00 16 71 81 72 00 |..m.n..o|.p..q.r.|
|00002210| 16 73 81 74 00 16 75 81 | 76 00 16 77 81 78 00 16 |.s.t..u.|v..w.x..|
|00002220| 79 81 7a 00 16 7b 81 7c | 00 16 7d 81 7e 00 16 7f |y.z..{.||..}.~...|
|00002230| 81 80 00 16 81 81 82 00 | 16 83 81 84 00 16 85 81 |........|........|
|00002240| 86 00 16 87 81 88 00 16 | 89 81 8a 00 16 8b 81 8c |........|........|
|00002250| 00 16 8d 81 8e 00 16 8f | c0 87 22 20 5b 35 36 20 |........|.." [56 |
|00002260| 62 79 74 65 2d 6e 74 68 | 20 35 37 20 62 79 74 65 |byte-nth| 57 byte|
|00002270| 2d 73 79 6d 62 6f 6c 70 | 20 35 38 20 62 79 74 65 |-symbolp| 58 byte|
|00002280| 2d 63 6f 6e 73 70 20 35 | 39 20 62 79 74 65 2d 73 |-consp 5|9 byte-s|
|00002290| 74 72 69 6e 67 70 20 36 | 30 20 62 79 74 65 2d 6c |tringp 6|0 byte-l|
|000022a0| 69 73 74 70 20 36 31 20 | 62 79 74 65 2d 65 71 20 |istp 61 |byte-eq |
|000022b0| 36 32 20 62 79 74 65 2d | 6d 65 6d 71 20 36 33 20 |62 byte-|memq 63 |
|000022c0| 62 79 74 65 2d 6e 6f 74 | 20 36 34 20 62 79 74 65 |byte-not| 64 byte|
|000022d0| 2d 63 61 72 20 36 35 20 | 62 79 74 65 2d 63 64 72 |-car 65 |byte-cdr|
|000022e0| 20 36 36 20 62 79 74 65 | 2d 63 6f 6e 73 20 36 37 | 66 byte|-cons 67|
|000022f0| 20 62 79 74 65 2d 6c 69 | 73 74 31 20 36 38 20 62 | byte-li|st1 68 b|
|00002300| 79 74 65 2d 6c 69 73 74 | 32 20 36 39 20 62 79 74 |yte-list|2 69 byt|
|00002310| 65 2d 6c 69 73 74 33 20 | 37 30 20 62 79 74 65 2d |e-list3 |70 byte-|
|00002320| 6c 69 73 74 34 20 37 31 | 20 62 79 74 65 2d 6c 65 |list4 71| byte-le|
|00002330| 6e 67 74 68 20 37 32 20 | 62 79 74 65 2d 61 72 65 |ngth 72 |byte-are|
|00002340| 66 20 37 33 20 62 79 74 | 65 2d 61 73 65 74 20 37 |f 73 byt|e-aset 7|
|00002350| 34 20 62 79 74 65 2d 73 | 79 6d 62 6f 6c 2d 76 61 |4 byte-s|ymbol-va|
|00002360| 6c 75 65 20 37 35 20 62 | 79 74 65 2d 73 79 6d 62 |lue 75 b|yte-symb|
|00002370| 6f 6c 2d 66 75 6e 63 74 | 69 6f 6e 20 37 36 20 62 |ol-funct|ion 76 b|
|00002380| 79 74 65 2d 73 65 74 20 | 37 37 20 62 79 74 65 2d |yte-set |77 byte-|
|00002390| 66 73 65 74 20 37 38 20 | 62 79 74 65 2d 67 65 74 |fset 78 |byte-get|
|000023a0| 20 37 39 20 62 79 74 65 | 2d 73 75 62 73 74 72 69 | 79 byte|-substri|
|000023b0| 6e 67 20 38 30 20 62 79 | 74 65 2d 63 6f 6e 63 61 |ng 80 by|te-conca|
|000023c0| 74 32 20 38 31 20 62 79 | 74 65 2d 63 6f 6e 63 61 |t2 81 by|te-conca|
|000023d0| 74 33 20 38 32 20 62 79 | 74 65 2d 63 6f 6e 63 61 |t3 82 by|te-conca|
|000023e0| 74 34 20 38 33 20 62 79 | 74 65 2d 73 75 62 31 20 |t4 83 by|te-sub1 |
|000023f0| 38 34 20 62 79 74 65 2d | 61 64 64 31 20 38 35 20 |84 byte-|add1 85 |
|00002400| 62 79 74 65 2d 65 71 6c | 73 69 67 6e 20 38 36 20 |byte-eql|sign 86 |
|00002410| 62 79 74 65 2d 67 74 72 | 20 38 37 20 62 79 74 65 |byte-gtr| 87 byte|
|00002420| 2d 6c 73 73 20 38 38 20 | 62 79 74 65 2d 6c 65 71 |-lss 88 |byte-leq|
|00002430| 20 38 39 20 62 79 74 65 | 2d 67 65 71 20 39 30 20 | 89 byte|-geq 90 |
|00002440| 62 79 74 65 2d 64 69 66 | 66 20 39 31 20 62 79 74 |byte-dif|f 91 byt|
|00002450| 65 2d 6e 65 67 61 74 65 | 20 39 32 20 62 79 74 65 |e-negate| 92 byte|
|00002460| 2d 70 6c 75 73 20 39 33 | 20 62 79 74 65 2d 6d 61 |-plus 93| byte-ma|
|00002470| 78 20 39 34 20 62 79 74 | 65 2d 6d 69 6e 20 39 35 |x 94 byt|e-min 95|
|00002480| 20 62 79 74 65 2d 6d 75 | 6c 74 20 39 36 20 62 79 | byte-mu|lt 96 by|
|00002490| 74 65 2d 70 6f 69 6e 74 | 20 39 37 20 62 79 74 65 |te-point| 97 byte|
|000024a0| 2d 6d 61 72 6b 2d 4f 42 | 53 4f 4c 45 54 45 20 39 |-mark-OB|SOLETE 9|
|000024b0| 38 20 62 79 74 65 2d 67 | 6f 74 6f 2d 63 68 61 72 |8 byte-g|oto-char|
|000024c0| 20 39 39 20 62 79 74 65 | 2d 69 6e 73 65 72 74 20 | 99 byte|-insert |
|000024d0| 31 30 30 20 62 79 74 65 | 2d 70 6f 69 6e 74 2d 6d |100 byte|-point-m|
|000024e0| 61 78 20 31 30 31 20 62 | 79 74 65 2d 70 6f 69 6e |ax 101 b|yte-poin|
|000024f0| 74 2d 6d 69 6e 20 31 30 | 32 20 62 79 74 65 2d 63 |t-min 10|2 byte-c|
|00002500| 68 61 72 2d 61 66 74 65 | 72 20 31 30 33 20 62 79 |har-afte|r 103 by|
|00002510| 74 65 2d 66 6f 6c 6c 6f | 77 69 6e 67 2d 63 68 61 |te-follo|wing-cha|
|00002520| 72 20 31 30 34 20 62 79 | 74 65 2d 70 72 65 63 65 |r 104 by|te-prece|
|00002530| 64 69 6e 67 2d 63 68 61 | 72 20 31 30 35 20 62 79 |ding-cha|r 105 by|
|00002540| 74 65 2d 63 75 72 72 65 | 6e 74 2d 63 6f 6c 75 6d |te-curre|nt-colum|
|00002550| 6e 20 31 30 36 20 62 79 | 74 65 2d 69 6e 64 65 6e |n 106 by|te-inden|
|00002560| 74 2d 74 6f 20 31 30 37 | 20 62 79 74 65 2d 73 63 |t-to 107| byte-sc|
|00002570| 61 6e 2d 62 75 66 66 65 | 72 2d 4f 42 53 4f 4c 45 |an-buffe|r-OBSOLE|
|00002580| 54 45 20 31 30 38 20 62 | 79 74 65 2d 65 6f 6c 70 |TE 108 b|yte-eolp|
|00002590| 20 31 30 39 20 62 79 74 | 65 2d 65 6f 62 70 20 31 | 109 byt|e-eobp 1|
|000025a0| 31 30 20 62 79 74 65 2d | 62 6f 6c 70 20 31 31 31 |10 byte-|bolp 111|
|000025b0| 20 62 79 74 65 2d 62 6f | 62 70 20 31 31 32 20 62 | byte-bo|bp 112 b|
|000025c0| 79 74 65 2d 63 75 72 72 | 65 6e 74 2d 62 75 66 66 |yte-curr|ent-buff|
|000025d0| 65 72 20 31 31 33 20 62 | 79 74 65 2d 73 65 74 2d |er 113 b|yte-set-|
|000025e0| 62 75 66 66 65 72 20 31 | 31 34 20 62 79 74 65 2d |buffer 1|14 byte-|
|000025f0| 72 65 61 64 2d 63 68 61 | 72 2d 4f 42 53 4f 4c 45 |read-cha|r-OBSOLE|
|00002600| 54 45 20 31 31 35 20 62 | 79 74 65 2d 73 65 74 2d |TE 115 b|yte-set-|
|00002610| 6d 61 72 6b 2d 4f 42 53 | 4f 4c 45 54 45 20 31 31 |mark-OBS|OLETE 11|
|00002620| 36 20 62 79 74 65 2d 69 | 6e 74 65 72 61 63 74 69 |6 byte-i|nteracti|
|00002630| 76 65 2d 70 20 31 31 37 | 20 62 79 74 65 2d 66 6f |ve-p 117| byte-fo|
|00002640| 72 77 61 72 64 2d 63 68 | 61 72 20 31 31 38 20 62 |rward-ch|ar 118 b|
|00002650| 79 74 65 2d 66 6f 72 77 | 61 72 64 2d 77 6f 72 64 |yte-forw|ard-word|
|00002660| 20 31 31 39 20 62 79 74 | 65 2d 73 6b 69 70 2d 63 | 119 byt|e-skip-c|
|00002670| 68 61 72 73 2d 66 6f 72 | 77 61 72 64 20 31 32 30 |hars-for|ward 120|
|00002680| 20 62 79 74 65 2d 73 6b | 69 70 2d 63 68 61 72 73 | byte-sk|ip-chars|
|00002690| 2d 62 61 63 6b 77 61 72 | 64 20 31 32 31 20 62 79 |-backwar|d 121 by|
|000026a0| 74 65 2d 66 6f 72 77 61 | 72 64 2d 6c 69 6e 65 20 |te-forwa|rd-line |
|000026b0| 31 32 32 20 62 79 74 65 | 2d 63 68 61 72 2d 73 79 |122 byte|-char-sy|
|000026c0| 6e 74 61 78 20 31 32 33 | 20 62 79 74 65 2d 62 75 |ntax 123| byte-bu|
|000026d0| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 20 31 |ffer-sub|string 1|
|000026e0| 32 34 20 62 79 74 65 2d | 64 65 6c 65 74 65 2d 72 |24 byte-|delete-r|
|000026f0| 65 67 69 6f 6e 20 31 32 | 35 20 62 79 74 65 2d 6e |egion 12|5 byte-n|
|00002700| 61 72 72 6f 77 2d 74 6f | 2d 72 65 67 69 6f 6e 20 |arrow-to|-region |
|00002710| 31 32 36 20 62 79 74 65 | 2d 77 69 64 65 6e 20 31 |126 byte|-widen 1|
|00002720| 32 37 20 62 79 74 65 2d | 65 6e 64 2d 6f 66 2d 6c |27 byte-|end-of-l|
|00002730| 69 6e 65 5d 20 31 29 0a | 28 64 65 66 63 6f 6e 73 |ine] 1).|(defcons|
|00002740| 74 20 62 79 74 65 2d 63 | 6f 6e 73 74 61 6e 74 32 |t byte-c|onstant2|
|00002750| 20 31 32 39 20 22 5c 0a | 42 79 74 65 20 63 6f 64 | 129 "\.|Byte cod|
|00002760| 65 20 6f 70 63 6f 64 65 | 20 66 6f 72 20 72 65 66 |e opcode| for ref|
|00002770| 65 72 65 6e 63 65 20 74 | 6f 20 61 20 63 6f 6e 73 |erence t|o a cons|
|00002780| 74 61 6e 74 20 77 69 74 | 68 20 76 65 63 74 6f 72 |tant wit|h vector|
|00002790| 20 69 6e 64 65 78 20 3e | 3d 20 62 79 74 65 2d 63 | index >|= byte-c|
|000027a0| 6f 6e 73 74 61 6e 74 2d | 6c 69 6d 69 74 2e 22 29 |onstant-|limit.")|
|000027b0| 0a 28 64 65 66 63 6f 6e | 73 74 20 62 79 74 65 2d |.(defcon|st byte-|
|000027c0| 67 6f 74 6f 20 31 33 30 | 20 22 5c 0a 42 79 74 65 |goto 130| "\.Byte|
|000027d0| 20 63 6f 64 65 20 6f 70 | 63 6f 64 65 20 66 6f 72 | code op|code for|
|000027e0| 20 75 6e 63 6f 6e 64 69 | 74 69 6f 6e 61 6c 20 6a | uncondi|tional j|
|000027f0| 75 6d 70 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |ump.").(|defconst|
|00002800| 20 62 79 74 65 2d 67 6f | 74 6f 2d 69 66 2d 6e 69 | byte-go|to-if-ni|
|00002810| 6c 20 31 33 31 20 22 5c | 0a 42 79 74 65 20 63 6f |l 131 "\|.Byte co|
|00002820| 64 65 20 6f 70 63 6f 64 | 65 20 74 6f 20 70 6f 70 |de opcod|e to pop|
|00002830| 20 76 61 6c 75 65 20 61 | 6e 64 20 6a 75 6d 70 20 | value a|nd jump |
|00002840| 69 66 20 69 74 27 73 20 | 6e 69 6c 2e 22 29 0a 28 |if it's |nil.").(|
|00002850| 64 65 66 63 6f 6e 73 74 | 20 62 79 74 65 2d 67 6f |defconst| byte-go|
|00002860| 74 6f 2d 69 66 2d 6e 6f | 74 2d 6e 69 6c 20 31 33 |to-if-no|t-nil 13|
|00002870| 32 20 22 5c 0a 42 79 74 | 65 20 63 6f 64 65 20 6f |2 "\.Byt|e code o|
|00002880| 70 63 6f 64 65 20 74 6f | 20 70 6f 70 20 76 61 6c |pcode to| pop val|
|00002890| 75 65 20 61 6e 64 20 6a | 75 6d 70 20 69 66 20 69 |ue and j|ump if i|
|000028a0| 74 27 73 20 6e 6f 74 20 | 6e 69 6c 2e 22 29 0a 28 |t's not |nil.").(|
|000028b0| 64 65 66 63 6f 6e 73 74 | 20 62 79 74 65 2d 67 6f |defconst| byte-go|
|000028c0| 74 6f 2d 69 66 2d 6e 69 | 6c 2d 65 6c 73 65 2d 70 |to-if-ni|l-else-p|
|000028d0| 6f 70 20 31 33 33 20 22 | 5c 0a 42 79 74 65 20 63 |op 133 "|\.Byte c|
|000028e0| 6f 64 65 20 6f 70 63 6f | 64 65 20 74 6f 20 65 78 |ode opco|de to ex|
|000028f0| 61 6d 69 6e 65 20 74 6f | 70 2d 6f 66 2d 73 74 61 |amine to|p-of-sta|
|00002900| 63 6b 2c 20 6a 75 6d 70 | 20 61 6e 64 20 64 6f 6e |ck, jump| and don|
|00002910| 27 74 20 70 6f 70 20 69 | 74 20 69 66 20 69 74 27 |'t pop i|t if it'|
|00002920| 73 20 6e 69 6c 2c 20 0a | 6f 74 68 65 72 77 69 73 |s nil, .|otherwis|
|00002930| 65 20 70 6f 70 20 69 74 | 2e 22 29 0a 28 64 65 66 |e pop it|.").(def|
|00002940| 63 6f 6e 73 74 20 62 79 | 74 65 2d 67 6f 74 6f 2d |const by|te-goto-|
|00002950| 69 66 2d 6e 6f 74 2d 6e | 69 6c 2d 65 6c 73 65 2d |if-not-n|il-else-|
|00002960| 70 6f 70 20 31 33 34 20 | 22 5c 0a 42 79 74 65 20 |pop 134 |"\.Byte |
|00002970| 63 6f 64 65 20 6f 70 63 | 6f 64 65 20 74 6f 20 65 |code opc|ode to e|
|00002980| 78 61 6d 69 6e 65 20 74 | 6f 70 2d 6f 66 2d 73 74 |xamine t|op-of-st|
|00002990| 61 63 6b 2c 20 6a 75 6d | 70 20 61 6e 64 20 64 6f |ack, jum|p and do|
|000029a0| 6e 27 74 20 70 6f 70 20 | 69 74 20 69 66 20 69 74 |n't pop |it if it|
|000029b0| 27 73 20 6e 6f 6e 20 6e | 69 6c 2c 20 0a 6f 74 68 |'s non n|il, .oth|
|000029c0| 65 72 77 69 73 65 20 70 | 6f 70 20 69 74 2e 22 29 |erwise p|op it.")|
|000029d0| 0a 28 64 65 66 63 6f 6e | 73 74 20 62 79 74 65 2d |.(defcon|st byte-|
|000029e0| 72 65 74 75 72 6e 20 31 | 33 35 20 22 5c 0a 42 79 |return 1|35 "\.By|
|000029f0| 74 65 20 63 6f 64 65 20 | 6f 70 63 6f 64 65 20 74 |te code |opcode t|
|00002a00| 6f 20 70 6f 70 20 61 20 | 76 61 6c 75 65 20 61 6e |o pop a |value an|
|00002a10| 64 20 72 65 74 75 72 6e | 20 69 74 20 66 72 6f 6d |d return| it from|
|00002a20| 20 60 62 79 74 65 2d 63 | 6f 64 65 27 2e 22 29 0a | `byte-c|ode'.").|
|00002a30| 28 64 65 66 63 6f 6e 73 | 74 20 62 79 74 65 2d 64 |(defcons|t byte-d|
|00002a40| 69 73 63 61 72 64 20 31 | 33 36 20 22 5c 0a 42 79 |iscard 1|36 "\.By|
|00002a50| 74 65 20 63 6f 64 65 20 | 6f 70 63 6f 64 65 20 74 |te code |opcode t|
|00002a60| 6f 20 64 69 73 63 61 72 | 64 20 6f 6e 65 20 76 61 |o discar|d one va|
|00002a70| 6c 75 65 20 66 72 6f 6d | 20 73 74 61 63 6b 2e 22 |lue from| stack."|
|00002a80| 29 0a 28 64 65 66 63 6f | 6e 73 74 20 62 79 74 65 |).(defco|nst byte|
|00002a90| 2d 64 75 70 20 31 33 37 | 20 22 5c 0a 42 79 74 65 |-dup 137| "\.Byte|
|00002aa0| 20 63 6f 64 65 20 6f 70 | 63 6f 64 65 20 74 6f 20 | code op|code to |
|00002ab0| 64 75 70 6c 69 63 61 74 | 65 20 74 68 65 20 74 6f |duplicat|e the to|
|00002ac0| 70 20 6f 66 20 74 68 65 | 20 73 74 61 63 6b 2e 22 |p of the| stack."|
|00002ad0| 29 0a 28 64 65 66 63 6f | 6e 73 74 20 62 79 74 65 |).(defco|nst byte|
|00002ae0| 2d 73 61 76 65 2d 65 78 | 63 75 72 73 69 6f 6e 20 |-save-ex|cursion |
|00002af0| 31 33 38 20 22 5c 0a 42 | 79 74 65 20 63 6f 64 65 |138 "\.B|yte code|
|00002b00| 20 6f 70 63 6f 64 65 20 | 74 6f 20 6d 61 6b 65 20 | opcode |to make |
|00002b10| 61 20 62 69 6e 64 69 6e | 67 20 74 6f 20 72 65 63 |a bindin|g to rec|
|00002b20| 6f 72 64 20 74 68 65 20 | 62 75 66 66 65 72 2c 20 |ord the |buffer, |
|00002b30| 70 6f 69 6e 74 20 61 6e | 64 20 6d 61 72 6b 2e 22 |point an|d mark."|
|00002b40| 29 0a 28 64 65 66 63 6f | 6e 73 74 20 62 79 74 65 |).(defco|nst byte|
|00002b50| 2d 73 61 76 65 2d 77 69 | 6e 64 6f 77 2d 65 78 63 |-save-wi|ndow-exc|
|00002b60| 75 72 73 69 6f 6e 20 31 | 33 39 20 22 5c 0a 42 79 |ursion 1|39 "\.By|
|00002b70| 74 65 20 63 6f 64 65 20 | 6f 70 63 6f 64 65 20 74 |te code |opcode t|
|00002b80| 6f 20 6d 61 6b 65 20 61 | 20 62 69 6e 64 69 6e 67 |o make a| binding|
|00002b90| 20 74 6f 20 72 65 63 6f | 72 64 20 65 6e 74 69 72 | to reco|rd entir|
|00002ba0| 65 20 77 69 6e 64 6f 77 | 20 63 6f 6e 66 69 67 75 |e window| configu|
|00002bb0| 72 61 74 69 6f 6e 2e 22 | 29 0a 28 64 65 66 63 6f |ration."|).(defco|
|00002bc0| 6e 73 74 20 62 79 74 65 | 2d 73 61 76 65 2d 72 65 |nst byte|-save-re|
|00002bd0| 73 74 72 69 63 74 69 6f | 6e 20 31 34 30 20 22 5c |strictio|n 140 "\|
|00002be0| 0a 42 79 74 65 20 63 6f | 64 65 20 6f 70 63 6f 64 |.Byte co|de opcod|
|00002bf0| 65 20 74 6f 20 6d 61 6b | 65 20 61 20 62 69 6e 64 |e to mak|e a bind|
|00002c00| 69 6e 67 20 74 6f 20 72 | 65 63 6f 72 64 20 74 68 |ing to r|ecord th|
|00002c10| 65 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |e curren|t buffer|
|00002c20| 20 63 6c 69 70 70 69 6e | 67 20 72 65 73 74 72 69 | clippin|g restri|
|00002c30| 63 74 69 6f 6e 73 2e 22 | 29 0a 28 64 65 66 63 6f |ctions."|).(defco|
|00002c40| 6e 73 74 20 62 79 74 65 | 2d 63 61 74 63 68 20 31 |nst byte|-catch 1|
|00002c50| 34 31 20 22 5c 0a 42 79 | 74 65 20 63 6f 64 65 20 |41 "\.By|te code |
|00002c60| 6f 70 63 6f 64 65 20 66 | 6f 72 20 63 61 74 63 68 |opcode f|or catch|
|00002c70| 2e 20 20 54 61 6b 65 73 | 2c 20 6f 6e 20 73 74 61 |. Takes|, on sta|
|00002c80| 63 6b 2c 20 74 68 65 20 | 74 61 67 20 61 6e 64 20 |ck, the |tag and |
|00002c90| 61 6e 20 65 78 70 72 65 | 73 73 69 6f 6e 20 66 6f |an expre|ssion fo|
|00002ca0| 72 20 74 68 65 20 62 6f | 64 79 2e 22 29 0a 28 64 |r the bo|dy.").(d|
|00002cb0| 65 66 63 6f 6e 73 74 20 | 62 79 74 65 2d 75 6e 77 |efconst |byte-unw|
|00002cc0| 69 6e 64 2d 70 72 6f 74 | 65 63 74 20 31 34 32 20 |ind-prot|ect 142 |
|00002cd0| 22 5c 0a 42 79 74 65 20 | 63 6f 64 65 20 6f 70 63 |"\.Byte |code opc|
|00002ce0| 6f 64 65 20 66 6f 72 20 | 75 6e 77 69 6e 64 2d 70 |ode for |unwind-p|
|00002cf0| 72 6f 74 65 63 74 2e 20 | 20 54 61 6b 65 73 2c 20 |rotect. | Takes, |
|00002d00| 6f 6e 20 73 74 61 63 6b | 2c 20 61 6e 20 65 78 70 |on stack|, an exp|
|00002d10| 72 65 73 73 69 6f 6e 20 | 66 6f 72 20 74 68 65 20 |ression |for the |
|00002d20| 75 6e 77 69 6e 64 2d 61 | 63 74 69 6f 6e 2e 22 29 |unwind-a|ction.")|
|00002d30| 0a 28 64 65 66 63 6f 6e | 73 74 20 62 79 74 65 2d |.(defcon|st byte-|
|00002d40| 63 6f 6e 64 69 74 69 6f | 6e 2d 63 61 73 65 20 31 |conditio|n-case 1|
|00002d50| 34 33 20 22 5c 0a 42 79 | 74 65 20 63 6f 64 65 20 |43 "\.By|te code |
|00002d60| 6f 70 63 6f 64 65 20 66 | 6f 72 20 63 6f 6e 64 69 |opcode f|or condi|
|00002d70| 74 69 6f 6e 2d 63 61 73 | 65 2e 20 20 54 61 6b 65 |tion-cas|e. Take|
|00002d80| 73 2c 20 6f 6e 20 73 74 | 61 63 6b 2c 20 74 68 65 |s, on st|ack, the|
|00002d90| 20 76 61 72 69 61 62 6c | 65 20 74 6f 20 62 69 6e | variabl|e to bin|
|00002da0| 64 2c 20 0a 61 6e 20 65 | 78 70 72 65 73 73 69 6f |d, .an e|xpressio|
|00002db0| 6e 20 66 6f 72 20 74 68 | 65 20 62 6f 64 79 2c 20 |n for th|e body, |
|00002dc0| 61 6e 64 20 61 20 6c 69 | 73 74 20 6f 66 20 63 6c |and a li|st of cl|
|00002dd0| 61 75 73 65 73 2e 22 29 | 0a 28 64 65 66 63 6f 6e |auses.")|.(defcon|
|00002de0| 73 74 20 62 79 74 65 2d | 74 65 6d 70 2d 6f 75 74 |st byte-|temp-out|
|00002df0| 70 75 74 2d 62 75 66 66 | 65 72 2d 73 65 74 75 70 |put-buff|er-setup|
|00002e00| 20 31 34 34 20 22 5c 0a | 42 79 74 65 20 63 6f 64 | 144 "\.|Byte cod|
|00002e10| 65 20 6f 70 63 6f 64 65 | 20 66 6f 72 20 65 6e 74 |e opcode| for ent|
|00002e20| 72 79 20 74 6f 20 77 69 | 74 68 2d 6f 75 74 70 75 |ry to wi|th-outpu|
|00002e30| 74 2d 74 6f 2d 74 65 6d | 70 2d 62 75 66 66 65 72 |t-to-tem|p-buffer|
|00002e40| 2e 0a 54 61 6b 65 73 2c | 20 6f 6e 20 73 74 61 63 |..Takes,| on stac|
|00002e50| 6b 2c 20 74 68 65 20 62 | 75 66 66 65 72 20 6e 61 |k, the b|uffer na|
|00002e60| 6d 65 2e 0a 42 69 6e 64 | 73 20 73 74 61 6e 64 61 |me..Bind|s standa|
|00002e70| 72 64 2d 6f 75 74 70 75 | 74 20 61 6e 64 20 64 6f |rd-outpu|t and do|
|00002e80| 65 73 20 73 6f 6d 65 20 | 6f 74 68 65 72 20 74 68 |es some |other th|
|00002e90| 69 6e 67 73 2e 0a 52 65 | 74 75 72 6e 73 20 77 69 |ings..Re|turns wi|
|00002ea0| 74 68 20 74 65 6d 70 20 | 62 75 66 66 65 72 20 6f |th temp |buffer o|
|00002eb0| 6e 20 74 68 65 20 73 74 | 61 63 6b 20 69 6e 20 70 |n the st|ack in p|
|00002ec0| 6c 61 63 65 20 6f 66 20 | 62 75 66 66 65 72 20 6e |lace of |buffer n|
|00002ed0| 61 6d 65 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |ame.").(|defconst|
|00002ee0| 20 62 79 74 65 2d 74 65 | 6d 70 2d 6f 75 74 70 75 | byte-te|mp-outpu|
|00002ef0| 74 2d 62 75 66 66 65 72 | 2d 73 68 6f 77 20 31 34 |t-buffer|-show 14|
|00002f00| 35 20 22 5c 0a 42 79 74 | 65 20 63 6f 64 65 20 6f |5 "\.Byt|e code o|
|00002f10| 70 63 6f 64 65 20 66 6f | 72 20 65 78 69 74 20 66 |pcode fo|r exit f|
|00002f20| 72 6f 6d 20 77 69 74 68 | 2d 6f 75 74 70 75 74 2d |rom with|-output-|
|00002f30| 74 6f 2d 74 65 6d 70 2d | 62 75 66 66 65 72 2e 0a |to-temp-|buffer..|
|00002f40| 45 78 70 65 63 74 73 20 | 74 68 65 20 74 65 6d 70 |Expects |the temp|
|00002f50| 20 62 75 66 66 65 72 20 | 6f 6e 20 74 68 65 20 73 | buffer |on the s|
|00002f60| 74 61 63 6b 20 75 6e 64 | 65 72 6e 65 61 74 68 20 |tack und|erneath |
|00002f70| 76 61 6c 75 65 20 74 6f | 20 72 65 74 75 72 6e 2e |value to| return.|
|00002f80| 0a 50 6f 70 73 20 74 68 | 65 6d 20 62 6f 74 68 2c |.Pops th|em both,|
|00002f90| 20 74 68 65 6e 20 70 75 | 73 68 65 73 20 74 68 65 | then pu|shes the|
|00002fa0| 20 76 61 6c 75 65 20 62 | 61 63 6b 20 6f 6e 2e 0a | value b|ack on..|
|00002fb0| 55 6e 62 69 6e 64 73 20 | 73 74 61 6e 64 61 72 64 |Unbinds |standard|
|00002fc0| 2d 6f 75 74 70 75 74 20 | 61 6e 64 20 6d 61 6b 65 |-output |and make|
|00002fd0| 73 20 74 68 65 20 74 65 | 6d 70 20 62 75 66 66 65 |s the te|mp buffe|
|00002fe0| 72 20 76 69 73 69 62 6c | 65 2e 22 29 0a 28 64 65 |r visibl|e.").(de|
|00002ff0| 66 63 6f 6e 73 74 20 62 | 79 74 65 2d 75 6e 62 69 |fconst b|yte-unbi|
|00003000| 6e 64 2d 61 6c 6c 20 31 | 34 36 20 22 5c 0a 42 79 |nd-all 1|46 "\.By|
|00003010| 74 65 20 63 6f 64 65 20 | 6f 70 63 6f 64 65 20 74 |te code |opcode t|
|00003020| 6f 20 75 6e 62 69 6e 64 | 20 62 61 63 6b 20 74 6f |o unbind| back to|
|00003030| 20 74 68 65 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f | the beg|inning o|
|00003040| 66 20 0a 74 68 69 73 20 | 66 72 61 6d 65 2e 20 20 |f .this |frame. |
|00003050| 4e 6f 74 20 75 73 65 64 | 20 79 65 74 2c 20 62 75 |Not used| yet, bu|
|00003060| 74 20 77 69 6c 20 62 65 | 20 6e 65 65 64 65 64 20 |t wil be| needed |
|00003070| 66 6f 72 20 74 61 69 6c | 2d 72 65 63 75 72 73 69 |for tail|-recursi|
|00003080| 6f 6e 20 65 6c 69 6d 69 | 6e 61 74 69 6f 6e 2e 2e |on elimi|nation..|
|00003090| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |").(byte|-code ".|
|000030a0| 11 c2 13 c4 15 c6 16 07 | c8 16 09 ca 16 0b cc 16 |........|........|
|000030b0| 0d ce 16 0f d0 16 11 d2 | 16 13 d4 16 15 d6 16 17 |........|........|
|000030c0| d8 16 19 da 16 1b dc 16 | 1d de 16 1f e0 16 21 e2 |........|......!.|
|000030d0| 16 23 e4 16 25 e6 16 27 | e8 16 29 ea 16 2b ec 16 |.#..%..'|..)..+..|
|000030e0| 2d ee 16 2f f0 16 31 f2 | 16 33 f4 16 35 f6 16 37 |-../..1.|.3..5..7|
|000030f0| f8 16 39 fa 16 3b c0 87 | 22 20 5b 31 34 37 20 62 |..9..;..|" [147 b|
|00003100| 79 74 65 2d 73 65 74 2d | 6d 61 72 6b 65 72 20 31 |yte-set-|marker 1|
|00003110| 34 38 20 62 79 74 65 2d | 6d 61 74 63 68 2d 62 65 |48 byte-|match-be|
|00003120| 67 69 6e 6e 69 6e 67 20 | 31 34 39 20 62 79 74 65 |ginning |149 byte|
|00003130| 2d 6d 61 74 63 68 2d 65 | 6e 64 20 31 35 30 20 62 |-match-e|nd 150 b|
|00003140| 79 74 65 2d 75 70 63 61 | 73 65 20 31 35 31 20 62 |yte-upca|se 151 b|
|00003150| 79 74 65 2d 64 6f 77 6e | 63 61 73 65 20 31 35 32 |yte-down|case 152|
|00003160| 20 62 79 74 65 2d 73 74 | 72 69 6e 67 3d 20 31 35 | byte-st|ring= 15|
|00003170| 33 20 62 79 74 65 2d 73 | 74 72 69 6e 67 3c 20 31 |3 byte-s|tring< 1|
|00003180| 35 34 20 62 79 74 65 2d | 65 71 75 61 6c 20 31 35 |54 byte-|equal 15|
|00003190| 35 20 62 79 74 65 2d 6e | 74 68 63 64 72 20 31 35 |5 byte-n|thcdr 15|
|000031a0| 36 20 62 79 74 65 2d 65 | 6c 74 20 31 35 37 20 62 |6 byte-e|lt 157 b|
|000031b0| 79 74 65 2d 6d 65 6d 62 | 65 72 20 31 35 38 20 62 |yte-memb|er 158 b|
|000031c0| 79 74 65 2d 61 73 73 71 | 20 31 35 39 20 62 79 74 |yte-assq| 159 byt|
|000031d0| 65 2d 6e 72 65 76 65 72 | 73 65 20 31 36 30 20 62 |e-nrever|se 160 b|
|000031e0| 79 74 65 2d 73 65 74 63 | 61 72 20 31 36 31 20 62 |yte-setc|ar 161 b|
|000031f0| 79 74 65 2d 73 65 74 63 | 64 72 20 31 36 32 20 62 |yte-setc|dr 162 b|
|00003200| 79 74 65 2d 63 61 72 2d | 73 61 66 65 20 31 36 33 |yte-car-|safe 163|
|00003210| 20 62 79 74 65 2d 63 64 | 72 2d 73 61 66 65 20 31 | byte-cd|r-safe 1|
|00003220| 36 34 20 62 79 74 65 2d | 6e 63 6f 6e 63 20 31 36 |64 byte-|nconc 16|
|00003230| 35 20 62 79 74 65 2d 71 | 75 6f 20 31 36 36 20 62 |5 byte-q|uo 166 b|
|00003240| 79 74 65 2d 72 65 6d 20 | 31 36 37 20 62 79 74 65 |yte-rem |167 byte|
|00003250| 2d 6e 75 6d 62 65 72 70 | 20 31 36 38 20 62 79 74 |-numberp| 168 byt|
|00003260| 65 2d 69 6e 74 65 67 65 | 72 70 20 31 37 30 20 62 |e-intege|rp 170 b|
|00003270| 79 74 65 2d 72 65 6c 2d | 67 6f 74 6f 20 31 37 31 |yte-rel-|goto 171|
|00003280| 20 62 79 74 65 2d 72 65 | 6c 2d 67 6f 74 6f 2d 69 | byte-re|l-goto-i|
|00003290| 66 2d 6e 69 6c 20 31 37 | 32 20 62 79 74 65 2d 72 |f-nil 17|2 byte-r|
|000032a0| 65 6c 2d 67 6f 74 6f 2d | 69 66 2d 6e 6f 74 2d 6e |el-goto-|if-not-n|
|000032b0| 69 6c 20 31 37 33 20 62 | 79 74 65 2d 72 65 6c 2d |il 173 b|yte-rel-|
|000032c0| 67 6f 74 6f 2d 69 66 2d | 6e 69 6c 2d 65 6c 73 65 |goto-if-|nil-else|
|000032d0| 2d 70 6f 70 20 31 37 34 | 20 62 79 74 65 2d 72 65 |-pop 174| byte-re|
|000032e0| 6c 2d 67 6f 74 6f 2d 69 | 66 2d 6e 6f 74 2d 6e 69 |l-goto-i|f-not-ni|
|000032f0| 6c 2d 65 6c 73 65 2d 70 | 6f 70 20 31 37 35 20 62 |l-else-p|op 175 b|
|00003300| 79 74 65 2d 6c 69 73 74 | 4e 20 31 37 36 20 62 79 |yte-list|N 176 by|
|00003310| 74 65 2d 63 6f 6e 63 61 | 74 4e 20 31 37 37 20 62 |te-conca|tN 177 b|
|00003320| 79 74 65 2d 69 6e 73 65 | 72 74 4e 5d 20 31 29 0a |yte-inse|rtN] 1).|
|00003330| 28 64 65 66 63 6f 6e 73 | 74 20 62 79 74 65 2d 63 |(defcons|t byte-c|
|00003340| 6f 6e 73 74 61 6e 74 20 | 31 39 32 20 22 5c 0a 42 |onstant |192 "\.B|
|00003350| 79 74 65 20 63 6f 64 65 | 20 6f 70 63 6f 64 65 20 |yte code| opcode |
|00003360| 66 6f 72 20 72 65 66 65 | 72 65 6e 63 65 20 74 6f |for refe|rence to|
|00003370| 20 61 20 63 6f 6e 73 74 | 61 6e 74 2e 22 29 0a 28 | a const|ant.").(|
|00003380| 64 65 66 63 6f 6e 73 74 | 20 62 79 74 65 2d 63 6f |defconst| byte-co|
|00003390| 6e 73 74 61 6e 74 2d 6c | 69 6d 69 74 20 36 34 20 |nstant-l|imit 64 |
|000033a0| 22 5c 0a 45 78 63 6c 75 | 73 69 76 65 20 6d 61 78 |"\.Exclu|sive max|
|000033b0| 69 6d 75 6d 20 69 6e 64 | 65 78 20 75 73 61 62 6c |imum ind|ex usabl|
|000033c0| 65 20 69 6e 20 74 68 65 | 20 60 62 79 74 65 2d 63 |e in the| `byte-c|
|000033d0| 6f 6e 73 74 61 6e 74 27 | 20 6f 70 63 6f 64 65 2e |onstant'| opcode.|
|000033e0| 22 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 62 79 74 |").(defc|onst byt|
|000033f0| 65 2d 67 6f 74 6f 2d 6f | 70 73 20 27 28 62 79 74 |e-goto-o|ps '(byt|
|00003400| 65 2d 67 6f 74 6f 20 62 | 79 74 65 2d 67 6f 74 6f |e-goto b|yte-goto|
|00003410| 2d 69 66 2d 6e 69 6c 20 | 62 79 74 65 2d 67 6f 74 |-if-nil |byte-got|
|00003420| 6f 2d 69 66 2d 6e 6f 74 | 2d 6e 69 6c 20 62 79 74 |o-if-not|-nil byt|
|00003430| 65 2d 67 6f 74 6f 2d 69 | 66 2d 6e 69 6c 2d 65 6c |e-goto-i|f-nil-el|
|00003440| 73 65 2d 70 6f 70 20 62 | 79 74 65 2d 67 6f 74 6f |se-pop b|yte-goto|
|00003450| 2d 69 66 2d 6e 6f 74 2d | 6e 69 6c 2d 65 6c 73 65 |-if-not-|nil-else|
|00003460| 2d 70 6f 70 29 20 22 5c | 0a 74 68 6f 73 65 20 62 |-pop) "\|.those b|
|00003470| 79 74 65 2d 63 6f 64 65 | 73 20 77 68 6f 73 65 20 |yte-code|s whose |
|00003480| 6f 66 66 73 65 74 20 69 | 73 20 61 20 70 63 2e 22 |offset i|s a pc."|
|00003490| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 11 |).(byte-|code "..|
|000034a0| c2 87 22 20 5b 28 62 79 | 74 65 2d 67 6f 74 6f 2d |.." [(by|te-goto-|
|000034b0| 69 66 2d 6e 69 6c 20 62 | 79 74 65 2d 67 6f 74 6f |if-nil b|yte-goto|
|000034c0| 2d 69 66 2d 6e 6f 74 2d | 6e 69 6c 29 20 62 79 74 |-if-not-|nil) byt|
|000034d0| 65 2d 67 6f 74 6f 2d 61 | 6c 77 61 79 73 2d 70 6f |e-goto-a|lways-po|
|000034e0| 70 2d 6f 70 73 20 6e 69 | 6c 5d 20 31 29 0a 28 64 |p-ops ni|l] 1).(d|
|000034f0| 65 66 63 6f 6e 73 74 20 | 62 79 74 65 2d 72 65 6c |efconst |byte-rel|
|00003500| 2d 67 6f 74 6f 2d 6f 70 | 73 20 27 28 62 79 74 65 |-goto-op|s '(byte|
|00003510| 2d 72 65 6c 2d 67 6f 74 | 6f 20 62 79 74 65 2d 72 |-rel-got|o byte-r|
|00003520| 65 6c 2d 67 6f 74 6f 2d | 69 66 2d 6e 69 6c 20 62 |el-goto-|if-nil b|
|00003530| 79 74 65 2d 72 65 6c 2d | 67 6f 74 6f 2d 69 66 2d |yte-rel-|goto-if-|
|00003540| 6e 6f 74 2d 6e 69 6c 20 | 62 79 74 65 2d 72 65 6c |not-nil |byte-rel|
|00003550| 2d 67 6f 74 6f 2d 69 66 | 2d 6e 69 6c 2d 65 6c 73 |-goto-if|-nil-els|
|00003560| 65 2d 70 6f 70 20 62 79 | 74 65 2d 72 65 6c 2d 67 |e-pop by|te-rel-g|
|00003570| 6f 74 6f 2d 69 66 2d 6e | 6f 74 2d 6e 69 6c 2d 65 |oto-if-n|ot-nil-e|
|00003580| 6c 73 65 2d 70 6f 70 29 | 20 22 5c 0a 62 79 74 65 |lse-pop)| "\.byte|
|00003590| 2d 63 6f 64 65 73 20 66 | 6f 72 20 72 65 6c 61 74 |-codes f|or relat|
|000035a0| 69 76 65 20 6a 75 6d 70 | 73 2e 22 29 0a 28 62 79 |ive jump|s.").(by|
|000035b0| 74 65 2d 63 6f 64 65 20 | 22 c0 11 c2 13 c4 87 22 |te-code |"......"|
|000035c0| 20 5b 5b 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e | [[nil n|il nil n|
|000035d0| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |il nil n|il nil n|
|000035e0| 69 6c 20 62 79 74 65 2d | 76 61 72 72 65 66 20 6e |il byte-|varref n|
|000035f0| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |il nil n|il nil n|
|00003600| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 62 79 74 65 2d |il nil n|il byte-|
|00003610| 76 61 72 73 65 74 20 6e | 69 6c 20 6e 69 6c 20 6e |varset n|il nil n|
|00003620| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |il nil n|il nil n|
|00003630| 69 6c 20 62 79 74 65 2d | 76 61 72 62 69 6e 64 20 |il byte-|varbind |
|00003640| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003650| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 62 79 74 65 |nil nil |nil byte|
|00003660| 2d 63 61 6c 6c 20 6e 69 | 6c 20 6e 69 6c 20 6e 69 |-call ni|l nil ni|
|00003670| 6c 20 6e 69 6c 20 6e 69 | 6c 20 6e 69 6c 20 6e 69 |l nil ni|l nil ni|
|00003680| 6c 20 62 79 74 65 2d 75 | 6e 62 69 6e 64 20 6e 69 |l byte-u|nbind ni|
|00003690| 6c 20 6e 69 6c 20 6e 69 | 6c 20 6e 69 6c 20 6e 69 |l nil ni|l nil ni|
|000036a0| 6c 20 6e 69 6c 20 6e 69 | 6c 20 6e 69 6c 20 6e 69 |l nil ni|l nil ni|
|000036b0| 6c 20 6e 69 6c 20 6e 69 | 6c 20 6e 69 6c 20 6e 69 |l nil ni|l nil ni|
|000036c0| 6c 20 6e 69 6c 20 6e 69 | 6c 20 62 79 74 65 2d 6e |l nil ni|l byte-n|
|000036d0| 74 68 20 62 79 74 65 2d | 73 79 6d 62 6f 6c 70 20 |th byte-|symbolp |
|000036e0| 62 79 74 65 2d 63 6f 6e | 73 70 20 62 79 74 65 2d |byte-con|sp byte-|
|000036f0| 73 74 72 69 6e 67 70 20 | 62 79 74 65 2d 6c 69 73 |stringp |byte-lis|
|00003700| 74 70 20 62 79 74 65 2d | 65 71 20 62 79 74 65 2d |tp byte-|eq byte-|
|00003710| 6d 65 6d 71 20 62 79 74 | 65 2d 6e 6f 74 20 62 79 |memq byt|e-not by|
|00003720| 74 65 2d 63 61 72 20 62 | 79 74 65 2d 63 64 72 20 |te-car b|yte-cdr |
|00003730| 62 79 74 65 2d 63 6f 6e | 73 20 62 79 74 65 2d 6c |byte-con|s byte-l|
|00003740| 69 73 74 31 20 62 79 74 | 65 2d 6c 69 73 74 32 20 |ist1 byt|e-list2 |
|00003750| 62 79 74 65 2d 6c 69 73 | 74 33 20 62 79 74 65 2d |byte-lis|t3 byte-|
|00003760| 6c 69 73 74 34 20 62 79 | 74 65 2d 6c 65 6e 67 74 |list4 by|te-lengt|
|00003770| 68 20 62 79 74 65 2d 61 | 72 65 66 20 62 79 74 65 |h byte-a|ref byte|
|00003780| 2d 61 73 65 74 20 62 79 | 74 65 2d 73 79 6d 62 6f |-aset by|te-symbo|
|00003790| 6c 2d 76 61 6c 75 65 20 | 62 79 74 65 2d 73 79 6d |l-value |byte-sym|
|000037a0| 62 6f 6c 2d 66 75 6e 63 | 74 69 6f 6e 20 62 79 74 |bol-func|tion byt|
|000037b0| 65 2d 73 65 74 20 62 79 | 74 65 2d 66 73 65 74 20 |e-set by|te-fset |
|000037c0| 62 79 74 65 2d 67 65 74 | 20 62 79 74 65 2d 73 75 |byte-get| byte-su|
|000037d0| 62 73 74 72 69 6e 67 20 | 62 79 74 65 2d 63 6f 6e |bstring |byte-con|
|000037e0| 63 61 74 32 20 62 79 74 | 65 2d 63 6f 6e 63 61 74 |cat2 byt|e-concat|
|000037f0| 33 20 62 79 74 65 2d 63 | 6f 6e 63 61 74 34 20 62 |3 byte-c|oncat4 b|
|00003800| 79 74 65 2d 73 75 62 31 | 20 62 79 74 65 2d 61 64 |yte-sub1| byte-ad|
|00003810| 64 31 20 62 79 74 65 2d | 65 71 6c 73 69 67 6e 20 |d1 byte-|eqlsign |
|00003820| 62 79 74 65 2d 67 74 72 | 20 62 79 74 65 2d 6c 73 |byte-gtr| byte-ls|
|00003830| 73 20 62 79 74 65 2d 6c | 65 71 20 62 79 74 65 2d |s byte-l|eq byte-|
|00003840| 67 65 71 20 62 79 74 65 | 2d 64 69 66 66 20 62 79 |geq byte|-diff by|
|00003850| 74 65 2d 6e 65 67 61 74 | 65 20 62 79 74 65 2d 70 |te-negat|e byte-p|
|00003860| 6c 75 73 20 62 79 74 65 | 2d 6d 61 78 20 62 79 74 |lus byte|-max byt|
|00003870| 65 2d 6d 69 6e 20 62 79 | 74 65 2d 6d 75 6c 74 20 |e-min by|te-mult |
|00003880| 62 79 74 65 2d 70 6f 69 | 6e 74 20 62 79 74 65 2d |byte-poi|nt byte-|
|00003890| 6d 61 72 6b 2d 4f 42 53 | 4f 4c 45 54 45 20 62 79 |mark-OBS|OLETE by|
|000038a0| 74 65 2d 67 6f 74 6f 2d | 63 68 61 72 20 62 79 74 |te-goto-|char byt|
|000038b0| 65 2d 69 6e 73 65 72 74 | 20 62 79 74 65 2d 70 6f |e-insert| byte-po|
|000038c0| 69 6e 74 2d 6d 61 78 20 | 62 79 74 65 2d 70 6f 69 |int-max |byte-poi|
|000038d0| 6e 74 2d 6d 69 6e 20 62 | 79 74 65 2d 63 68 61 72 |nt-min b|yte-char|
|000038e0| 2d 61 66 74 65 72 20 62 | 79 74 65 2d 66 6f 6c 6c |-after b|yte-foll|
|000038f0| 6f 77 69 6e 67 2d 63 68 | 61 72 20 62 79 74 65 2d |owing-ch|ar byte-|
|00003900| 70 72 65 63 65 64 69 6e | 67 2d 63 68 61 72 20 62 |precedin|g-char b|
|00003910| 79 74 65 2d 63 75 72 72 | 65 6e 74 2d 63 6f 6c 75 |yte-curr|ent-colu|
|00003920| 6d 6e 20 62 79 74 65 2d | 69 6e 64 65 6e 74 2d 74 |mn byte-|indent-t|
|00003930| 6f 20 62 79 74 65 2d 73 | 63 61 6e 2d 62 75 66 66 |o byte-s|can-buff|
|00003940| 65 72 2d 4f 42 53 4f 4c | 45 54 45 20 62 79 74 65 |er-OBSOL|ETE byte|
|00003950| 2d 65 6f 6c 70 20 62 79 | 74 65 2d 65 6f 62 70 20 |-eolp by|te-eobp |
|00003960| 62 79 74 65 2d 62 6f 6c | 70 20 62 79 74 65 2d 62 |byte-bol|p byte-b|
|00003970| 6f 62 70 20 62 79 74 65 | 2d 63 75 72 72 65 6e 74 |obp byte|-current|
|00003980| 2d 62 75 66 66 65 72 20 | 62 79 74 65 2d 73 65 74 |-buffer |byte-set|
|00003990| 2d 62 75 66 66 65 72 20 | 62 79 74 65 2d 72 65 61 |-buffer |byte-rea|
|000039a0| 64 2d 63 68 61 72 2d 4f | 42 53 4f 4c 45 54 45 20 |d-char-O|BSOLETE |
|000039b0| 62 79 74 65 2d 73 65 74 | 2d 6d 61 72 6b 2d 4f 42 |byte-set|-mark-OB|
|000039c0| 53 4f 4c 45 54 45 20 62 | 79 74 65 2d 69 6e 74 65 |SOLETE b|yte-inte|
|000039d0| 72 61 63 74 69 76 65 2d | 70 20 62 79 74 65 2d 66 |ractive-|p byte-f|
|000039e0| 6f 72 77 61 72 64 2d 63 | 68 61 72 20 62 79 74 65 |orward-c|har byte|
|000039f0| 2d 66 6f 72 77 61 72 64 | 2d 77 6f 72 64 20 62 79 |-forward|-word by|
|00003a00| 74 65 2d 73 6b 69 70 2d | 63 68 61 72 73 2d 66 6f |te-skip-|chars-fo|
|00003a10| 72 77 61 72 64 20 62 79 | 74 65 2d 73 6b 69 70 2d |rward by|te-skip-|
|00003a20| 63 68 61 72 73 2d 62 61 | 63 6b 77 61 72 64 20 62 |chars-ba|ckward b|
|00003a30| 79 74 65 2d 66 6f 72 77 | 61 72 64 2d 6c 69 6e 65 |yte-forw|ard-line|
|00003a40| 20 62 79 74 65 2d 63 68 | 61 72 2d 73 79 6e 74 61 | byte-ch|ar-synta|
|00003a50| 78 20 62 79 74 65 2d 62 | 75 66 66 65 72 2d 73 75 |x byte-b|uffer-su|
|00003a60| 62 73 74 72 69 6e 67 20 | 62 79 74 65 2d 64 65 6c |bstring |byte-del|
|00003a70| 65 74 65 2d 72 65 67 69 | 6f 6e 20 62 79 74 65 2d |ete-regi|on byte-|
|00003a80| 6e 61 72 72 6f 77 2d 74 | 6f 2d 72 65 67 69 6f 6e |narrow-t|o-region|
|00003a90| 20 62 79 74 65 2d 77 69 | 64 65 6e 20 62 79 74 65 | byte-wi|den byte|
|00003aa0| 2d 65 6e 64 2d 6f 66 2d | 6c 69 6e 65 20 6e 69 6c |-end-of-|line nil|
|00003ab0| 20 62 79 74 65 2d 63 6f | 6e 73 74 61 6e 74 32 20 | byte-co|nstant2 |
|00003ac0| 62 79 74 65 2d 67 6f 74 | 6f 20 62 79 74 65 2d 67 |byte-got|o byte-g|
|00003ad0| 6f 74 6f 2d 69 66 2d 6e | 69 6c 20 62 79 74 65 2d |oto-if-n|il byte-|
|00003ae0| 67 6f 74 6f 2d 69 66 2d | 6e 6f 74 2d 6e 69 6c 20 |goto-if-|not-nil |
|00003af0| 62 79 74 65 2d 67 6f 74 | 6f 2d 69 66 2d 6e 69 6c |byte-got|o-if-nil|
|00003b00| 2d 65 6c 73 65 2d 70 6f | 70 20 62 79 74 65 2d 67 |-else-po|p byte-g|
|00003b10| 6f 74 6f 2d 69 66 2d 6e | 6f 74 2d 6e 69 6c 2d 65 |oto-if-n|ot-nil-e|
|00003b20| 6c 73 65 2d 70 6f 70 20 | 62 79 74 65 2d 72 65 74 |lse-pop |byte-ret|
|00003b30| 75 72 6e 20 62 79 74 65 | 2d 64 69 73 63 61 72 64 |urn byte|-discard|
|00003b40| 20 62 79 74 65 2d 64 75 | 70 20 62 79 74 65 2d 73 | byte-du|p byte-s|
|00003b50| 61 76 65 2d 65 78 63 75 | 72 73 69 6f 6e 20 62 79 |ave-excu|rsion by|
|00003b60| 74 65 2d 73 61 76 65 2d | 77 69 6e 64 6f 77 2d 65 |te-save-|window-e|
|00003b70| 78 63 75 72 73 69 6f 6e | 20 62 79 74 65 2d 73 61 |xcursion| byte-sa|
|00003b80| 76 65 2d 72 65 73 74 72 | 69 63 74 69 6f 6e 20 62 |ve-restr|iction b|
|00003b90| 79 74 65 2d 63 61 74 63 | 68 20 62 79 74 65 2d 75 |yte-catc|h byte-u|
|00003ba0| 6e 77 69 6e 64 2d 70 72 | 6f 74 65 63 74 20 62 79 |nwind-pr|otect by|
|00003bb0| 74 65 2d 63 6f 6e 64 69 | 74 69 6f 6e 2d 63 61 73 |te-condi|tion-cas|
|00003bc0| 65 20 62 79 74 65 2d 74 | 65 6d 70 2d 6f 75 74 70 |e byte-t|emp-outp|
|00003bd0| 75 74 2d 62 75 66 66 65 | 72 2d 73 65 74 75 70 20 |ut-buffe|r-setup |
|00003be0| 62 79 74 65 2d 74 65 6d | 70 2d 6f 75 74 70 75 74 |byte-tem|p-output|
|00003bf0| 2d 62 75 66 66 65 72 2d | 73 68 6f 77 20 62 79 74 |-buffer-|show byt|
|00003c00| 65 2d 75 6e 62 69 6e 64 | 2d 61 6c 6c 20 62 79 74 |e-unbind|-all byt|
|00003c10| 65 2d 73 65 74 2d 6d 61 | 72 6b 65 72 20 62 79 74 |e-set-ma|rker byt|
|00003c20| 65 2d 6d 61 74 63 68 2d | 62 65 67 69 6e 6e 69 6e |e-match-|beginnin|
|00003c30| 67 20 62 79 74 65 2d 6d | 61 74 63 68 2d 65 6e 64 |g byte-m|atch-end|
|00003c40| 20 62 79 74 65 2d 75 70 | 63 61 73 65 20 62 79 74 | byte-up|case byt|
|00003c50| 65 2d 64 6f 77 6e 63 61 | 73 65 20 62 79 74 65 2d |e-downca|se byte-|
|00003c60| 73 74 72 69 6e 67 3d 20 | 62 79 74 65 2d 73 74 72 |string= |byte-str|
|00003c70| 69 6e 67 3c 20 62 79 74 | 65 2d 65 71 75 61 6c 20 |ing< byt|e-equal |
|00003c80| 62 79 74 65 2d 6e 74 68 | 63 64 72 20 62 79 74 65 |byte-nth|cdr byte|
|00003c90| 2d 65 6c 74 20 62 79 74 | 65 2d 6d 65 6d 62 65 72 |-elt byt|e-member|
|00003ca0| 20 62 79 74 65 2d 61 73 | 73 71 20 62 79 74 65 2d | byte-as|sq byte-|
|00003cb0| 6e 72 65 76 65 72 73 65 | 20 62 79 74 65 2d 73 65 |nreverse| byte-se|
|00003cc0| 74 63 61 72 20 62 79 74 | 65 2d 73 65 74 63 64 72 |tcar byt|e-setcdr|
|00003cd0| 20 62 79 74 65 2d 63 61 | 72 2d 73 61 66 65 20 62 | byte-ca|r-safe b|
|00003ce0| 79 74 65 2d 63 64 72 2d | 73 61 66 65 20 62 79 74 |yte-cdr-|safe byt|
|00003cf0| 65 2d 6e 63 6f 6e 63 20 | 62 79 74 65 2d 71 75 6f |e-nconc |byte-quo|
|00003d00| 20 62 79 74 65 2d 72 65 | 6d 20 62 79 74 65 2d 6e | byte-re|m byte-n|
|00003d10| 75 6d 62 65 72 70 20 62 | 79 74 65 2d 69 6e 74 65 |umberp b|yte-inte|
|00003d20| 67 65 72 70 20 6e 69 6c | 20 62 79 74 65 2d 72 65 |gerp nil| byte-re|
|00003d30| 6c 2d 67 6f 74 6f 20 62 | 79 74 65 2d 72 65 6c 2d |l-goto b|yte-rel-|
|00003d40| 67 6f 74 6f 2d 69 66 2d | 6e 69 6c 20 62 79 74 65 |goto-if-|nil byte|
|00003d50| 2d 72 65 6c 2d 67 6f 74 | 6f 2d 69 66 2d 6e 6f 74 |-rel-got|o-if-not|
|00003d60| 2d 6e 69 6c 20 62 79 74 | 65 2d 72 65 6c 2d 67 6f |-nil byt|e-rel-go|
|00003d70| 74 6f 2d 69 66 2d 6e 69 | 6c 2d 65 6c 73 65 2d 70 |to-if-ni|l-else-p|
|00003d80| 6f 70 20 62 79 74 65 2d | 72 65 6c 2d 67 6f 74 6f |op byte-|rel-goto|
|00003d90| 2d 69 66 2d 6e 6f 74 2d | 6e 69 6c 2d 65 6c 73 65 |-if-not-|nil-else|
|00003da0| 2d 70 6f 70 20 62 79 74 | 65 2d 6c 69 73 74 4e 20 |-pop byt|e-listN |
|00003db0| 62 79 74 65 2d 63 6f 6e | 63 61 74 4e 20 62 79 74 |byte-con|catN byt|
|00003dc0| 65 2d 69 6e 73 65 72 74 | 4e 20 6e 69 6c 20 6e 69 |e-insert|N nil ni|
|00003dd0| 6c 20 6e 69 6c 20 6e 69 | 6c 20 6e 69 6c 20 6e 69 |l nil ni|l nil ni|
|00003de0| 6c 20 6e 69 6c 20 6e 69 | 6c 20 6e 69 6c 20 6e 69 |l nil ni|l nil ni|
|00003df0| 6c 20 6e 69 6c 20 6e 69 | 6c 20 6e 69 6c 20 6e 69 |l nil ni|l nil ni|
|00003e00| 6c 20 62 79 74 65 2d 63 | 6f 6e 73 74 61 6e 74 20 |l byte-c|onstant |
|00003e10| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003e20| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003e30| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003e40| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003e50| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003e60| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003e70| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003e80| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003e90| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003ea0| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003eb0| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003ec0| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003ed0| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003ee0| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003ef0| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003f00| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 5d 20 62 79 74 |nil nil |nil] byt|
|00003f10| 65 2d 63 6f 64 65 2d 76 | 65 63 74 6f 72 20 5b 6e |e-code-v|ector [n|
|00003f20| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |il nil n|il nil n|
|00003f30| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 31 |il nil n|il nil 1|
|00003f40| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00003f50| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 2d 31 20 | nil nil| nil -1 |
|00003f60| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 6e 69 6c 20 |nil nil |nil nil |
|00003f70| 6e 69 6c 20 6e 69 6c 20 | 6e 69 6c 20 2d 31 20 6e |nil nil |nil -1 n|
|00003f80| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |il nil n|il nil n|
|00003f90| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 30 20 6e 69 6c |il nil n|il 0 nil|
|00003fa0| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00003fb0| 20 6e 69 6c 20 6e 69 6c | 20 30 20 6e 69 6c 20 6e | nil nil| 0 nil n|
|00003fc0| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |il nil n|il nil n|
|00003fd0| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |il nil n|il nil n|
|00003fe0| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |il nil n|il nil n|
|00003ff0| 69 6c 20 6e 69 6c 20 2d | 31 20 30 20 30 20 30 20 |il nil -|1 0 0 0 |
|00004000| 30 20 2d 31 20 2d 31 20 | 30 20 30 20 30 20 2d 31 |0 -1 -1 |0 0 0 -1|
|00004010| 20 30 20 2d 31 20 2d 32 | 20 2d 33 20 30 20 2d 31 | 0 -1 -2| -3 0 -1|
|00004020| 20 2d 32 20 30 20 30 20 | 2d 31 20 2d 31 20 2d 31 | -2 0 0 |-1 -1 -1|
|00004030| 20 2d 32 20 2d 31 20 2d | 32 20 2d 33 20 30 20 30 | -2 -1 -|2 -3 0 0|
|00004040| 20 2d 31 20 2d 31 20 2d | 31 20 2d 31 20 2d 31 20 | -1 -1 -|1 -1 -1 |
|00004050| 2d 31 20 30 20 2d 31 20 | 2d 31 20 2d 31 20 2d 31 |-1 0 -1 |-1 -1 -1|
|00004060| 20 31 20 31 20 30 20 30 | 20 31 20 31 20 30 20 31 | 1 1 0 0| 1 1 0 1|
|00004070| 20 31 20 31 20 30 20 30 | 20 31 20 31 20 31 20 31 | 1 1 0 0| 1 1 1 1|
|00004080| 20 31 20 30 20 31 20 30 | 20 31 20 30 20 30 20 2d | 1 0 1 0| 1 0 0 -|
|00004090| 31 20 2d 31 20 30 20 30 | 20 2d 31 20 2d 31 20 2d |1 -1 0 0| -1 -1 -|
|000040a0| 31 20 31 20 30 20 6e 69 | 6c 20 31 20 30 20 2d 31 |1 1 0 ni|l 1 0 -1|
|000040b0| 20 2d 31 20 2d 31 20 2d | 31 20 2d 31 20 2d 31 20 | -1 -1 -|1 -1 -1 |
|000040c0| 31 20 30 20 30 20 30 20 | 2d 31 20 2d 31 20 2d 32 |1 0 0 0 |-1 -1 -2|
|000040d0| 20 30 20 2d 31 20 30 20 | 2d 32 20 30 20 30 20 30 | 0 -1 0 |-2 0 0 0|
|000040e0| 20 30 20 2d 31 20 2d 31 | 20 2d 31 20 2d 31 20 2d | 0 -1 -1| -1 -1 -|
|000040f0| 31 20 2d 31 20 2d 31 20 | 30 20 2d 31 20 2d 31 20 |1 -1 -1 |0 -1 -1 |
|00004100| 30 20 30 20 2d 31 20 2d | 31 20 2d 31 20 30 20 30 |0 0 -1 -|1 -1 0 0|
|00004110| 20 6e 69 6c 20 30 20 2d | 31 20 2d 31 20 2d 31 20 | nil 0 -|1 -1 -1 |
|00004120| 2d 31 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |-1 nil n|il nil n|
|00004130| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |il nil n|il nil n|
|00004140| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |il nil n|il nil n|
|00004150| 69 6c 20 6e 69 6c 20 6e | 69 6c 20 6e 69 6c 20 6e |il nil n|il nil n|
|00004160| 69 6c 20 6e 69 6c 20 31 | 20 6e 69 6c 20 6e 69 6c |il nil 1| nil nil|
|00004170| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00004180| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00004190| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|000041a0| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|000041b0| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|000041c0| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|000041d0| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|000041e0| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|000041f0| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00004200| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00004210| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00004220| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00004230| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00004240| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00004250| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00004260| 20 6e 69 6c 5d 20 62 79 | 74 65 2d 73 74 61 63 6b | nil] by|te-stack|
|00004270| 2b 2d 69 6e 66 6f 20 6e | 69 6c 5d 20 31 29 0a 28 |+-info n|il] 1).(|
|00004280| 66 73 65 74 20 27 62 79 | 74 65 2d 63 6f 6d 70 69 |fset 'by|te-compi|
|00004290| 6c 65 2d 6c 61 70 63 6f | 64 65 20 23 5b 28 6c 61 |le-lapco|de #[(la|
|000042a0| 70 29 20 22 c0 c1 89 89 | 89 89 89 89 1a 1b 1c 1d |p) "....|........|
|000042b0| 1e 06 1e 07 1e 08 1e 09 | 0e 5c 6e 83 17 01 0e 5c |........|.\n....\|
|000042c0| 6e 40 40 16 08 0e 5c 6e | 40 41 16 07 0e 08 39 ac |n@@...\n|@A....9.|
|000042d0| 89 cb cc 0e 08 5c 22 88 | 82 0e 01 0e 08 cd 3d ab |.....\".|......=.|
|000042e0| 8e 0e 07 0e 09 a0 88 0e | 07 0d 42 15 82 0e 01 0e |........|..B.....|
|000042f0| 08 0e 0e 3e ab 9d 0e 09 | cf 5c 5c 89 16 09 0e 07 |...>....|.\\.....|
|00004300| 41 42 c1 0e 08 4a 0e 06 | 42 42 42 89 16 06 0d 42 |AB...J..|BBB....B|
|00004310| 15 82 0e 01 0e 07 3a ab | ba 0e 07 41 16 07 0e 08 |......:.|...A....|
|00004320| d0 3d ab af 0e 07 0e 11 | 57 ab 8f 0e 09 54 16 09 |.=......|W....T..|
|00004330| 0e 10 0e 07 5c 5c 0e 06 | 42 aa fb 0e 09 cf 5c 5c |....\\..|B.....\\|
|00004340| 16 09 d2 0e 07 d3 5c 22 | d4 0e 07 d5 5c 22 0e 16 |......\"|....\"..|
|00004350| 0e 06 42 42 42 aa e2 0e | 17 0e 08 4a 58 ab 91 0e |..BBB...|...JX...|
|00004360| 09 d8 5c 5c 16 09 0e 07 | 0e 08 4a 0e 06 42 42 aa |..\\....|..J..BB.|
|00004370| c9 0e 07 d9 57 ab 90 0e | 09 54 16 09 0e 08 4a 0e |....W...|.T....J.|
|00004380| 07 5c 5c 0e 06 42 aa b3 | 0e 07 da 57 ab 93 0e 09 |.\\..B..|...W....|
|00004390| d8 5c 5c 16 09 0e 07 0e | 08 4a d9 5c 5c 0e 06 42 |.\\.....|.J.\\..B|
|000043a0| 42 aa 9a 0e 09 cf 5c 5c | 16 09 d2 0e 07 d3 5c 22 |B.....\\|......\"|
|000043b0| d4 0e 07 d5 5c 22 0e 08 | 4a db 5c 5c 0e 06 42 42 |....\"..|J.\\..BB|
|000043c0| 42 16 06 0e 5c 6e 41 89 | 16 5c 6e 84 19 00 0e 1c |B...\nA.|.\n.....|
|000043d0| ab e1 0d 9f 15 c0 16 07 | 0d 89 14 ab cc 0c 40 89 |........|......@.|
|000043e0| 12 40 3a ab b6 5c 6e 41 | 40 3f 5c 6e 40 12 ab ad |.@:..\nA|@?\n@...|
|000043f0| 5c 6e 41 40 5c 6e 40 5a | 13 dd 0b 58 ab a1 0b de |\nA@\n@Z|...X....|
|00004400| 57 ab 9c 0c 40 0c 40 41 | 41 a1 88 0c 40 41 0c 40 |W...@.@A|A...@A.@|
|00004410| 41 40 0e 1f 0e 20 5a 5c | 5c a0 88 0e 07 53 16 07 |A@... Z\|\....S..|
|00004420| 5c 6e 89 40 0e 07 5c 5c | a0 88 0c 41 89 14 ac 34 |\n.@..\\|...A...4|
|00004430| 0e 21 ab 86 0e 07 c0 55 | ab 5c 22 c1 1e 06 0d ab |.!.....U|.\".....|
|00004440| c0 0d 40 89 16 06 40 3a | ab b1 0e 06 41 40 ab 91 |..@...@:|....A@..|
|00004450| 0e 06 89 40 41 40 0e 06 | 40 40 5a de 5c 5c a0 88 |...@A@..|@@Z.\\..|
|00004460| aa 9a 0e 06 40 41 40 16 | 09 0e 06 41 d4 0e 09 d5 |....@A@.|...A....|
|00004470| 5c 22 a0 88 0e 06 d2 0e | 09 d3 5c 22 a0 88 0d 41 |\"......|..\"...A|
|00004480| 89 15 ac 40 29 0e 06 9f | b0 01 2e 08 87 22 20 5b |...@)...|....." [|
|00004490| 30 20 6e 69 6c 20 74 6d | 70 20 72 65 6c 20 72 65 |0 nil tm|p rel re|
|000044a0| 73 74 20 70 61 74 63 68 | 6c 69 73 74 20 62 79 74 |st patch|list byt|
|000044b0| 65 73 20 6f 66 66 20 6f | 70 20 70 63 20 6c 61 70 |es off o|p pc lap|
|000044c0| 20 65 72 72 6f 72 20 22 | 6e 6f 6e 2d 73 79 6d 62 | error "|non-symb|
|000044d0| 6f 6c 69 63 20 6f 70 63 | 6f 64 65 20 25 73 22 20 |olic opc|ode %s" |
|000044e0| 54 41 47 20 62 79 74 65 | 2d 67 6f 74 6f 2d 6f 70 |TAG byte|-goto-op|
|000044f0| 73 20 33 20 62 79 74 65 | 2d 63 6f 6e 73 74 61 6e |s 3 byte|-constan|
|00004500| 74 20 62 79 74 65 2d 63 | 6f 6e 73 74 61 6e 74 2d |t byte-c|onstant-|
|00004510| 6c 69 6d 69 74 20 6c 73 | 68 20 2d 38 20 6c 6f 67 |limit ls|h -8 log|
|00004520| 61 6e 64 20 32 35 35 20 | 62 79 74 65 2d 63 6f 6e |and 255 |byte-con|
|00004530| 73 74 61 6e 74 32 20 62 | 79 74 65 2d 6c 69 73 74 |stant2 b|yte-list|
|00004540| 4e 20 32 20 36 20 32 35 | 36 20 37 20 62 79 74 65 |N 2 6 25|6 7 byte|
|00004550| 2d 63 6f 6d 70 69 6c 65 | 2d 67 65 6e 65 72 61 74 |-compile|-generat|
|00004560| 65 2d 65 6d 61 63 73 31 | 39 2d 62 79 74 65 63 6f |e-emacs1|9-byteco|
|00004570| 64 65 73 20 2d 31 32 39 | 20 31 32 38 20 62 79 74 |des -129| 128 byt|
|00004580| 65 2d 72 65 6c 2d 67 6f | 74 6f 20 62 79 74 65 2d |e-rel-go|to byte-|
|00004590| 67 6f 74 6f 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |goto byt|e-optimi|
|000045a0| 7a 65 5d 20 39 20 22 5c | 0a 54 75 72 6e 73 20 6c |ze] 9 "\|.Turns l|
|000045b0| 61 70 63 6f 64 65 20 69 | 6e 74 6f 20 62 79 74 65 |apcode i|nto byte|
|000045c0| 63 6f 64 65 2e 20 20 54 | 68 65 20 6c 61 70 63 6f |code. T|he lapco|
|000045d0| 64 65 20 69 73 20 64 65 | 73 74 72 6f 79 65 64 2e |de is de|stroyed.|
|000045e0| 22 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |"]).(byt|e-code "|
|000045f0| c0 11 c0 12 c3 c4 4d 88 | c0 15 c6 c7 4d 88 c8 c9 |......M.|....M...|
|00004600| 4d 88 ca cb 4d 88 cc cd | 21 ac 83 ce 16 0d cf d0 |M...M...|!.......|
|00004610| 4d 88 d1 d2 4d 88 d3 d4 | 4d 88 d5 d6 4d 88 d7 d8 |M...M...|M...M...|
|00004620| 4d 87 22 20 5b 6e 69 6c | 20 62 79 74 65 2d 63 6f |M." [nil| byte-co|
|00004630| 6d 70 69 6c 65 2d 63 75 | 72 72 65 6e 74 2d 66 6f |mpile-cu|rrent-fo|
|00004640| 72 6d 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |rm byte-|compile-|
|00004650| 63 75 72 72 65 6e 74 2d | 66 69 6c 65 20 62 79 74 |current-|file byt|
|00004660| 65 2d 63 6f 6d 70 69 6c | 65 2d 6c 6f 67 20 28 6d |e-compil|e-log (m|
|00004670| 61 63 72 6f 20 2e 20 23 | 5b 28 66 6f 72 6d 61 74 |acro . #|[(format|
|00004680| 2d 73 74 72 69 6e 67 20 | 26 72 65 73 74 20 61 72 |-string |&rest ar|
|00004690| 67 73 29 20 22 c0 c1 c2 | c3 c4 c5 c6 0e 07 c8 c9 |gs) "...|........|
|000046a0| 0e 5c 6e 5c 22 42 42 44 | 45 46 87 22 20 5b 61 6e |.\n\"BBD|EF." [an|
|000046b0| 64 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 20 |d byte-o|ptimize |
|000046c0| 28 6d 65 6d 71 20 62 79 | 74 65 2d 6f 70 74 69 6d |(memq by|te-optim|
|000046d0| 69 7a 65 2d 6c 6f 67 20 | 27 28 74 20 73 6f 75 72 |ize-log |'(t sour|
|000046e0| 63 65 29 29 20 6c 65 74 | 20 28 28 70 72 69 6e 74 |ce)) let| ((print|
|000046f0| 2d 65 73 63 61 70 65 2d | 6e 65 77 6c 69 6e 65 73 |-escape-|newlines|
|00004700| 20 74 29 20 28 70 72 69 | 6e 74 2d 6c 65 76 65 6c | t) (pri|nt-level|
|00004710| 20 34 29 20 28 70 72 69 | 6e 74 2d 6c 65 6e 67 74 | 4) (pri|nt-lengt|
|00004720| 68 20 34 29 29 20 62 79 | 74 65 2d 63 6f 6d 70 69 |h 4)) by|te-compi|
|00004730| 6c 65 2d 6c 6f 67 2d 31 | 20 66 6f 72 6d 61 74 20 |le-log-1| format |
|00004740| 66 6f 72 6d 61 74 2d 73 | 74 72 69 6e 67 20 6d 61 |format-s|tring ma|
|00004750| 70 63 61 72 20 23 5b 28 | 78 29 20 22 08 39 ab 84 |pcar #[(|x) ".9..|
|00004760| c1 08 44 87 08 87 22 20 | 5b 78 20 70 72 69 6e 31 |..D..." |[x prin1|
|00004770| 2d 74 6f 2d 73 74 72 69 | 6e 67 5d 20 32 5d 20 61 |-to-stri|ng] 2] a|
|00004780| 72 67 73 5d 20 31 31 5d | 29 20 62 79 74 65 2d 63 |rgs] 11]|) byte-c|
|00004790| 6f 6d 70 69 6c 65 2d 6c | 61 73 74 2d 77 61 72 6e |ompile-l|ast-warn|
|000047a0| 65 64 2d 66 6f 72 6d 20 | 62 79 74 65 2d 63 6f 6d |ed-form |byte-com|
|000047b0| 70 69 6c 65 2d 6c 6f 67 | 2d 31 20 23 5b 28 73 74 |pile-log|-1 #[(st|
|000047c0| 72 69 6e 67 20 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |ring &op|tional f|
|000047d0| 69 6c 6c 29 20 22 08 ab | b1 09 ac 88 5c 6e ab a3 |ill) "..|....\n..|
|000047e0| 0b 5c 6e 3d ac 9e c4 c5 | c6 0b ae 81 c7 09 ab 90 |.\n=....|........|
|000047f0| 09 3b ab 85 c8 09 50 aa | 88 c9 ca 09 21 50 aa 81 |.;....P.|....!P..|
|00004800| cb 23 21 88 c4 cc 0e 0d | 5c 22 88 aa e2 8a ce cf |.#!.....|\"......|
|00004810| 21 71 88 64 62 88 09 ac | 88 5c 6e ab b5 0b 5c 6e |!q.db...|.\n...\n|
|00004820| 3d ac b0 09 ab 87 d0 d1 | 20 d2 b1 03 88 d3 0b ab |=.......| .......|
|00004830| 86 c5 d4 0b 5c 22 aa 81 | c7 b1 02 88 09 ab 92 09 |....\"..|........|
|00004840| 3b ab 87 c8 09 b1 02 88 | aa 87 c9 ca 09 21 b1 02 |;.......|.....!..|
|00004850| 88 d5 63 88 d6 0e 0d d2 | b1 03 88 0e 17 ab 92 d8 |..c.....|........|
|00004860| d2 0e 0d 5c 22 ac 8b d9 | da 1e 1b 1e 1c dd de 21 |...\"...|.......!|
|00004870| 88 2a 29 de 11 0b 89 12 | 87 22 20 5b 6e 6f 6e 69 |.*).....|." [noni|
|00004880| 6e 74 65 72 61 63 74 69 | 76 65 20 62 79 74 65 2d |nteracti|ve byte-|
|00004890| 63 6f 6d 70 69 6c 65 2d | 63 75 72 72 65 6e 74 2d |compile-|current-|
|000048a0| 66 69 6c 65 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |file byt|e-compil|
|000048b0| 65 2d 6c 61 73 74 2d 77 | 61 72 6e 65 64 2d 66 6f |e-last-w|arned-fo|
|000048c0| 72 6d 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |rm byte-|compile-|
|000048d0| 63 75 72 72 65 6e 74 2d | 66 6f 72 6d 20 6d 65 73 |current-|form mes|
|000048e0| 73 61 67 65 20 66 6f 72 | 6d 61 74 20 22 57 68 69 |sage for|mat "Whi|
|000048f0| 6c 65 20 63 6f 6d 70 69 | 6c 69 6e 67 20 25 73 25 |le compi|ling %s%|
|00004900| 73 3a 22 20 22 74 6f 70 | 6c 65 76 65 6c 20 66 6f |s:" "top|level fo|
|00004910| 72 6d 73 22 20 22 20 69 | 6e 20 66 69 6c 65 20 22 |rms" " i|n file "|
|00004920| 20 22 20 69 6e 20 62 75 | 66 66 65 72 20 22 20 62 | " in bu|ffer " b|
|00004930| 75 66 66 65 72 2d 6e 61 | 6d 65 20 22 22 20 22 20 |uffer-na|me "" " |
|00004940| 20 25 73 22 20 73 74 72 | 69 6e 67 20 67 65 74 2d | %s" str|ing get-|
|00004950| 62 75 66 66 65 72 2d 63 | 72 65 61 74 65 20 22 2a |buffer-c|reate "*|
|00004960| 43 6f 6d 70 69 6c 65 2d | 4c 6f 67 2a 22 20 22 5c |Compile-|Log*" "\|
|00004970| 6e 0c 5c 6e 22 20 63 75 | 72 72 65 6e 74 2d 74 69 |n.\n" cu|rrent-ti|
|00004980| 6d 65 2d 73 74 72 69 6e | 67 20 22 5c 6e 22 20 22 |me-strin|g "\n" "|
|00004990| 57 68 69 6c 65 20 63 6f | 6d 70 69 6c 69 6e 67 20 |While co|mpiling |
|000049a0| 22 20 22 25 73 22 20 22 | 3a 5c 6e 22 20 22 20 20 |" "%s" "|:\n" " |
|000049b0| 22 20 66 69 6c 6c 20 73 | 74 72 69 6e 67 2d 6d 61 |" fill s|tring-ma|
|000049c0| 74 63 68 20 22 20 20 20 | 20 20 22 20 37 38 20 66 |tch " | " 78 f|
|000049d0| 69 6c 6c 2d 63 6f 6c 75 | 6d 6e 20 66 69 6c 6c 2d |ill-colu|mn fill-|
|000049e0| 70 72 65 66 69 78 20 66 | 69 6c 6c 2d 70 61 72 61 |prefix f|ill-para|
|000049f0| 67 72 61 70 68 20 6e 69 | 6c 5d 20 37 5d 20 62 79 |graph ni|l] 7] by|
|00004a00| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 77 61 72 6e 20 |te-compi|le-warn |
|00004a10| 23 5b 28 66 6f 72 6d 61 | 74 20 26 72 65 73 74 20 |#[(forma|t &rest |
|00004a20| 61 72 67 73 29 20 22 c0 | c1 09 5c 6e 23 11 0b ab |args) ".|..\n#...|
|00004a30| 85 c4 c5 09 5c 22 87 c6 | c7 09 50 c8 5c 22 88 0e |....\"..|..P.\"..|
|00004a40| 09 ae 84 ca cb 09 5c 22 | 87 22 20 5b 61 70 70 6c |......\"|." [appl|
|00004a50| 79 20 66 6f 72 6d 61 74 | 20 61 72 67 73 20 62 79 |y format| args by|
|00004a60| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 65 72 72 6f 72 |te-compi|le-error|
|00004a70| 2d 6f 6e 2d 77 61 72 6e | 20 65 72 72 6f 72 20 22 |-on-warn| error "|
|00004a80| 25 73 22 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |%s" byte|-compile|
|00004a90| 2d 6c 6f 67 2d 31 20 22 | 2a 2a 20 22 20 74 20 6e |-log-1 "|** " t n|
|00004aa0| 6f 6e 69 6e 74 65 72 61 | 63 74 69 76 65 20 6d 65 |onintera|ctive me|
|00004ab0| 73 73 61 67 65 20 22 57 | 61 72 6e 69 6e 67 3a 20 |ssage "W|arning: |
|00004ac0| 25 73 22 5d 20 34 5d 20 | 62 79 74 65 2d 63 6f 6d |%s"] 4] |byte-com|
|00004ad0| 70 69 6c 65 2d 6f 62 73 | 6f 6c 65 74 65 20 23 5b |pile-obs|olete #[|
|00004ae0| 28 66 6f 72 6d 29 20 22 | 08 40 c1 4e 1a c3 c4 08 |(form) "|.@.N....|
|00004af0| 40 5c 6e 40 3b ab 84 5c | 6e 40 aa 85 c5 c6 5c 6e |@\n@;..\|n@....\n|
|00004b00| 40 5c 22 23 88 5c 6e 41 | ae 81 c7 08 21 29 87 22 |@\"#.\nA|....!)."|
|00004b10| 20 5b 66 6f 72 6d 20 62 | 79 74 65 2d 6f 62 73 6f | [form b|yte-obso|
|00004b20| 6c 65 74 65 2d 69 6e 66 | 6f 20 6e 65 77 20 62 79 |lete-inf|o new by|
|00004b30| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 77 61 72 6e 20 |te-compi|le-warn |
|00004b40| 22 25 73 20 69 73 20 61 | 6e 20 6f 62 73 6f 6c 65 |"%s is a|n obsole|
|00004b50| 74 65 20 66 75 6e 63 74 | 69 6f 6e 3b 20 25 73 22 |te funct|ion; %s"|
|00004b60| 20 66 6f 72 6d 61 74 20 | 22 75 73 65 20 25 73 20 | format |"use %s |
|00004b70| 69 6e 73 74 65 61 64 2e | 22 20 62 79 74 65 2d 63 |instead.|" byte-c|
|00004b80| 6f 6d 70 69 6c 65 2d 6e | 6f 72 6d 61 6c 2d 63 61 |ompile-n|ormal-ca|
|00004b90| 6c 6c 5d 20 36 5d 20 62 | 6f 75 6e 64 70 20 62 79 |ll] 6] b|oundp by|
|00004ba0| 74 65 2d 63 6f 6d 70 69 | 6c 65 72 2d 6c 65 67 61 |te-compi|ler-lega|
|00004bb0| 6c 2d 6f 70 74 69 6f 6e | 73 20 28 28 6f 70 74 69 |l-option|s ((opti|
|00004bc0| 6d 69 7a 65 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |mize byt|e-optimi|
|00004bd0| 7a 65 20 28 74 20 6e 69 | 6c 20 73 6f 75 72 63 65 |ze (t ni|l source|
|00004be0| 20 62 79 74 65 29 20 76 | 61 6c 29 20 28 66 69 6c | byte) v|al) (fil|
|00004bf0| 65 2d 66 6f 72 6d 61 74 | 20 62 79 74 65 2d 63 6f |e-format| byte-co|
|00004c00| 6d 70 69 6c 65 2d 65 6d | 61 63 73 31 38 2d 63 6f |mpile-em|acs18-co|
|00004c10| 6d 70 61 74 69 62 69 6c | 69 74 79 20 28 65 6d 61 |mpatibil|ity (ema|
|00004c20| 63 73 31 38 20 65 6d 61 | 63 73 31 39 29 20 28 65 |cs18 ema|cs19) (e|
|00004c30| 71 20 76 61 6c 20 27 65 | 6d 61 63 73 31 38 29 29 |q val 'e|macs18))|
|00004c40| 20 28 6e 65 77 2d 62 79 | 74 65 63 6f 64 65 73 20 | (new-by|tecodes |
|00004c50| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 67 65 6e |byte-com|pile-gen|
|00004c60| 65 72 61 74 65 2d 65 6d | 61 63 73 31 39 2d 62 79 |erate-em|acs19-by|
|00004c70| 74 65 63 6f 64 65 73 20 | 28 74 20 6e 69 6c 29 20 |tecodes |(t nil) |
|00004c80| 76 61 6c 29 20 28 64 65 | 6c 65 74 65 2d 65 72 72 |val) (de|lete-err|
|00004c90| 6f 72 73 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ors byte|-compile|
|00004ca0| 2d 64 65 6c 65 74 65 2d | 65 72 72 6f 72 73 20 28 |-delete-|errors (|
|00004cb0| 74 20 6e 69 6c 29 20 76 | 61 6c 29 20 28 76 65 72 |t nil) v|al) (ver|
|00004cc0| 62 6f 73 65 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |bose byt|e-compil|
|00004cd0| 65 2d 76 65 72 62 6f 73 | 65 20 28 74 20 6e 69 6c |e-verbos|e (t nil|
|00004ce0| 29 20 76 61 6c 29 20 28 | 77 61 72 6e 69 6e 67 73 |) val) (|warnings|
|00004cf0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 77 61 | byte-co|mpile-wa|
|00004d00| 72 6e 69 6e 67 73 20 28 | 28 63 61 6c 6c 61 72 67 |rnings (|(callarg|
|00004d10| 73 20 72 65 64 65 66 69 | 6e 65 20 66 72 65 65 2d |s redefi|ne free-|
|00004d20| 76 61 72 73 20 75 6e 72 | 65 73 6f 6c 76 65 64 29 |vars unr|esolved)|
|00004d30| 29 20 76 61 6c 29 29 20 | 62 79 74 65 2d 63 6f 6d |) val)) |byte-com|
|00004d40| 70 69 6c 65 72 2d 6f 70 | 74 69 6f 6e 73 2d 68 61 |piler-op|tions-ha|
|00004d50| 6e 64 6c 65 72 20 23 5b | 28 26 72 65 73 74 20 61 |ndler #[|(&rest a|
|00004d60| 72 67 73 29 20 22 c0 89 | 89 89 19 1a 1b 1c 0d 83 |rgs) "..|........|
|00004d70| c3 00 0d 40 3a ab 8b 0d | 40 41 41 ac 85 0d 40 41 |...@:...|@AA...@A|
|00004d80| ac 86 c6 c7 0d 40 5c 22 | 88 0d 40 40 14 0d 40 41 |.....@\"|..@@..@A|
|00004d90| 40 13 0c 0e 08 9e 89 12 | ac 85 c6 c9 0c 5c 22 88 |@.......|.....\".|
|00004da0| ca 5c 6e 38 89 11 40 3a | ab e6 c0 cb 0b 40 cc 3e |.\n8..@:|.....@.>|
|00004db0| ad 92 cd 5c 6e 41 40 4a | ce 3d ab 84 09 40 aa 84 |...\nA@J|.=...@..|
|00004dc0| 5c 6e 41 40 4a 21 1e 0f | 1e 10 1e 11 09 40 11 0b |\nA@J!..|.....@..|
|00004dd0| ab b6 0b 40 89 16 11 09 | 3e ab 8b 0e 10 0e 11 0e |...@....|>.......|
|00004de0| 0f 5c 22 16 0f aa 9c 0e | 11 d2 3d ab 85 cb 16 10 |.\".....|..=.....|
|00004df0| aa 91 0e 11 d3 3d ab 85 | d4 16 10 aa 86 c6 d5 0c |.....=..|........|
|00004e00| 09 23 88 0b 41 89 13 ac | 4a 5c 6e 41 40 0e 0f 4c |.#..A...|J\nA@..L|
|00004e10| 88 2b aa 95 0b 09 3e ac | 86 c6 d6 0c 09 23 88 5c |.+....>.|.....#.\|
|00004e20| 6e 41 40 d7 d8 5c 6e 38 | 21 4c 88 0d 41 89 15 84 |nA@..\n8|!L..A...|
|00004e30| 0c 00 2c c0 87 22 20 5b | 6e 69 6c 20 63 68 6f 69 |..,.." [|nil choi|
|00004e40| 63 65 73 20 64 65 73 63 | 20 76 61 6c 20 6b 65 79 |ces desc| val key|
|00004e50| 20 61 72 67 73 20 65 72 | 72 6f 72 20 22 6d 61 6c | args er|ror "mal|
|00004e60| 66 6f 72 6d 65 64 20 62 | 79 74 65 2d 63 6f 6d 70 |formed b|yte-comp|
|00004e70| 69 6c 65 72 2d 6f 70 74 | 69 6f 6e 20 25 73 22 20 |iler-opt|ion %s" |
|00004e80| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 72 2d 6c 65 |byte-com|piler-le|
|00004e90| 67 61 6c 2d 6f 70 74 69 | 6f 6e 73 20 22 75 6e 6b |gal-opti|ons "unk|
|00004ea0| 6e 6f 77 6e 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |nown byt|e-compil|
|00004eb0| 65 72 20 6f 70 74 69 6f | 6e 20 25 73 22 20 32 20 |er optio|n %s" 2 |
|00004ec0| 63 6f 6e 73 20 28 2b 20 | 2d 29 20 63 6f 70 79 2d |cons (+ |-) copy-|
|00004ed0| 73 65 71 75 65 6e 63 65 | 20 74 20 72 65 74 20 68 |sequence| t ret h|
|00004ee0| 61 6e 64 6c 65 72 20 74 | 68 69 73 20 2b 20 2d 20 |andler t|his + - |
|00004ef0| 64 65 6c 71 20 22 25 73 | 20 6f 6e 6c 79 20 61 63 |delq "%s| only ac|
|00004f00| 63 65 70 74 73 20 25 73 | 2e 22 20 22 25 73 20 6d |cepts %s|." "%s m|
|00004f10| 75 73 74 20 62 65 20 6f | 6e 65 20 6f 66 20 25 73 |ust be o|ne of %s|
|00004f20| 2e 22 20 65 76 61 6c 20 | 33 5d 20 36 5d 20 62 79 |." eval |3] 6] by|
|00004f30| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 66 64 65 66 69 |te-compi|le-fdefi|
|00004f40| 6e 69 74 69 6f 6e 20 23 | 5b 28 6e 61 6d 65 20 6d |nition #|[(name m|
|00004f50| 61 63 72 6f 2d 70 29 20 | 22 08 ab 83 09 aa 81 5c |acro-p) |"......\|
|00004f60| 6e 1b 0c 0b 9e 41 89 1d | ae d8 0c 89 1e 06 39 ab |n....A..|......9.|
|00004f70| a4 c7 0e 06 21 ab 9e 0e | 06 4b 39 ac 90 0e 06 4b |....!...|.K9....K|
|00004f80| 3a ac 8a 08 ac 8f c8 0e | 06 4b 21 ab 88 0e 06 4b |:.......|.K!....K|
|00004f90| 89 16 06 aa 59 08 ac 8a | c8 0e 06 21 ab 84 0e 06 |....Y...|...!....|
|00004fa0| aa 9f 0e 06 3a ad 9a 0e | 06 40 c9 3d ab 85 0e 06 |....:...|.@.=....|
|00004fb0| 41 aa 8e 08 3f ad 8a 0e | 06 40 ca 3d 3f ad 82 0e |A...?...|.@.=?...|
|00004fc0| 06 29 2a 87 22 20 5b 6d | 61 63 72 6f 2d 70 20 62 |.)*." [m|acro-p b|
|00004fd0| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 6d 61 63 72 |yte-comp|ile-macr|
|00004fe0| 6f 2d 65 6e 76 69 72 6f | 6e 6d 65 6e 74 20 62 79 |o-enviro|nment by|
|00004ff0| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 66 75 6e 63 74 |te-compi|le-funct|
|00005000| 69 6f 6e 2d 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |ion-envi|ronment |
|00005010| 6c 69 73 74 20 6e 61 6d | 65 20 65 6e 76 20 66 6e |list nam|e env fn|
|00005020| 20 66 62 6f 75 6e 64 70 | 20 63 6f 6d 70 69 6c 65 | fboundp| compile|
|00005030| 64 2d 66 75 6e 63 74 69 | 6f 6e 2d 70 20 6d 61 63 |d-functi|on-p mac|
|00005040| 72 6f 20 61 75 74 6f 6c | 6f 61 64 5d 20 33 5d 20 |ro autol|oad] 3] |
|00005050| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 61 72 67 |byte-com|pile-arg|
|00005060| 6c 69 73 74 2d 73 69 67 | 6e 61 74 75 72 65 20 23 |list-sig|nature #|
|00005070| 5b 28 61 72 67 6c 69 73 | 74 29 20 22 c0 c1 89 1a |[(arglis|t) "....|
|00005080| 1b 1c 0d ab ae 0d 40 c6 | 3d ab 87 0b ac 9f c0 13 |......@.|=.......|
|00005090| aa 9b 0d 40 c7 3d ab 8a | 0d 41 ab 91 c8 12 c1 15 |...@.=..|.A......|
|000050a0| aa 8b 0b ab 85 0b 54 13 | aa 83 0c 54 14 0d 41 89 |......T.|...T..A.|
|000050b0| 15 ac 52 0c 5c 6e 3f ad | 89 0b ab 85 0c 0b 5c 5c |..R.\n?.|......\\|
|000050c0| aa 81 0c 2b 42 87 22 20 | 5b 30 20 6e 69 6c 20 72 |...+B." |[0 nil r|
|000050d0| 65 73 74 70 20 6f 70 74 | 73 20 61 72 67 73 20 61 |estp opt|s args a|
|000050e0| 72 67 6c 69 73 74 20 26 | 6f 70 74 69 6f 6e 61 6c |rglist &|optional|
|000050f0| 20 26 72 65 73 74 20 74 | 5d 20 34 5d 20 62 79 74 | &rest t|] 4] byt|
|00005100| 65 2d 63 6f 6d 70 69 6c | 65 2d 61 72 67 6c 69 73 |e-compil|e-arglis|
|00005110| 74 2d 73 69 67 6e 61 74 | 75 72 65 73 2d 63 6f 6e |t-signat|ures-con|
|00005120| 67 72 75 65 6e 74 2d 70 | 20 23 5b 28 6f 6c 64 20 |gruent-p| #[(old |
|00005130| 6e 65 77 29 20 22 08 40 | 09 40 56 ae 95 09 41 ac |new) ".@|.@V...A.|
|00005140| 84 08 41 ae 8d 08 41 ad | 89 09 41 ad 85 08 41 09 |..A...A.|..A...A.|
|00005150| 41 57 3f 87 22 20 5b 6e | 65 77 20 6f 6c 64 5d 20 |AW?." [n|ew old] |
|00005160| 32 5d 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |2] byte-|compile-|
|00005170| 61 72 67 6c 69 73 74 2d | 73 69 67 6e 61 74 75 72 |arglist-|signatur|
|00005180| 65 2d 73 74 72 69 6e 67 | 20 23 5b 28 73 69 67 6e |e-string| #[(sign|
|00005190| 61 74 75 72 65 29 20 22 | 08 41 ac 86 c1 c2 08 40 |ature) "|.A.....@|
|000051a0| 5c 22 87 08 40 08 41 55 | ab 86 c1 c3 08 40 5c 22 |\"..@.AU|.....@\"|
|000051b0| 87 c1 c4 08 40 08 41 23 | 87 22 20 5b 73 69 67 6e |....@.A#|." [sign|
|000051c0| 61 74 75 72 65 20 66 6f | 72 6d 61 74 20 22 25 64 |ature fo|rmat "%d|
|000051d0| 2b 22 20 22 25 64 22 20 | 22 25 64 2d 25 64 22 5d |+" "%d" |"%d-%d"]|
|000051e0| 20 34 5d 5d 20 32 29 0a | 28 66 73 65 74 20 27 62 | 4]] 2).|(fset 'b|
|000051f0| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 63 61 6c 6c |yte-comp|ile-call|
|00005200| 61 72 67 73 2d 77 61 72 | 6e 20 23 5b 28 66 6f 72 |args-war|n #[(for|
|00005210| 6d 29 20 22 c0 09 40 c2 | 5c 22 ae 85 c0 09 40 c3 |m) "..@.|\"....@.|
|00005220| 5c 22 89 1c ad 90 c5 0c | a2 c6 3d ab 85 0c 41 40 |\"......|..=...A@|
|00005230| aa 83 0c c7 48 21 1e 08 | 09 41 47 1e 09 0e 08 ab |....H!..|.AG.....|
|00005240| b8 0e 09 0e 08 40 57 ac | 8d 0e 08 41 ad e6 0e 09 |.....@W.|...A....|
|00005250| 0e 08 41 56 ad de ca cb | 09 40 0e 09 89 cc 55 ab |..AV....|.@....U.|
|00005260| 83 cd aa 81 ce 0e 09 0e | 08 40 57 ab 83 cf aa 81 |........|.@W.....|
|00005270| d0 d1 0e 08 21 26 06 aa | bb d2 09 40 21 ae b5 09 |....!&..|...@!...|
|00005280| 40 0e 13 3d ae ae 09 40 | 0e 14 9e 09 41 47 1e 15 |@..=...@|....AG..|
|00005290| 89 1e 16 ab 93 0e 15 0e | 16 41 3e ae 96 0e 16 0e |........|.A>.....|
|000052a0| 15 0e 16 41 42 a1 aa 8b | 09 40 0e 15 44 0e 14 42 |...AB...|.@..D..B|
|000052b0| 89 16 14 2a 2b 87 22 20 | 5b 62 79 74 65 2d 63 6f |...*+." |[byte-co|
|000052c0| 6d 70 69 6c 65 2d 66 64 | 65 66 69 6e 69 74 69 6f |mpile-fd|efinitio|
|000052d0| 6e 20 66 6f 72 6d 20 6e | 69 6c 20 74 20 64 65 66 |n form n|il t def|
|000052e0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 61 72 | byte-co|mpile-ar|
|000052f0| 67 6c 69 73 74 2d 73 69 | 67 6e 61 74 75 72 65 20 |glist-si|gnature |
|00005300| 6c 61 6d 62 64 61 20 30 | 20 73 69 67 20 6e 63 61 |lambda 0| sig nca|
|00005310| 6c 6c 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |ll byte-|compile-|
|00005320| 77 61 72 6e 20 22 25 73 | 20 63 61 6c 6c 65 64 20 |warn "%s| called |
|00005330| 77 69 74 68 20 25 64 20 | 61 72 67 75 6d 65 6e 74 |with %d |argument|
|00005340| 25 73 2c 20 62 75 74 20 | 25 73 20 25 73 22 20 31 |%s, but |%s %s" 1|
|00005350| 20 22 22 20 22 73 22 20 | 22 72 65 71 75 69 72 65 | "" "s" |"require|
|00005360| 73 22 20 22 61 63 63 65 | 70 74 73 20 6f 6e 6c 79 |s" "acce|pts only|
|00005370| 22 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 61 |" byte-c|ompile-a|
|00005380| 72 67 6c 69 73 74 2d 73 | 69 67 6e 61 74 75 72 65 |rglist-s|ignature|
|00005390| 2d 73 74 72 69 6e 67 20 | 66 62 6f 75 6e 64 70 20 |-string |fboundp |
|000053a0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 63 75 72 |byte-com|pile-cur|
|000053b0| 72 65 6e 74 2d 66 6f 72 | 6d 20 62 79 74 65 2d 63 |rent-for|m byte-c|
|000053c0| 6f 6d 70 69 6c 65 2d 75 | 6e 72 65 73 6f 6c 76 65 |ompile-u|nresolve|
|000053d0| 64 2d 66 75 6e 63 74 69 | 6f 6e 73 20 6e 20 63 6f |d-functi|ons n co|
|000053e0| 6e 73 5d 20 39 20 22 5c | 0a 77 61 72 6e 20 69 66 |ns] 9 "\|.warn if|
|000053f0| 20 74 68 65 20 66 6f 72 | 6d 20 69 73 20 63 61 6c | the for|m is cal|
|00005400| 6c 69 6e 67 20 61 20 66 | 75 6e 63 74 69 6f 6e 20 |ling a f|unction |
|00005410| 77 69 74 68 20 74 68 65 | 20 77 72 6f 6e 67 20 6e |with the| wrong n|
|00005420| 75 6d 62 65 72 20 6f 66 | 20 61 72 67 75 6d 65 6e |umber of| argumen|
|00005430| 74 73 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 62 79 |ts."]).(|fset 'by|
|00005440| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 61 72 67 6c 69 |te-compi|le-argli|
|00005450| 73 74 2d 77 61 72 6e 20 | 23 5b 28 66 6f 72 6d 20 |st-warn |#[(form |
|00005460| 6d 61 63 72 6f 70 29 20 | 22 c0 09 41 40 5c 6e 5c |macrop) |"..A@\n\|
|00005470| 22 89 1b ab c7 c4 0b a2 | c5 3d ab 85 0b 41 40 aa |".......|.=...A@.|
|00005480| 83 0b c6 48 21 c4 c7 09 | 38 21 1e 08 1e 09 ca 0e |...H!...|8!......|
|00005490| 09 0e 08 5c 22 ae a3 cb | cc 09 40 cd 3d ab 83 ce |...\"...|..@.=...|
|000054a0| aa 81 cf 09 41 40 d0 0e | 09 21 0e 09 d1 9a ab 83 |....A@..|.!......|
|000054b0| d2 aa 81 d3 d0 0e 08 21 | 26 06 2a aa ed 09 41 40 |.......!|&.*...A@|
|000054c0| 0e 14 9e d5 89 89 89 1e | 16 1e 17 1e 18 1e 19 89 |........|........|
|000054d0| 1e 1a ad d5 c4 c7 09 38 | 21 16 18 db dc 0e 1a 41 |.......8|!......A|
|000054e0| 21 dd 5c 22 89 16 19 40 | 16 17 0e 19 9f 40 16 16 |!.\"...@|.....@..|
|000054f0| 0e 17 0e 18 40 57 ac 8d | 0e 18 41 ab a4 0e 16 0e |....@W..|..A.....|
|00005500| 18 41 56 ab 9c cb de 09 | 41 40 d0 0e 18 21 0e 18 |.AV.....|A@...!..|
|00005510| df 9a ab 83 e0 aa 81 e1 | d0 0e 17 0e 16 42 21 25 |........|.....B!%|
|00005520| 88 e2 0e 1a 0e 14 5c 22 | 89 16 14 2d 29 87 22 20 |......\"|...-)." |
|00005530| 5b 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 66 64 |[byte-co|mpile-fd|
|00005540| 65 66 69 6e 69 74 69 6f | 6e 20 66 6f 72 6d 20 6d |efinitio|n form m|
|00005550| 61 63 72 6f 70 20 6f 6c | 64 20 62 79 74 65 2d 63 |acrop ol|d byte-c|
|00005560| 6f 6d 70 69 6c 65 2d 61 | 72 67 6c 69 73 74 2d 73 |ompile-a|rglist-s|
|00005570| 69 67 6e 61 74 75 72 65 | 20 6c 61 6d 62 64 61 20 |ignature| lambda |
|00005580| 30 20 32 20 73 69 67 32 | 20 73 69 67 31 20 62 79 |0 2 sig2| sig1 by|
|00005590| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 61 72 67 6c 69 |te-compi|le-argli|
|000055a0| 73 74 2d 73 69 67 6e 61 | 74 75 72 65 73 2d 63 6f |st-signa|tures-co|
|000055b0| 6e 67 72 75 65 6e 74 2d | 70 20 62 79 74 65 2d 63 |ngruent-|p byte-c|
|000055c0| 6f 6d 70 69 6c 65 2d 77 | 61 72 6e 20 22 25 73 20 |ompile-w|arn "%s |
|000055d0| 25 73 20 75 73 65 64 20 | 74 6f 20 74 61 6b 65 20 |%s used |to take |
|000055e0| 25 73 20 25 73 2c 20 6e | 6f 77 20 74 61 6b 65 73 |%s %s, n|ow takes|
|000055f0| 20 25 73 22 20 64 65 66 | 75 6e 20 22 66 75 6e 63 | %s" def|un "func|
|00005600| 74 69 6f 6e 22 20 22 6d | 61 63 72 6f 22 20 62 79 |tion" "m|acro" by|
|00005610| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 61 72 67 6c 69 |te-compi|le-argli|
|00005620| 73 74 2d 73 69 67 6e 61 | 74 75 72 65 2d 73 74 72 |st-signa|ture-str|
|00005630| 69 6e 67 20 28 31 20 2e | 20 31 29 20 22 61 72 67 |ing (1 .| 1) "arg|
|00005640| 75 6d 65 6e 74 22 20 22 | 61 72 67 75 6d 65 6e 74 |ument" "|argument|
|00005650| 73 22 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |s" byte-|compile-|
|00005660| 75 6e 72 65 73 6f 6c 76 | 65 64 2d 66 75 6e 63 74 |unresolv|ed-funct|
|00005670| 69 6f 6e 73 20 6e 69 6c | 20 6d 61 78 20 6d 69 6e |ions nil| max min|
|00005680| 20 73 69 67 20 6e 75 6d | 73 20 63 61 6c 6c 73 20 | sig num|s calls |
|00005690| 73 6f 72 74 20 63 6f 70 | 79 2d 73 65 71 75 65 6e |sort cop|y-sequen|
|000056a0| 63 65 20 3c 20 22 25 73 | 20 62 65 69 6e 67 20 64 |ce < "%s| being d|
|000056b0| 65 66 69 6e 65 64 20 74 | 6f 20 74 61 6b 65 20 25 |efined t|o take %|
|000056c0| 73 25 73 2c 20 62 75 74 | 20 77 61 73 20 70 72 65 |s%s, but| was pre|
|000056d0| 76 69 6f 75 73 6c 79 20 | 63 61 6c 6c 65 64 20 77 |viously |called w|
|000056e0| 69 74 68 20 25 73 22 20 | 28 31 20 2e 20 31 29 20 |ith %s" |(1 . 1) |
|000056f0| 22 20 61 72 67 22 20 22 | 20 61 72 67 73 22 20 64 |" arg" "| args" d|
|00005700| 65 6c 71 5d 20 39 20 22 | 5c 0a 77 61 72 6e 20 69 |elq] 9 "|\.warn i|
|00005710| 66 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 20 6f |f the fu|nction o|
|00005720| 72 20 6d 61 63 72 6f 20 | 69 73 20 62 65 69 6e 67 |r macro |is being|
|00005730| 20 72 65 64 65 66 69 6e | 65 64 20 77 69 74 68 20 | redefin|ed with |
|00005740| 61 20 64 69 66 66 65 72 | 65 6e 74 0a 6e 75 6d 62 |a differ|ent.numb|
|00005750| 65 72 20 6f 66 20 61 72 | 67 75 6d 65 6e 74 73 2e |er of ar|guments.|
|00005760| 22 5d 29 0a 28 66 73 65 | 74 20 27 62 79 74 65 2d |"]).(fse|t 'byte-|
|00005770| 63 6f 6d 70 69 6c 65 2d | 77 61 72 6e 2d 61 62 6f |compile-|warn-abo|
|00005780| 75 74 2d 75 6e 72 65 73 | 6f 6c 76 65 64 2d 66 75 |ut-unres|olved-fu|
|00005790| 6e 63 74 69 6f 6e 73 20 | 23 5b 6e 69 6c 20 22 c0 |nctions |#[nil ".|
|000057a0| 09 3e ab f3 c2 1b 0c 41 | ab e2 c5 1e 06 c5 47 c7 |.>.....A|......G.|
|000057b0| 5c 5c 1e 08 c9 0c 21 1e | 5c 6e cb 1e 0c 0e 5c 6e |\\....!.|\n....\n|
|000057c0| ab c4 cd 0e 5c 6e 40 40 | 21 16 0c 0e 08 0e 0c 47 |....\n@@|!......G|
|000057d0| ce 5c 5c 5c 5c 16 08 0e | 5c 6e 41 16 5c 6e 0e 08 |.\\\\...|\nA.\n..|
|000057e0| 0e 0f 53 58 ab 8f 0e 06 | d0 0e 0c 0e 5c 6e ad 81 |..SX....|....\n..|
|000057f0| d1 52 16 06 aa 4e 0e 06 | d2 0e 0c 0e 5c 6e ad 81 |.R...N..|....\n..|
|00005800| d1 52 16 06 0e 0c 47 d3 | 5c 5c 16 08 aa 38 d4 d5 |.R....G.|\\...8..|
|00005810| 0e 06 5c 22 88 2c aa 8a | 0c ab 87 d4 d6 0c 40 40 |..\".,..|......@@|
|00005820| 5c 22 88 29 cb 87 22 20 | 5b 75 6e 72 65 73 6f 6c |\".).." |[unresol|
|00005830| 76 65 64 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ved byte|-compile|
|00005840| 2d 77 61 72 6e 69 6e 67 | 73 20 22 74 68 65 20 65 |-warning|s "the e|
|00005850| 6e 64 20 6f 66 20 74 68 | 65 20 64 61 74 61 22 20 |nd of th|e data" |
|00005860| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 63 75 72 |byte-com|pile-cur|
|00005870| 72 65 6e 74 2d 66 6f 72 | 6d 20 62 79 74 65 2d 63 |rent-for|m byte-c|
|00005880| 6f 6d 70 69 6c 65 2d 75 | 6e 72 65 73 6f 6c 76 65 |ompile-u|nresolve|
|00005890| 64 2d 66 75 6e 63 74 69 | 6f 6e 73 20 22 54 68 65 |d-functi|ons "The|
|000058a0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 66 75 6e 63 74 | followi|ng funct|
|000058b0| 69 6f 6e 73 20 61 72 65 | 20 6e 6f 74 20 6b 6e 6f |ions are| not kno|
|000058c0| 77 6e 20 74 6f 20 62 65 | 20 64 65 66 69 6e 65 64 |wn to be| defined|
|000058d0| 3a 20 22 20 73 74 72 20 | 35 20 4c 20 72 65 76 65 |: " str |5 L reve|
|000058e0| 72 73 65 20 72 65 73 74 | 20 6e 69 6c 20 73 20 73 |rse rest| nil s s|
|000058f0| 79 6d 62 6f 6c 2d 6e 61 | 6d 65 20 32 20 66 69 6c |ymbol-na|me 2 fil|
|00005900| 6c 2d 63 6f 6c 75 6d 6e | 20 22 20 22 20 22 2c 22 |l-column| " " ","|
|00005910| 20 22 5c 6e 20 20 20 20 | 22 20 34 20 62 79 74 65 | "\n |" 4 byte|
|00005920| 2d 63 6f 6d 70 69 6c 65 | 2d 77 61 72 6e 20 22 25 |-compile|-warn "%|
|00005930| 73 22 20 22 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |s" "the |function|
|00005940| 20 25 73 20 69 73 20 6e | 6f 74 20 6b 6e 6f 77 6e | %s is n|ot known|
|00005950| 20 74 6f 20 62 65 20 64 | 65 66 69 6e 65 64 2e 22 | to be d|efined."|
|00005960| 5d 20 34 20 22 5c 0a 49 | 66 20 77 65 20 68 61 76 |] 4 "\.I|f we hav|
|00005970| 65 20 63 6f 6d 70 69 6c | 65 64 20 61 6e 79 20 63 |e compil|ed any c|
|00005980| 61 6c 6c 73 20 74 6f 20 | 66 75 6e 63 74 69 6f 6e |alls to |function|
|00005990| 73 20 77 68 69 63 68 20 | 61 72 65 20 6e 6f 74 20 |s which |are not |
|000059a0| 6b 6e 6f 77 6e 20 74 6f | 20 62 65 20 0a 64 65 66 |known to| be .def|
|000059b0| 69 6e 65 64 2c 20 69 73 | 73 75 65 20 61 20 77 61 |ined, is|sue a wa|
|000059c0| 72 6e 69 6e 67 20 65 6e | 75 6d 65 72 61 74 69 6e |rning en|umeratin|
|000059d0| 67 20 74 68 65 6d 2e 20 | 20 59 6f 75 20 63 61 6e |g them. | You can|
|000059e0| 20 64 69 73 61 62 6c 65 | 20 74 68 69 73 20 62 79 | disable| this by|
|000059f0| 20 69 6e 63 6c 75 64 69 | 6e 67 0a 27 75 6e 72 65 | includi|ng.'unre|
|00005a00| 73 6f 6c 76 65 64 20 69 | 6e 20 76 61 72 69 61 62 |solved i|n variab|
|00005a10| 6c 65 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |le byte-|compile-|
|00005a20| 77 61 72 6e 69 6e 67 73 | 2e 22 5d 29 0a 28 62 79 |warnings|."]).(by|
|00005a30| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4d 88 c2 c3 4d |te-code |"..M...M|
|00005a40| 88 c4 c5 4d 87 22 20 5b | 62 79 74 65 2d 63 6f 6d |...M." [|byte-com|
|00005a50| 70 69 6c 65 2d 63 6f 6e | 73 74 70 20 28 6d 61 63 |pile-con|stp (mac|
|00005a60| 72 6f 20 2e 20 23 5b 28 | 66 6f 72 6d 29 20 22 c0 |ro . #[(|form) ".|
|00005a70| c1 5c 6e 44 c3 c4 5c 6e | 44 c5 45 44 c6 c7 5c 6e |.\nD..\n|D.ED..\n|
|00005a80| 44 44 43 c8 5c 6e c9 45 | 43 46 87 22 20 5b 63 6f |DDC.\n.E|CF." [co|
|00005a90| 6e 64 20 63 6f 6e 73 70 | 20 66 6f 72 6d 20 65 71 |nd consp| form eq|
|00005aa0| 20 63 61 72 20 27 71 75 | 6f 74 65 20 6e 6f 74 20 | car 'qu|ote not |
|00005ab0| 73 79 6d 62 6f 6c 70 20 | 6d 65 6d 71 20 27 28 6e |symbolp |memq '(n|
|00005ac0| 69 6c 20 74 29 5d 20 36 | 5d 29 20 62 79 74 65 2d |il t)] 6|]) byte-|
|00005ad0| 63 6f 6d 70 69 6c 65 2d | 63 6c 6f 73 65 2d 76 61 |compile-|close-va|
|00005ae0| 72 69 61 62 6c 65 73 20 | 28 6d 61 63 72 6f 20 2e |riables |(macro .|
|00005af0| 20 23 5b 28 26 72 65 73 | 74 20 62 6f 64 79 29 20 | #[(&res|t body) |
|00005b00| 22 c0 c1 5c 6e 42 42 87 | 22 20 5b 6c 65 74 20 28 |"..\nBB.|" [let (|
|00005b10| 28 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 6d 61 |(byte-co|mpile-ma|
|00005b20| 63 72 6f 2d 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |cro-envi|ronment |
|00005b30| 28 63 6f 70 79 2d 61 6c | 69 73 74 20 62 79 74 65 |(copy-al|ist byte|
|00005b40| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 69 74 69 61 6c |-compile|-initial|
|00005b50| 2d 6d 61 63 72 6f 2d 65 | 6e 76 69 72 6f 6e 6d 65 |-macro-e|nvironme|
|00005b60| 6e 74 29 29 20 28 62 79 | 74 65 2d 63 6f 6d 70 69 |nt)) (by|te-compi|
|00005b70| 6c 65 2d 66 75 6e 63 74 | 69 6f 6e 2d 65 6e 76 69 |le-funct|ion-envi|
|00005b80| 72 6f 6e 6d 65 6e 74 20 | 6e 69 6c 29 20 28 62 79 |ronment |nil) (by|
|00005b90| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 62 6f 75 6e 64 |te-compi|le-bound|
|00005ba0| 2d 76 61 72 69 61 62 6c | 65 73 20 6e 69 6c 29 20 |-variabl|es nil) |
|00005bb0| 28 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 66 72 |(byte-co|mpile-fr|
|00005bc0| 65 65 2d 72 65 66 65 72 | 65 6e 63 65 73 20 6e 69 |ee-refer|ences ni|
|00005bd0| 6c 29 20 28 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |l) (byte|-compile|
|00005be0| 2d 66 72 65 65 2d 61 73 | 73 69 67 6e 6d 65 6e 74 |-free-as|signment|
|00005bf0| 73 20 6e 69 6c 29 20 28 | 62 79 74 65 2d 63 6f 6d |s nil) (|byte-com|
|00005c00| 70 69 6c 65 2d 76 65 72 | 62 6f 73 65 20 62 79 74 |pile-ver|bose byt|
|00005c10| 65 2d 63 6f 6d 70 69 6c | 65 2d 76 65 72 62 6f 73 |e-compil|e-verbos|
|00005c20| 65 29 20 28 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |e) (byte|-optimiz|
|00005c30| 65 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 29 |e byte-o|ptimize)|
|00005c40| 20 28 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 67 | (byte-c|ompile-g|
|00005c50| 65 6e 65 72 61 74 65 2d | 65 6d 61 63 73 31 39 2d |enerate-|emacs19-|
|00005c60| 62 79 74 65 63 6f 64 65 | 73 20 62 79 74 65 2d 63 |bytecode|s byte-c|
|00005c70| 6f 6d 70 69 6c 65 2d 67 | 65 6e 65 72 61 74 65 2d |ompile-g|enerate-|
|00005c80| 65 6d 61 63 73 31 39 2d | 62 79 74 65 63 6f 64 65 |emacs19-|bytecode|
|00005c90| 73 29 20 28 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |s) (byte|-compile|
|00005ca0| 2d 77 61 72 6e 69 6e 67 | 73 20 28 69 66 20 28 65 |-warning|s (if (e|
|00005cb0| 71 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 77 |q byte-c|ompile-w|
|00005cc0| 61 72 6e 69 6e 67 73 20 | 74 29 20 62 79 74 65 2d |arnings |t) byte-|
|00005cd0| 63 6f 6d 70 69 6c 65 2d | 77 61 72 6e 69 6e 67 2d |compile-|warning-|
|00005ce0| 74 79 70 65 73 20 62 79 | 74 65 2d 63 6f 6d 70 69 |types by|te-compi|
|00005cf0| 6c 65 2d 77 61 72 6e 69 | 6e 67 73 29 29 29 20 62 |le-warni|ngs))) b|
|00005d00| 6f 64 79 5d 20 33 5d 29 | 20 64 69 73 70 6c 61 79 |ody] 3])| display|
|00005d10| 69 6e 67 2d 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ing-byte|-compile|
|00005d20| 2d 77 61 72 6e 69 6e 67 | 73 20 28 6d 61 63 72 6f |-warning|s (macro|
|00005d30| 20 2e 20 23 5b 28 26 72 | 65 73 74 20 62 6f 64 79 | . #[(&r|est body|
|00005d40| 29 20 22 c0 c1 c2 c3 0c | 42 c5 45 45 87 22 20 5b |) ".....|B.EE." [|
|00005d50| 6c 65 74 20 28 28 62 79 | 74 65 2d 63 6f 6d 70 69 |let ((by|te-compi|
|00005d60| 6c 65 2d 77 61 72 6e 69 | 6e 67 73 2d 70 6f 69 6e |le-warni|ngs-poin|
|00005d70| 74 2d 6d 61 78 20 28 69 | 66 20 28 62 6f 75 6e 64 |t-max (i|f (bound|
|00005d80| 70 20 27 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |p 'byte-|compile-|
|00005d90| 77 61 72 6e 69 6e 67 73 | 2d 70 6f 69 6e 74 2d 6d |warnings|-point-m|
|00005da0| 61 78 29 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ax) byte|-compile|
|00005db0| 2d 77 61 72 6e 69 6e 67 | 73 2d 70 6f 69 6e 74 2d |-warning|s-point-|
|00005dc0| 6d 61 78 20 28 73 61 76 | 65 2d 65 78 63 75 72 73 |max (sav|e-excurs|
|00005dd0| 69 6f 6e 20 28 73 65 74 | 2d 62 75 66 66 65 72 20 |ion (set|-buffer |
|00005de0| 28 67 65 74 2d 62 75 66 | 66 65 72 2d 63 72 65 61 |(get-buf|fer-crea|
|00005df0| 74 65 20 22 2a 43 6f 6d | 70 69 6c 65 2d 4c 6f 67 |te "*Com|pile-Log|
|00005e00| 2a 22 29 29 20 28 70 6f | 69 6e 74 2d 6d 61 78 29 |*")) (po|int-max)|
|00005e10| 29 29 29 29 20 75 6e 77 | 69 6e 64 2d 70 72 6f 74 |)))) unw|ind-prot|
|00005e20| 65 63 74 20 70 72 6f 67 | 6e 20 62 6f 64 79 20 28 |ect prog|n body (|
|00005e30| 73 61 76 65 2d 65 78 63 | 75 72 73 69 6f 6e 20 28 |save-exc|ursion (|
|00005e40| 73 65 74 2d 62 75 66 66 | 65 72 20 22 2a 43 6f 6d |set-buff|er "*Com|
|00005e50| 70 69 6c 65 2d 4c 6f 67 | 2a 22 29 20 28 69 66 20 |pile-Log|*") (if |
|00005e60| 28 3d 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |(= byte-|compile-|
|00005e70| 77 61 72 6e 69 6e 67 73 | 2d 70 6f 69 6e 74 2d 6d |warnings|-point-m|
|00005e80| 61 78 20 28 70 6f 69 6e | 74 2d 6d 61 78 29 29 20 |ax (poin|t-max)) |
|00005e90| 6e 69 6c 20 28 73 65 6c | 65 63 74 2d 77 69 6e 64 |nil (sel|ect-wind|
|00005ea0| 6f 77 20 28 70 72 6f 67 | 31 20 28 73 65 6c 65 63 |ow (prog|1 (selec|
|00005eb0| 74 65 64 2d 77 69 6e 64 | 6f 77 29 20 28 73 65 6c |ted-wind|ow) (sel|
|00005ec0| 65 63 74 2d 77 69 6e 64 | 6f 77 20 28 64 69 73 70 |ect-wind|ow (disp|
|00005ed0| 6c 61 79 2d 62 75 66 66 | 65 72 20 28 63 75 72 72 |lay-buff|er (curr|
|00005ee0| 65 6e 74 2d 62 75 66 66 | 65 72 29 29 29 20 28 67 |ent-buff|er))) (g|
|00005ef0| 6f 74 6f 2d 63 68 61 72 | 20 62 79 74 65 2d 63 6f |oto-char| byte-co|
|00005f00| 6d 70 69 6c 65 2d 77 61 | 72 6e 69 6e 67 73 2d 70 |mpile-wa|rnings-p|
|00005f10| 6f 69 6e 74 2d 6d 61 78 | 29 20 28 72 65 63 65 6e |oint-max|) (recen|
|00005f20| 74 65 72 20 31 29 29 29 | 29 29 5d 20 35 5d 29 5d |ter 1)))|))] 5])]|
|00005f30| 20 32 29 0a 28 66 73 65 | 74 20 27 62 79 74 65 2d | 2).(fse|t 'byte-|
|00005f40| 72 65 63 6f 6d 70 69 6c | 65 2d 64 69 72 65 63 74 |recompil|e-direct|
|00005f50| 6f 72 79 20 23 5b 28 64 | 69 72 65 63 74 6f 72 79 |ory #[(d|irectory|
|00005f60| 20 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 | &option|al arg) |
|00005f70| 22 08 ac 88 c1 20 88 c2 | c3 20 21 88 c4 0d 21 43 |".... ..|. !...!C|
|00005f80| c6 89 c7 1e 08 1e 09 1e | 5c 6e 1e 0b cc cd 21 ab |........|\n....!.|
|00005f90| 84 0e 0d aa 88 8a ce cf | 21 71 88 64 29 1e 0d d0 |........|!q.d)...|
|00005fa0| 8e 0e 0b 83 de 00 0e 0b | 40 15 08 ac 85 d1 d2 0d |........|@.......|
|00005fb0| 5c 22 88 d3 0d 21 c7 89 | 1e 14 1e 15 89 1e 16 83 |\"...!..|........|
|00005fc0| d4 00 c4 0e 16 40 0d 5c | 22 16 15 0e 16 40 d7 9d |.....@.\|"....@..|
|00005fd0| ac 90 d8 0e 15 21 ab 8a | 0e 0b 0e 15 43 a4 16 0b |.....!..|....C...|
|00005fe0| aa dd d9 0e 1a 0e 15 5c | 22 ab d5 db 0e 15 21 ac |.......\|".....!.|
|00005ff0| cf dc 0e 15 21 89 16 14 | ab c6 dd 0e 14 21 ab 88 |....!...|.....!..|
|00006000| de 0e 15 0e 14 5c 22 aa | 91 0e 1f ab b4 0e 1f c6 |.....\".|........|
|00006010| 3d ac 89 e0 e1 0e 15 e2 | 51 21 ab a5 08 ab 8a 0e |=.......|Q!......|
|00006020| 23 ac 86 d1 e4 0e 15 5c | 22 88 e5 0e 15 21 88 0e |#......\|"....!..|
|00006030| 5c 6e 54 16 5c 6e 0e 08 | 0d 3d ac 88 0d 16 08 0e |\nT.\n..|.=......|
|00006040| 09 54 16 09 0e 16 41 89 | 16 16 84 4f 00 2b 0e 0b |.T....A.|...O.+..|
|00006050| 41 89 16 0b 84 34 00 2a | d1 e6 0e 5c 6e 89 e7 55 |A....4.*|...\n..U|
|00006060| ab 83 e8 aa 81 e9 0e 09 | e7 56 ab 87 ea eb 0e 09 |........|.V......|
|00006070| 5c 22 aa 81 e8 24 2c 87 | 22 20 5b 6e 6f 6e 69 6e |\"...$,.|" [nonin|
|00006080| 74 65 72 61 63 74 69 76 | 65 20 73 61 76 65 2d 73 |teractiv|e save-s|
|00006090| 6f 6d 65 2d 62 75 66 66 | 65 72 73 20 73 65 74 2d |ome-buff|ers set-|
|000060a0| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|000060b0| 70 20 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 |p buffer|-modifie|
|000060c0| 64 2d 70 20 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |d-p expa|nd-file-|
|000060d0| 6e 61 6d 65 20 64 69 72 | 65 63 74 6f 72 79 20 30 |name dir|ectory 0|
|000060e0| 20 6e 69 6c 20 6c 61 73 | 74 2d 64 69 72 20 64 69 | nil las|t-dir di|
|000060f0| 72 2d 63 6f 75 6e 74 20 | 66 69 6c 65 2d 63 6f 75 |r-count |file-cou|
|00006100| 6e 74 20 64 69 72 65 63 | 74 6f 72 69 65 73 20 62 |nt direc|tories b|
|00006110| 6f 75 6e 64 70 20 62 79 | 74 65 2d 63 6f 6d 70 69 |oundp by|te-compi|
|00006120| 6c 65 2d 77 61 72 6e 69 | 6e 67 73 2d 70 6f 69 6e |le-warni|ngs-poin|
|00006130| 74 2d 6d 61 78 20 67 65 | 74 2d 62 75 66 66 65 72 |t-max ge|t-buffer|
|00006140| 2d 63 72 65 61 74 65 20 | 22 2a 43 6f 6d 70 69 6c |-create |"*Compil|
|00006150| 65 2d 4c 6f 67 2a 22 20 | 28 28 62 79 74 65 2d 63 |e-Log*" |((byte-c|
|00006160| 6f 64 65 20 22 8a c0 71 | 88 09 64 55 ac 92 c2 c3 |ode "..q|..dU....|
|00006170| 20 c2 c4 70 21 21 88 09 | 62 88 c5 c6 21 88 21 88 | ..p!!..|b...!.!.|
|00006180| 29 c2 87 22 20 5b 22 2a | 43 6f 6d 70 69 6c 65 2d |).." ["*|Compile-|
|00006190| 4c 6f 67 2a 22 20 62 79 | 74 65 2d 63 6f 6d 70 69 |Log*" by|te-compi|
|000061a0| 6c 65 2d 77 61 72 6e 69 | 6e 67 73 2d 70 6f 69 6e |le-warni|ngs-poin|
|000061b0| 74 2d 6d 61 78 20 73 65 | 6c 65 63 74 2d 77 69 6e |t-max se|lect-win|
|000061c0| 64 6f 77 20 73 65 6c 65 | 63 74 65 64 2d 77 69 6e |dow sele|cted-win|
|000061d0| 64 6f 77 20 64 69 73 70 | 6c 61 79 2d 62 75 66 66 |dow disp|lay-buff|
|000061e0| 65 72 20 72 65 63 65 6e | 74 65 72 20 31 5d 20 35 |er recen|ter 1] 5|
|000061f0| 29 29 20 6d 65 73 73 61 | 67 65 20 22 43 68 65 63 |)) messa|ge "Chec|
|00006200| 6b 69 6e 67 20 25 73 2e | 2e 2e 22 20 64 69 72 65 |king %s.|.." dire|
|00006210| 63 74 6f 72 79 2d 66 69 | 6c 65 73 20 64 65 73 74 |ctory-fi|les dest|
|00006220| 20 73 6f 75 72 63 65 20 | 66 69 6c 65 73 20 28 22 | source |files ("|
|00006230| 2e 22 20 22 2e 2e 22 20 | 22 52 43 53 22 20 22 43 |." ".." |"RCS" "C|
|00006240| 56 53 22 29 20 66 69 6c | 65 2d 64 69 72 65 63 74 |VS") fil|e-direct|
|00006250| 6f 72 79 2d 70 20 73 74 | 72 69 6e 67 2d 6d 61 74 |ory-p st|ring-mat|
|00006260| 63 68 20 65 6d 61 63 73 | 2d 6c 69 73 70 2d 66 69 |ch emacs|-lisp-fi|
|00006270| 6c 65 2d 72 65 67 65 78 | 70 20 61 75 74 6f 2d 73 |le-regex|p auto-s|
|00006280| 61 76 65 2d 66 69 6c 65 | 2d 6e 61 6d 65 2d 70 20 |ave-file|-name-p |
|00006290| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 64 65 73 |byte-com|pile-des|
|000062a0| 74 2d 66 69 6c 65 20 66 | 69 6c 65 2d 65 78 69 73 |t-file f|ile-exis|
|000062b0| 74 73 2d 70 20 66 69 6c | 65 2d 6e 65 77 65 72 2d |ts-p fil|e-newer-|
|000062c0| 74 68 61 6e 2d 66 69 6c | 65 2d 70 20 61 72 67 20 |than-fil|e-p arg |
|000062d0| 79 2d 6f 72 2d 6e 2d 70 | 20 22 43 6f 6d 70 69 6c |y-or-n-p| "Compil|
|000062e0| 65 20 22 20 22 3f 20 22 | 20 62 79 74 65 2d 63 6f |e " "? "| byte-co|
|000062f0| 6d 70 69 6c 65 2d 76 65 | 72 62 6f 73 65 20 22 43 |mpile-ve|rbose "C|
|00006300| 6f 6d 70 69 6c 69 6e 67 | 20 25 73 2e 2e 2e 22 20 |ompiling| %s..." |
|00006310| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 66 69 6c |byte-com|pile-fil|
|00006320| 65 20 22 44 6f 6e 65 20 | 28 54 6f 74 61 6c 20 6f |e "Done |(Total o|
|00006330| 66 20 25 64 20 66 69 6c | 65 25 73 20 63 6f 6d 70 |f %d fil|e%s comp|
|00006340| 69 6c 65 64 25 73 29 22 | 20 31 20 22 22 20 22 73 |iled%s)"| 1 "" "s|
|00006350| 22 20 66 6f 72 6d 61 74 | 20 22 20 69 6e 20 25 64 |" format| " in %d|
|00006360| 20 64 69 72 65 63 74 6f | 72 69 65 73 22 5d 20 38 | directo|ries"] 8|
|00006370| 20 22 5c 0a 52 65 63 6f | 6d 70 69 6c 65 20 65 76 | "\.Reco|mpile ev|
|00006380| 65 72 79 20 60 2e 65 6c | 27 20 66 69 6c 65 20 69 |ery `.el|' file i|
|00006390| 6e 20 44 49 52 45 43 54 | 4f 52 59 20 74 68 61 74 |n DIRECT|ORY that|
|000063a0| 20 6e 65 65 64 73 20 72 | 65 63 6f 6d 70 69 6c 61 | needs r|ecompila|
|000063b0| 74 69 6f 6e 2e 0a 54 68 | 69 73 20 69 73 20 69 66 |tion..Th|is is if|
|000063c0| 20 61 20 60 2e 65 6c 63 | 27 20 66 69 6c 65 20 65 | a `.elc|' file e|
|000063d0| 78 69 73 74 73 20 62 75 | 74 20 69 73 20 6f 6c 64 |xists bu|t is old|
|000063e0| 65 72 20 74 68 61 6e 20 | 74 68 65 20 60 2e 65 6c |er than |the `.el|
|000063f0| 27 20 66 69 6c 65 2e 0a | 0a 49 66 20 74 68 65 20 |' file..|.If the |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
