|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ d ┃
Length: 6599 (0x19c7)
Names: »disass.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/disass.elc«
0x0000…0020 0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 29 20 22 ┆ (require (quote byte-compile) "┆
0x0020…0040 62 79 74 65 63 6f 6d 70 22 29 0a 0a 28 64 65 66 76 61 72 20 64 69 73 61 73 73 65 6d 62 6c 65 2d ┆bytecomp") (defvar disassemble-┆
0x0040…0060 63 6f 6c 75 6d 6e 2d 31 2d 69 6e 64 65 6e 74 20 34 20 22 5c 0a 2a 22 29 0a 0a 28 64 65 66 76 61 ┆column-1-indent 4 "\ *") (defva┆
0x0060…0080 72 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 63 6f 6c 75 6d 6e 2d 32 2d 69 6e 64 65 6e 74 20 39 20 ┆r disassemble-column-2-indent 9 ┆
0x0080…00a0 22 5c 0a 2a 22 29 0a 0a 28 64 65 66 76 61 72 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 72 65 63 75 ┆"\ *") (defvar disassemble-recu┆
0x00a0…00c0 72 73 69 76 65 2d 69 6e 64 65 6e 74 20 33 20 22 5c 0a 2a 22 29 0a 0a 28 64 65 66 75 6e 20 64 69 ┆rsive-indent 3 "\ *") (defun di┆
0x00c0…00e0 73 61 73 73 65 6d 62 6c 65 20 28 6f 62 6a 65 63 74 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 65 ┆sassemble (object &optional stre┆
0x00e0…0100 61 6d 20 69 6e 64 65 6e 74 20 69 6e 74 65 72 61 63 74 69 76 65 2d 70 29 20 22 5c 0a 50 72 69 6e ┆am indent interactive-p) "\ Prin┆
0x0100…0120 74 20 64 69 73 61 73 73 65 6d 62 6c 65 64 20 63 6f 64 65 20 66 6f 72 20 4f 42 4a 45 43 54 20 6f ┆t disassembled code for OBJECT o┆
0x0120…0140 6e 20 28 6f 70 74 69 6f 6e 61 6c 29 20 53 54 52 45 41 4d 2e 0a 4f 42 4a 45 43 54 20 63 61 6e 20 ┆n (optional) STREAM. OBJECT can ┆
0x0140…0160 62 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 2c 20 6c 61 6d 62 64 61 20 65 78 70 72 65 ┆be a function name, lambda expre┆
0x0160…0180 73 73 69 6f 6e 20 6f 72 20 61 6e 79 20 66 75 6e 63 74 69 6f 6e 20 6f 62 6a 65 63 74 0a 72 65 74 ┆ssion or any function object ret┆
0x0180…01a0 75 72 6e 65 64 20 62 79 20 53 59 4d 42 4f 4c 2d 46 55 4e 43 54 49 4f 4e 2e 20 20 49 66 20 4f 42 ┆urned by SYMBOL-FUNCTION. If OB┆
0x01a0…01c0 4a 45 43 54 20 69 73 20 6e 6f 74 20 61 6c 72 65 61 64 79 20 63 6f 6d 70 69 6c 65 64 2c 20 77 65 ┆JECT is not already compiled, we┆
0x01c0…01e0 20 77 69 6c 6c 0a 63 6f 6d 70 69 6c 65 20 69 74 20 28 62 75 74 20 6e 6f 74 20 72 65 64 65 66 69 ┆ will compile it (but not redefi┆
0x01e0…0200 6e 65 20 69 74 29 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 ┆ne it)." (interactive (byte-code┆
0x0200…0220 20 22 c3 c4 c5 08 c6 c1 24 21 c2 c7 c1 46 87 22 20 5b 6f 62 61 72 72 61 79 20 74 20 6e 69 6c 20 ┆ " $! F " [obarray t nil ┆
0x0220…0240 69 6e 74 65 72 6e 20 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 44 69 73 61 73 73 65 6d ┆intern completing-read "Disassem┆
0x0240…0260 62 6c 65 20 66 75 6e 63 74 69 6f 6e 3a 20 22 20 66 62 6f 75 6e 64 70 20 30 5d 20 36 29 29 20 28 ┆ble function: " fboundp 0] 6)) (┆
0x0260…0280 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 0b 86 09 00 c8 89 13 88 0c 83 1b 00 c9 90 ca 0d 0e 06 0b ┆byte-code " ┆
0x0280…02a0 c1 24 91 82 27 00 ca 0d 0e 07 86 24 00 0e 06 0b c2 24 88 c2 87 22 20 5b 6f 62 61 72 72 61 79 20 ┆ $ ' $ $ " [obarray ┆
0x02a0…02c0 74 20 6e 69 6c 20 69 6e 64 65 6e 74 20 69 6e 74 65 72 61 63 74 69 76 65 2d 70 20 6f 62 6a 65 63 ┆t nil indent interactive-p objec┆
0x02c0…02e0 74 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 73 74 72 65 61 6d 20 30 20 22 2a 44 69 73 ┆t standard-output stream 0 "*Dis┆
0x02e0…0300 61 73 73 65 6d 62 6c 65 2a 22 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 69 6e 74 65 72 6e 61 6c 5d ┆assemble*" disassemble-internal]┆
0x0300…0320 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 69 6e 74 65 72 6e 61 ┆ 6)) (defun disassemble-interna┆
0x0320…0340 6c 20 28 6f 62 6a 20 73 74 72 65 61 6d 20 69 6e 64 65 6e 74 20 69 6e 74 65 72 61 63 74 69 76 65 ┆l (obj stream indent interactive┆
0x0340…0360 2d 70 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 c6 c6 c6 1b 1a 19 18 0c 39 85 17 00 0c 11 0c ┆-p) (byte-code " 9 ┆
0x0360…0380 4b 89 14 88 82 08 00 88 cc 0c 21 85 5c 22 00 cd ce 09 5c 22 88 0c 40 c0 3d 85 30 00 c5 10 0c 41 ┆K ! \" \" @ = 0 A┆
0x0380…03a0 89 14 88 0c 40 cf 3d 3f 85 3c 00 cd d0 21 88 d1 d2 0c 5c 22 83 48 00 c6 82 68 00 0e 07 85 59 00 ┆ @ =? < ! \" H h Y ┆
0x03a0…03c0 d3 09 83 56 00 d4 82 57 00 d5 09 5c 22 88 d6 0c 21 89 14 88 0e 07 85 68 00 d3 d7 21 88 0c 41 89 ┆ V W \" ! h ! A ┆
0x03c0…03e0 14 88 0c 40 89 13 88 0c 41 89 14 88 d8 0e 08 0e 09 5c 22 88 d9 da db 08 86 87 00 09 83 8e 00 dc ┆ @ A \" ┆
0x03e0…0400 82 8f 00 dd 08 83 97 00 de 82 98 00 dd 09 83 a3 00 da df 09 5c 22 82 a4 00 dd 24 0e 09 5c 22 88 ┆ \" $ \" ┆
0x0400…0420 0c 40 3b 85 b1 00 0c 40 1a 0a 85 d2 00 0c 41 89 14 88 d8 0e 08 0e 09 5c 22 88 d9 e0 0e 09 5c 22 ┆ @; @ A \" \"┆
0x0420…0440 88 d9 0a 0e 09 5c 22 88 e1 0e 09 21 29 88 d8 0e 08 0e 09 5c 22 88 d9 e2 0e 09 5c 22 88 e3 0b 0e ┆ \" !) \" \" ┆
0x0440…0460 09 5c 22 88 e1 0e 09 21 88 d1 ca 0c 5c 22 41 40 1e 0a 0e 0a 85 28 01 d8 0e 08 0e 09 5c 22 88 d9 ┆ \" ! \"A@ ( \" ┆
0x0460…0480 e4 0e 09 5c 22 88 e5 0e 0a 21 d2 3d 83 1d 01 e6 0e 0a 0e 09 0e 08 0e 0b 5c 5c 23 82 28 01 e3 0e ┆ \" ! = \\# ( ┆
0x0480…04a0 0a 0e 09 5c 22 88 e1 0e 09 21 29 88 d1 d2 0c 5c 22 89 14 88 e6 0c 0e 09 0e 08 23 2c 88 0e 07 85 ┆ \" !) \" #, ┆
0x04a0…04c0 42 01 d3 dd 21 87 22 20 5b 6d 61 63 72 6f 20 6e 61 6d 65 20 64 6f 63 20 61 72 67 73 20 6f 62 6a ┆B ! " [macro name doc args obj┆
0x04c0…04e0 20 74 20 6e 69 6c 20 69 6e 74 65 72 61 63 74 69 76 65 2d 70 20 69 6e 64 65 6e 74 20 73 74 72 65 ┆ t nil interactive-p indent stre┆
0x04e0…0500 61 6d 20 69 6e 74 65 72 61 63 74 69 76 65 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 72 65 63 75 72 ┆am interactive disassemble-recur┆
0x0500…0520 73 69 76 65 2d 69 6e 64 65 6e 74 20 73 75 62 72 70 20 65 72 72 6f 72 20 22 43 61 6e 27 74 20 64 ┆sive-indent subrp error "Can't d┆
0x0520…0540 69 73 61 73 73 65 6d 62 6c 65 20 23 3c 73 75 62 72 20 25 73 3e 22 20 6c 61 6d 62 64 61 20 22 6e ┆isassemble #<subr %s>" lambda "n┆
0x0540…0560 6f 74 20 61 20 66 75 6e 63 74 69 6f 6e 22 20 61 73 73 71 20 62 79 74 65 2d 63 6f 64 65 20 6d 65 ┆ot a function" assq byte-code me┆
0x0560…0580 73 73 61 67 65 20 22 43 6f 6d 70 69 6c 69 6e 67 20 25 73 27 73 20 64 65 66 69 6e 69 74 69 6f 6e ┆ssage "Compiling %s's definition┆
0x0580…05a0 2e 2e 2e 22 20 22 43 6f 6d 70 69 6c 69 6e 67 20 64 65 66 69 6e 69 74 69 6f 6e 2e 2e 2e 22 20 62 ┆..." "Compiling definition..." b┆
0x05a0…05c0 79 74 65 2d 63 6f 6d 70 69 6c 65 2d 6c 61 6d 62 64 61 20 22 44 6f 6e 65 20 63 6f 6d 70 69 6c 69 ┆yte-compile-lambda "Done compili┆
0x05c0…05e0 6e 67 2e 20 20 44 69 73 61 73 73 65 6d 62 6c 69 6e 67 2e 2e 2e 22 20 77 72 69 74 65 2d 73 70 61 ┆ng. Disassembling..." write-spa┆
0x05e0…0600 63 65 73 20 70 72 69 6e 63 20 66 6f 72 6d 61 74 20 22 62 79 74 65 20 63 6f 64 65 25 73 25 73 25 ┆ces princ format "byte code%s%s%┆
0x0600…0620 73 3a 0a 22 20 22 20 66 6f 72 22 20 22 22 20 22 20 6d 61 63 72 6f 22 20 22 20 25 73 22 20 22 20 ┆s: " " for" "" " macro" " %s" " ┆
0x0620…0640 64 6f 63 3a 20 22 20 74 65 72 70 72 69 20 22 20 61 72 67 73 3a 20 22 20 70 72 69 6e 31 20 22 20 ┆doc: " terpri " args: " prin1 " ┆
0x0640…0660 69 6e 74 65 72 61 63 74 69 76 65 3a 20 22 20 63 61 72 2d 73 61 66 65 20 64 69 73 61 73 73 65 6d ┆interactive: " car-safe disassem┆
0x0660…0680 62 6c 65 2d 31 5d 20 33 31 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d ┆ble-1] 31)) (defun disassemble-┆
0x0680…06a0 31 20 28 6f 62 6a 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 65 61 6d 20 69 6e 64 65 6e 74 29 20 ┆1 (obj &optional stream indent) ┆
0x06a0…06c0 22 5c 0a 50 72 69 6e 74 73 20 74 68 65 20 62 79 74 65 2d 63 6f 64 65 20 63 61 6c 6c 20 4f 42 4a ┆"\ Prints the byte-code call OBJ┆
0x06c0…06e0 20 74 6f 20 28 6f 70 74 69 6f 6e 61 6c 29 20 53 54 52 45 41 4d 2e 0a 4f 42 4a 20 73 68 6f 75 6c ┆ to (optional) STREAM. OBJ shoul┆
0x06e0…0700 64 20 62 65 20 61 20 63 61 6c 6c 20 74 6f 20 42 59 54 45 2d 43 4f 44 45 20 67 65 6e 65 72 61 74 ┆d be a call to BYTE-CODE generat┆
0x0700…0720 65 64 20 62 79 20 74 68 65 20 62 79 74 65 20 63 6f 6d 70 69 6c 65 72 2e 22 20 28 62 79 74 65 2d ┆ed by the byte compiler." (byte-┆
0x0720…0740 63 6f 64 65 20 22 08 86 07 00 de 89 10 88 09 86 0f 00 0a 89 11 88 0c 41 40 df 0c 41 41 40 cd cd ┆code " A@ AA@ ┆
0x0740…0760 cd 1e 09 1e 08 1e 07 1e 06 1d 1b 0b 47 89 16 09 88 e0 09 21 88 0d 54 89 15 0e 09 57 85 b6 01 e1 ┆ G ! T W ┆
0x0760…0780 08 09 5c 22 88 e2 e3 0d 21 89 16 08 09 5c 22 88 e4 e5 09 5c 22 88 e1 e6 0e 0a 0e 08 47 e7 23 09 ┆ \" ! \" \" G # ┆
0x0780…07a0 5c 22 88 0b 0d 48 89 16 0b 88 e8 20 89 16 07 88 0e 0c 0e 0b 48 89 16 08 88 0e 08 3a 85 7b 00 0e ┆\" H H : { ┆
0x07a0…07c0 08 40 89 16 08 88 e9 0e 08 21 89 16 08 88 e2 0e 08 09 5c 22 88 0e 07 3f 83 94 00 cd 82 ae 01 e4 ┆ @ ! \" ? ┆
0x07c0…07e0 e5 09 5c 22 88 e1 e6 0e 0e 0e 08 47 e7 23 09 5c 22 88 e2 0e 0b 0e 0f 3d 86 bb 00 0e 0b 0e 10 3d ┆ \" G # \" = =┆
0x07e0…0800 86 bb 00 0e 0b 0e 11 3d 83 c6 00 0e 06 0e 07 48 82 ac 01 0e 0b 0e 12 3d 86 fb 00 0e 0b 0e 13 3d ┆ = H = =┆
0x0800…0820 86 fb 00 0e 0b 0e 14 3d 86 fb 00 0e 0b 0e 15 3d 86 fb 00 0e 0b 0e 16 3d 86 fb 00 0e 0b 0e 17 3d ┆ = = = =┆
0x0820…0840 86 fb 00 0e 0b 0e 18 3d 83 03 01 0e 07 82 ac 01 0e 0b 0e 19 3d 86 10 01 0e 0b 0e 1a 3d 83 ab 01 ┆ = = = ┆
0x0840…0860 0e 06 0e 07 48 89 16 08 88 ea 0e 08 21 eb 3d 85 2a 01 ec ed 0e 08 5c 22 83 44 01 e2 ee 09 5c 22 ┆ H ! = * \" D \"┆
0x0860…0880 88 e0 09 21 88 ef 0e 08 09 08 0e 1b 5c 5c 23 88 f0 82 a8 01 ea 0e 08 21 ed 3d 83 64 01 e2 f1 09 ┆ ! \\# ! = d ┆
0x0880…08a0 5c 22 88 e0 09 21 88 f2 0e 08 09 08 0e 1b 5c 5c 23 88 f0 82 a8 01 ea ea 0e 08 21 21 ed 3d 83 82 ┆\" ! \\# !! = ┆
0x08a0…08c0 01 e2 f3 09 5c 22 88 e0 09 21 88 f4 f5 0e 08 5c 22 88 f0 82 a8 01 0e 08 ed 3d 85 93 01 0b 0d f6 ┆ \" ! \" = ┆
0x08c0…08e0 5c 5c 48 0e 17 f7 5c 5c 3d 83 a0 01 0d f6 5c 5c 89 15 88 f8 82 a8 01 dc 1e 1d e3 0e 08 21 29 82 ┆\\H \\= \\ !) ┆
0x08e0…0900 ac 01 f9 09 5c 22 88 e0 09 21 88 82 2f 00 2e 06 88 cd 87 22 20 5b 69 6e 64 65 6e 74 20 73 74 72 ┆ \" ! / . " [indent str┆
0x0900…0920 65 61 6d 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 62 79 74 65 73 20 6f 62 6a 20 70 74 ┆eam standard-output bytes obj pt┆
0x0920…0940 72 20 63 6f 6e 73 74 61 6e 74 73 20 6f 66 66 73 65 74 20 74 6d 70 20 6c 65 6e 67 74 68 20 64 69 ┆r constants offset tmp length di┆
0x0940…0960 73 61 73 73 65 6d 62 6c 65 2d 63 6f 6c 75 6d 6e 2d 31 2d 69 6e 64 65 6e 74 20 6f 70 20 62 79 74 ┆sassemble-column-1-indent op byt┆
0x0960…0980 65 2d 63 6f 64 65 2d 76 65 63 74 6f 72 20 6e 69 6c 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 63 6f ┆e-code-vector nil disassemble-co┆
0x0980…09a0 6c 75 6d 6e 2d 32 2d 69 6e 64 65 6e 74 20 62 79 74 65 2d 76 61 72 72 65 66 20 62 79 74 65 2d 76 ┆lumn-2-indent byte-varref byte-v┆
0x09a0…09c0 61 72 73 65 74 20 62 79 74 65 2d 76 61 72 62 69 6e 64 20 62 79 74 65 2d 67 6f 74 6f 20 62 79 74 ┆arset byte-varbind byte-goto byt┆
0x09c0…09e0 65 2d 67 6f 74 6f 2d 69 66 2d 6e 69 6c 20 62 79 74 65 2d 67 6f 74 6f 2d 69 66 2d 6e 6f 74 2d 6e ┆e-goto-if-nil byte-goto-if-not-n┆
0x09e0…0a00 69 6c 20 62 79 74 65 2d 67 6f 74 6f 2d 69 66 2d 6e 69 6c 2d 65 6c 73 65 2d 70 6f 70 20 62 79 74 ┆il byte-goto-if-nil-else-pop byt┆
0x0a00…0a20 65 2d 67 6f 74 6f 2d 69 66 2d 6e 6f 74 2d 6e 69 6c 2d 65 6c 73 65 2d 70 6f 70 20 62 79 74 65 2d ┆e-goto-if-not-nil-else-pop byte-┆
0x0a20…0a40 63 61 6c 6c 20 62 79 74 65 2d 75 6e 62 69 6e 64 20 62 79 74 65 2d 63 6f 6e 73 74 61 6e 74 20 62 ┆call byte-unbind byte-constant b┆
0x0a40…0a60 79 74 65 2d 63 6f 6e 73 74 61 6e 74 32 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 72 65 63 75 72 73 ┆yte-constant2 disassemble-recurs┆
0x0a60…0a80 69 76 65 2d 69 6e 64 65 6e 74 20 74 20 70 72 69 6e 74 2d 65 73 63 61 70 65 2d 6e 65 77 6c 69 6e ┆ive-indent t print-escape-newlin┆
0x0a80…0aa0 65 73 20 30 20 2d 31 20 74 65 72 70 72 69 20 77 72 69 74 65 2d 73 70 61 63 65 73 20 70 72 69 6e ┆es 0 -1 terpri write-spaces prin┆
0x0aa0…0ac0 63 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 77 72 69 74 65 2d 63 68 61 72 20 33 32 20 ┆c prin1-to-string write-char 32 ┆
0x0ac0…0ae0 2d 20 31 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 6f 66 66 73 65 74 20 73 79 6d 62 6f 6c 2d 6e 61 ┆- 1 disassemble-offset symbol-na┆
0x0ae0…0b00 6d 65 20 63 61 72 2d 73 61 66 65 20 6c 61 6d 62 64 61 20 61 73 73 71 20 62 79 74 65 2d 63 6f 64 ┆me car-safe lambda assq byte-cod┆
0x0b00…0b20 65 20 22 3c 63 6f 6d 70 69 6c 65 64 20 6c 61 6d 62 64 61 3e 22 20 64 69 73 61 73 73 65 6d 62 6c ┆e "<compiled lambda>" disassembl┆
0x0b20…0b40 65 20 22 22 20 22 3c 62 79 74 65 20 63 6f 64 65 3e 22 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 31 ┆e "" "<byte code>" disassemble-1┆
0x0b40…0b60 20 22 28 3c 62 79 74 65 20 63 6f 64 65 3e 2e 2e 2e 29 22 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 ┆ "(<byte code>...)" mapcar (lamb┆
0x0b60…0b80 64 61 20 28 6f 62 6a 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 08 09 0a 0b 5c 5c 23 87 22 20 ┆da (obj) (byte-code " \\# " ┆
0x0b80…0ba0 5b 6f 62 6a 20 73 74 72 65 61 6d 20 69 6e 64 65 6e 74 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 72 ┆[obj stream indent disassemble-r┆
0x0ba0…0bc0 65 63 75 72 73 69 76 65 2d 69 6e 64 65 6e 74 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 31 5d 20 35 ┆ecursive-indent disassemble-1] 5┆
0x0bc0…0be0 29 29 20 34 20 33 20 22 3c 63 6f 6d 70 69 6c 65 64 20 63 61 6c 6c 20 74 6f 20 62 79 74 65 2d 63 ┆)) 4 3 "<compiled call to byte-c┆
0x0be0…0c00 6f 64 65 2e 20 20 63 6f 6d 70 69 6c 65 64 20 63 6f 64 65 20 63 6f 6d 70 69 6c 65 64 3f 3e 22 20 ┆ode. compiled code compiled?>" ┆
0x0c00…0c20 22 3c 65 72 72 6f 72 20 69 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 72 3e 22 5d 20 33 32 29 29 0a ┆"<error in disassembler>"] 32)) ┆
0x0c20…0c40 0a 28 64 65 66 75 6e 20 64 69 73 61 73 73 65 6d 62 6c 65 2d 6f 66 66 73 65 74 20 6e 69 6c 20 22 ┆ (defun disassemble-offset nil "┆
0x0c40…0c60 5c 0a 44 6f 6e 27 74 20 63 61 6c 6c 20 74 68 69 73 21 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆\ Don't call this!" (byte-code "┆
0x0c60…0c80 ca 18 09 0a 57 83 48 00 cb 09 cc 5c 22 89 10 88 cb 09 cd 5c 22 89 11 88 08 ce 3d 83 27 00 0b 54 ┆ W H \" \" = ' T┆
0x0c80…0ca0 89 13 88 0c 0b 48 82 45 00 08 cc 3d 83 44 00 0b 54 89 13 88 0c 0b 48 0b 54 89 13 88 cf 0c 0b 48 ┆ H E = D T H T H┆
0x0ca0…0cc0 d0 5c 22 5c 5c 82 45 00 08 82 8c 00 09 0e 06 59 83 5f 00 09 0e 06 5a 89 10 88 0e 06 89 11 88 08 ┆ \"\\ E Y _ Z ┆
0x0cc0…0ce0 82 8c 00 09 0e 07 55 86 71 00 09 0e 08 59 85 71 00 09 0e 09 58 83 8b 00 0b 54 89 13 88 0c 0b 48 ┆ U q Y q X T H┆
0x0ce0…0d00 0b 54 89 13 88 cf 0c 0b 48 d0 5c 22 5c 5c 82 8c 00 ca 29 87 22 20 5b 74 65 6d 20 6f 70 20 62 79 ┆ T H \"\\ ) " [tem op by┆
0x0d00…0d20 74 65 2d 6e 74 68 20 70 74 72 20 62 79 74 65 73 20 74 20 62 79 74 65 2d 63 6f 6e 73 74 61 6e 74 ┆te-nth ptr bytes t byte-constant┆
0x0d20…0d40 20 62 79 74 65 2d 63 6f 6e 73 74 61 6e 74 32 20 62 79 74 65 2d 67 6f 74 6f 20 62 79 74 65 2d 67 ┆ byte-constant2 byte-goto byte-g┆
0x0d40…0d60 6f 74 6f 2d 69 66 2d 6e 6f 74 2d 6e 69 6c 2d 65 6c 73 65 2d 70 6f 70 20 6e 69 6c 20 6c 6f 67 61 ┆oto-if-not-nil-else-pop nil loga┆
0x0d60…0d80 6e 64 20 37 20 32 34 38 20 36 20 6c 73 68 20 38 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 77 72 ┆nd 7 248 6 lsh 8] 7)) (defun wr┆
0x0d80…0da0 69 74 65 2d 73 70 61 63 65 73 20 28 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 72 65 61 6d 29 20 ┆ite-spaces (n &optional stream) ┆
0x0da0…0dc0 22 5c 0a 50 72 69 6e 74 20 4e 20 73 70 61 63 65 73 20 74 6f 20 28 6f 70 74 69 6f 6e 61 6c 29 20 ┆"\ Print N spaces to (optional) ┆
0x0dc0…0de0 53 54 52 45 41 4d 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 07 00 09 89 10 88 0a c3 57 ┆STREAM." (byte-code " W┆
0x0de0…0e00 85 11 00 c3 89 12 88 08 70 3d 83 1f 00 c4 c5 0a 5c 22 82 32 00 0a c3 56 85 32 00 c6 c5 08 5c 22 ┆ p= \" 2 V 2 \"┆
0x0e00…0e20 88 0a 53 89 12 88 82 1f 00 87 22 20 5b 73 74 72 65 61 6d 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 ┆ S " [stream standard-out┆
0x0e20…0e40 70 75 74 20 6e 20 30 20 69 6e 73 65 72 74 2d 63 68 61 72 20 33 32 20 77 72 69 74 65 2d 63 68 61 ┆put n 0 insert-char 32 write-cha┆
0x0e40…0e60 72 5d 20 35 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 62 79 74 65 2d 63 6f 64 65 2d 76 65 63 74 ┆r] 5)) (defconst byte-code-vect┆
0x0e60…0e80 6f 72 20 28 71 75 6f 74 65 20 5b 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d ┆or (quote [<not-an-opcode> <not-┆
0x0e80…0ea0 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d ┆an-opcode> <not-an-opcode> <not-┆
[…0x2…]
0x0ee0…0f00 61 6e 2d 6f 70 63 6f 64 65 3e 20 28 76 61 72 72 65 66 20 2e 20 31 29 20 3c 6e 6f 74 2d 61 6e 2d ┆an-opcode> (varref . 1) <not-an-┆
0x0f00…0f20 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d ┆opcode> <not-an-opcode> <not-an-┆
[…0x2…]
0x0f60…0f80 6f 70 63 6f 64 65 3e 20 28 76 61 72 73 65 74 20 2e 20 2d 31 29 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 ┆opcode> (varset . -1) <not-an-op┆
0x0f80…0fa0 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 ┆code> <not-an-opcode> <not-an-op┆
[…0x2…]
0x0fe0…1000 63 6f 64 65 3e 20 28 76 61 72 62 69 6e 64 20 2e 20 30 29 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f ┆code> (varbind . 0) <not-an-opco┆
0x1000…1020 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f ┆de> <not-an-opcode> <not-an-opco┆
[…0x2…]
0x1060…1080 64 65 3e 20 28 63 61 6c 6c 20 2e 20 2d 29 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c ┆de> (call . -) <not-an-opcode> <┆
0x1080…10a0 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c ┆not-an-opcode> <not-an-opcode> <┆
[…0x1…]
0x10c0…10e0 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 28 ┆not-an-opcode> <not-an-opcode> (┆
0x10e0…1100 75 6e 62 69 6e 64 20 2e 20 2d 29 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 ┆unbind . -) <not-an-opcode> <not┆
0x1100…1120 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 ┆-an-opcode> <not-an-opcode> <not┆
[…0x5…]
0x11c0…11e0 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 28 6e 74 68 ┆-an-opcode> <not-an-opcode> (nth┆
0x11e0…1200 20 2e 20 2d 31 29 20 73 79 6d 62 6f 6c 70 20 63 6f 6e 73 70 20 73 74 72 69 6e 67 70 20 6c 69 73 ┆ . -1) symbolp consp stringp lis┆
0x1200…1220 74 70 20 28 65 71 20 2e 20 2d 31 29 20 28 6d 65 6d 71 20 2e 20 2d 31 29 20 6e 6f 74 20 63 61 72 ┆tp (eq . -1) (memq . -1) not car┆
0x1220…1240 20 63 64 72 20 28 63 6f 6e 73 20 2e 20 2d 31 29 20 6c 69 73 74 31 20 28 6c 69 73 74 32 20 2e 20 ┆ cdr (cons . -1) list1 (list2 . ┆
0x1240…1260 2d 31 29 20 28 6c 69 73 74 33 20 2e 20 2d 32 29 20 28 6c 69 73 74 34 20 2e 20 2d 33 29 20 6c 65 ┆-1) (list3 . -2) (list4 . -3) le┆
0x1260…1280 6e 67 74 68 20 28 61 72 65 66 20 2e 20 2d 31 29 20 28 61 73 65 74 20 2e 20 2d 32 29 20 73 79 6d ┆ngth (aref . -1) (aset . -2) sym┆
0x1280…12a0 62 6f 6c 2d 76 61 6c 75 65 20 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 28 73 65 74 20 2e ┆bol-value symbol-function (set .┆
0x12a0…12c0 20 2d 31 29 20 28 66 73 65 74 20 2e 20 2d 31 29 20 28 67 65 74 20 2e 20 2d 31 29 20 28 73 75 62 ┆ -1) (fset . -1) (get . -1) (sub┆
0x12c0…12e0 73 74 72 69 6e 67 20 2e 20 2d 32 29 20 28 63 6f 6e 63 61 74 32 20 2e 20 2d 31 29 20 28 63 6f 6e ┆string . -2) (concat2 . -1) (con┆
0x12e0…1300 63 61 74 33 20 2e 20 2d 32 29 20 28 63 6f 6e 63 61 74 34 20 2e 20 2d 33 29 20 73 75 62 31 20 61 ┆cat3 . -2) (concat4 . -3) sub1 a┆
0x1300…1320 64 64 31 20 28 65 71 6c 73 69 67 6e 20 2e 20 2d 31 29 20 28 67 74 72 20 2e 20 2d 31 29 20 28 6c ┆dd1 (eqlsign . -1) (gtr . -1) (l┆
0x1320…1340 73 73 20 2e 20 2d 31 29 20 28 6c 65 71 20 2e 20 2d 31 29 20 28 67 65 71 20 2e 20 2d 31 29 20 28 ┆ss . -1) (leq . -1) (geq . -1) (┆
0x1340…1360 64 69 66 66 20 2e 20 2d 31 29 20 6e 65 67 61 74 65 20 28 70 6c 75 73 20 2e 20 2d 31 29 20 28 6d ┆diff . -1) negate (plus . -1) (m┆
0x1360…1380 61 78 20 2e 20 2d 31 29 20 28 6d 69 6e 20 2e 20 2d 31 29 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f ┆ax . -1) (min . -1) <not-an-opco┆
0x1380…13a0 64 65 3e 20 28 70 6f 69 6e 74 20 2e 20 31 29 20 28 6d 61 72 6b 5c 28 6f 62 73 6f 6c 65 74 65 5c ┆de> (point . 1) (mark\(obsolete\┆
0x13a0…13c0 29 20 2e 20 31 29 20 67 6f 74 6f 2d 63 68 61 72 20 69 6e 73 65 72 74 20 28 70 6f 69 6e 74 2d 6d ┆) . 1) goto-char insert (point-m┆
0x13c0…13e0 61 78 20 2e 20 31 29 20 28 70 6f 69 6e 74 2d 6d 69 6e 20 2e 20 31 29 20 63 68 61 72 2d 61 66 74 ┆ax . 1) (point-min . 1) char-aft┆
0x13e0…1400 65 72 20 28 66 6f 6c 6c 6f 77 69 6e 67 2d 63 68 61 72 20 2e 20 31 29 20 28 70 72 65 63 65 64 69 ┆er (following-char . 1) (precedi┆
0x1400…1420 6e 67 2d 63 68 61 72 20 2e 20 31 29 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 20 2e 20 31 ┆ng-char . 1) (current-column . 1┆
0x1420…1440 29 20 28 69 6e 64 65 6e 74 2d 74 6f 20 2e 20 31 29 20 28 73 63 61 6e 2d 62 75 66 66 65 72 5c 28 ┆) (indent-to . 1) (scan-buffer\(┆
0x1440…1460 6f 62 73 6f 6c 65 74 65 5c 29 20 2e 20 2d 32 29 20 28 65 6f 6c 70 20 2e 20 31 29 20 28 65 6f 62 ┆obsolete\) . -2) (eolp . 1) (eob┆
0x1460…1480 70 20 2e 20 31 29 20 28 62 6f 6c 70 20 2e 20 31 29 20 28 62 6f 62 70 20 2e 20 31 29 20 28 63 75 ┆p . 1) (bolp . 1) (bobp . 1) (cu┆
0x1480…14a0 72 72 65 6e 74 2d 62 75 66 66 65 72 20 2e 20 31 29 20 73 65 74 2d 62 75 66 66 65 72 20 28 72 65 ┆rrent-buffer . 1) set-buffer (re┆
0x14a0…14c0 61 64 2d 63 68 61 72 20 2e 20 31 29 20 73 65 74 2d 6d 61 72 6b 5c 28 6f 62 73 6f 6c 65 74 65 5c ┆ad-char . 1) set-mark\(obsolete\┆
0x14c0…14e0 29 20 69 6e 74 65 72 61 63 74 69 76 65 2d 70 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 ┆) interactive-p <not-an-opcode> ┆
0x14e0…1500 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 ┆<not-an-opcode> <not-an-opcode> ┆
[…0x4…]
0x1580…15a0 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 28 63 6f 6e 73 74 61 6e 74 32 20 2e 20 31 29 20 ┆<not-an-opcode> (constant2 . 1) ┆
0x15a0…15c0 67 6f 74 6f 20 67 6f 74 6f 2d 69 66 2d 6e 69 6c 20 67 6f 74 6f 2d 69 66 2d 6e 6f 74 2d 6e 69 6c ┆goto goto-if-nil goto-if-not-nil┆
0x15c0…15e0 20 28 67 6f 74 6f 2d 69 66 2d 6e 69 6c 2d 65 6c 73 65 2d 70 6f 70 20 2e 20 2d 31 29 20 28 67 6f ┆ (goto-if-nil-else-pop . -1) (go┆
0x15e0…1600 74 6f 2d 69 66 2d 6e 6f 74 2d 6e 69 6c 2d 65 6c 73 65 2d 70 6f 70 20 2e 20 2d 31 29 20 72 65 74 ┆to-if-not-nil-else-pop . -1) ret┆
0x1600…1620 75 72 6e 20 28 64 69 73 63 61 72 64 20 2e 20 2d 31 29 20 28 64 75 70 20 2e 20 31 29 20 28 73 61 ┆urn (discard . -1) (dup . 1) (sa┆
0x1620…1640 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 2e 20 31 29 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 ┆ve-excursion . 1) (save-window-e┆
0x1640…1660 78 63 75 72 73 69 6f 6e 20 2e 20 31 29 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 20 ┆xcursion . 1) (save-restriction ┆
0x1660…1680 2e 20 31 29 20 28 63 61 74 63 68 20 2e 20 2d 31 29 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 ┆. 1) (catch . -1) (unwind-protec┆
0x1680…16a0 74 20 2e 20 31 29 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 2e 20 2d 32 29 20 28 74 65 ┆t . 1) (condition-case . -2) (te┆
0x16a0…16c0 6d 70 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 2d 73 65 74 75 70 20 2e 20 2d 31 29 20 74 65 6d ┆mp-output-buffer-setup . -1) tem┆
0x16c0…16e0 70 2d 6f 75 74 70 75 74 2d 62 75 66 66 65 72 2d 73 68 6f 77 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 ┆p-output-buffer-show <not-an-opc┆
0x16e0…1700 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 ┆ode> <not-an-opcode> <not-an-opc┆
[…0x15…]
0x19a0…19c0 6f 64 65 3e 20 3c 6e 6f 74 2d 61 6e 2d 6f 70 63 6f 64 65 3e 20 28 63 6f 6e 73 74 61 6e 74 20 2e ┆ode> <not-an-opcode> (constant .┆
0x19c0…19c7 20 31 29 5d 29 29 0a ┆ 1)])) ┆