|
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: ┃ s ┃
Length: 11615 (0x2d5f)
Names: »scheme.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/scheme.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 29 29 0a 0a 28 64 65 66 76 ┆ (provide (quote scheme)) (defv┆
0x0020…0040 61 72 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6e 69 6c 20 ┆ar scheme-mode-abbrev-table nil ┆
0x0040…0060 22 5c 0a 22 29 0a 0a 28 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 28 71 75 6f ┆"\ ") (define-abbrev-table (quo┆
0x0060…0080 74 65 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 29 20 6e 69 6c ┆te scheme-mode-abbrev-table) nil┆
0x0080…00a0 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 ┆) (defvar scheme-mode-syntax-ta┆
0x00a0…00c0 62 6c 65 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 69 66 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 ┆ble nil "\ ") (if scheme-mode-s┆
0x00c0…00e0 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 28 6c 65 74 20 28 28 69 20 30 29 29 20 28 73 65 ┆yntax-table nil (let ((i 0)) (se┆
0x00e0…0100 74 71 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 6d 61 6b ┆tq scheme-mode-syntax-table (mak┆
0x0100…0120 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 20 28 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 ┆e-syntax-table)) (set-syntax-tab┆
0x0120…0140 6c 65 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 77 68 ┆le scheme-mode-syntax-table) (wh┆
0x0140…0160 69 6c 65 20 28 3c 20 69 20 34 38 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 ┆ile (< i 48) (modify-syntax-entr┆
0x0160…0180 79 20 69 20 22 5f 20 20 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 ┆y i "_ " scheme-mode-syntax-ta┆
0x0180…01a0 62 6c 65 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 73 65 74 71 20 69 20 28 31 ┆ble) (setq i (1+ i))) (setq i (1┆
0x01a0…01c0 2b 20 35 37 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 20 36 35 29 20 28 6d 6f 64 69 66 79 2d 73 ┆+ 57)) (while (< i 65) (modify-s┆
0x01c0…01e0 79 6e 74 61 78 2d 65 6e 74 72 79 20 69 20 22 5f 20 20 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 ┆yntax-entry i "_ " scheme-mode┆
0x01e0…0200 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 ┆-syntax-table) (setq i (1+ i))) ┆
0x0200…0220 28 73 65 74 71 20 69 20 28 31 2b 20 39 30 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 20 39 37 29 ┆(setq i (1+ 90)) (while (< i 97)┆
0x0220…0240 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 69 20 22 5f 20 20 20 22 20 73 ┆ (modify-syntax-entry i "_ " s┆
0x0240…0260 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 73 65 74 71 20 69 ┆cheme-mode-syntax-table) (setq i┆
0x0260…0280 20 28 31 2b 20 69 29 29 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 31 32 32 29 29 20 28 77 68 69 ┆ (1+ i))) (setq i (1+ 122)) (whi┆
0x0280…02a0 6c 65 20 28 3c 20 69 20 31 32 38 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 ┆le (< i 128) (modify-syntax-entr┆
0x02a0…02c0 79 20 69 20 22 5f 20 20 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 ┆y i "_ " scheme-mode-syntax-ta┆
0x02c0…02e0 62 6c 65 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 6d 6f 64 69 66 79 2d 73 79 ┆ble) (setq i (1+ i))) (modify-sy┆
0x02e0…0300 6e 74 61 78 2d 65 6e 74 72 79 20 33 32 20 22 20 20 20 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 ┆ntax-entry 32 " " scheme-mode┆
0x0300…0320 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e ┆-syntax-table) (modify-syntax-en┆
0x0320…0340 74 72 79 20 39 20 22 20 20 20 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d ┆try 9 " " scheme-mode-syntax-┆
0x0340…0360 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 30 20 22 ┆table) (modify-syntax-entry 10 "┆
0x0360…0380 3e 20 20 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 ┆> " scheme-mode-syntax-table) ┆
0x0380…03a0 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 20 22 3e 20 20 20 22 20 73 ┆(modify-syntax-entry 12 "> " s┆
0x03a0…03c0 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 ┆cheme-mode-syntax-table) (modify┆
0x03c0…03e0 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 35 39 20 22 3c 20 20 20 22 20 73 63 68 65 6d 65 2d 6d ┆-syntax-entry 59 "< " scheme-m┆
0x03e0…0400 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 ┆ode-syntax-table) (modify-syntax┆
0x0400…0420 2d 65 6e 74 72 79 20 39 36 20 22 27 20 20 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e ┆-entry 96 "' " scheme-mode-syn┆
0x0420…0440 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 ┆tax-table) (modify-syntax-entry ┆
0x0440…0460 33 39 20 22 27 20 20 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 ┆39 "' " scheme-mode-syntax-tab┆
0x0460…0480 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 34 20 22 27 20 20 ┆le) (modify-syntax-entry 44 "' ┆
0x0480…04a0 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f ┆ " scheme-mode-syntax-table) (mo┆
0x04a0…04c0 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 36 20 22 27 20 20 20 22 20 73 63 68 65 ┆dify-syntax-entry 46 "' " sche┆
0x04c0…04e0 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 ┆me-mode-syntax-table) (modify-sy┆
0x04e0…0500 6e 74 61 78 2d 65 6e 74 72 79 20 33 35 20 22 27 20 20 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 ┆ntax-entry 35 "' " scheme-mode┆
0x0500…0520 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e ┆-syntax-table) (modify-syntax-en┆
0x0520…0540 74 72 79 20 33 34 20 22 5c 22 20 20 20 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 ┆try 34 "\" " scheme-mode-synt┆
0x0540…0560 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 ┆ax-table) (modify-syntax-entry 9┆
0x0560…0580 32 20 22 5c 5c 20 20 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 ┆2 "\\ " scheme-mode-syntax-tab┆
0x0580…05a0 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 30 20 22 28 29 20 ┆le) (modify-syntax-entry 40 "() ┆
0x05a0…05c0 20 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f ┆ " scheme-mode-syntax-table) (mo┆
0x05c0…05e0 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 31 20 22 29 28 20 20 22 20 73 63 68 65 ┆dify-syntax-entry 41 ")( " sche┆
0x05e0…0600 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 ┆me-mode-syntax-table))) (defun ┆
0x0600…0620 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 20 6e 69 6c 20 28 62 79 74 65 2d ┆scheme-mode-variables nil (byte-┆
0x0620…0640 63 6f 64 65 20 22 cb 08 21 88 0a 89 11 88 cc c3 21 88 cd 0c 50 89 13 88 cc c5 21 88 0b 89 15 88 ┆code " ! ! P ! ┆
0x0640…0660 cc c6 21 88 ce 89 16 06 88 cc c7 21 88 cf 89 16 07 88 cc c8 21 88 d0 89 16 08 88 cc c9 21 88 d1 ┆ ! ! ! ! ┆
0x0660…0680 89 16 09 88 cc ca 21 88 d2 89 16 0a 87 22 20 5b 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 ┆ ! " [scheme-mode-synt┆
0x0680…06a0 61 78 2d 74 61 62 6c 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 73 63 68 65 ┆ax-table local-abbrev-table sche┆
0x06a0…06c0 6d 65 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 70 61 72 61 67 72 61 70 68 2d 73 ┆me-mode-abbrev-table paragraph-s┆
0x06c0…06e0 74 61 72 74 20 70 61 67 65 2d 64 65 6c 69 6d 69 74 65 72 20 70 61 72 61 67 72 61 70 68 2d 73 65 ┆tart page-delimiter paragraph-se┆
0x06e0…0700 70 61 72 61 74 65 20 69 6e 64 65 6e 74 2d 6c 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 20 63 6f 6d 6d ┆parate indent-line-function comm┆
0x0700…0720 65 6e 74 2d 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 2d 73 6b 69 70 20 63 6f 6d ┆ent-start comment-start-skip com┆
0x0720…0740 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 ┆ment-column comment-indent-hook ┆
0x0740…0760 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 ┆set-syntax-table make-local-vari┆
0x0760…0780 61 62 6c 65 20 22 5e 24 5c 5c 7c 22 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 ┆able "^$\\|" scheme-indent-line ┆
0x0780…07a0 22 3b 22 20 22 3b 2b 20 2a 22 20 34 30 20 73 63 68 65 6d 65 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 ┆";" ";+ *" 40 scheme-comment-ind┆
0x07a0…07c0 65 6e 74 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 63 6f ┆ent] 10)) (defun scheme-mode-co┆
0x07c0…07e0 6d 6d 61 6e 64 73 20 28 6d 61 70 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 c3 23 88 c1 ┆mmands (map) (byte-code " # ┆
0x07e0…0800 08 c4 c5 23 88 c1 08 c6 c7 23 88 c1 08 c8 c9 23 88 c1 08 ca cb 23 88 c1 08 cc cd 23 88 c1 08 ce ┆ # # # # # ┆
0x0800…0820 cf 23 88 c1 08 d0 d1 23 87 22 20 5b 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 09 22 20 73 ┆ # # " [map define-key " " s┆
0x0820…0840 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 22 7f 22 20 62 61 63 6b 77 61 72 64 2d 64 ┆cheme-indent-line " " backward-d┆
0x0840…0860 65 6c 65 74 65 2d 63 68 61 72 2d 75 6e 74 61 62 69 66 79 20 22 1b 6f 22 20 73 63 68 65 6d 65 2d ┆elete-char-untabify " o" scheme-┆
0x0860…0880 73 65 6e 64 2d 62 75 66 66 65 72 20 22 1b 7a 22 20 73 63 68 65 6d 65 2d 7a 61 70 2d 64 65 66 69 ┆send-buffer " z" scheme-zap-defi┆
0x0880…08a0 6e 65 20 22 1b 11 22 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 73 65 78 70 20 22 1b 13 22 20 ┆ne " " scheme-indent-sexp " " ┆
0x08a0…08c0 66 69 6e 64 2d 73 63 68 65 6d 65 2d 64 65 66 69 6e 69 74 69 6f 6e 20 22 1b 19 22 20 73 63 68 65 ┆find-scheme-definition " " sche┆
0x08c0…08e0 6d 65 2d 7a 61 70 2d 64 65 66 69 6e 65 2d 61 6e 64 2d 72 65 73 75 6d 65 20 22 1b 1a 22 20 72 65 ┆me-zap-define-and-resume " " re┆
0x08e0…0900 73 75 6d 65 2d 73 63 68 65 6d 65 5d 20 31 31 29 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d ┆sume-scheme] 11)) (defvar schem┆
0x0900…0920 65 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 73 63 68 65 6d 65 2d 6d 6f 64 65 ┆e-mode-map nil) (if scheme-mode┆
0x0920…0940 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 28 ┆-map nil (setq scheme-mode-map (┆
0x0940…0960 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 73 63 68 65 6d 65 2d 6d 6f 64 ┆make-sparse-keymap)) (scheme-mod┆
0x0960…0980 65 2d 63 6f 6d 6d 61 6e 64 73 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 29 29 0a 0a 28 64 ┆e-commands scheme-mode-map)) (d┆
0x0980…09a0 65 66 75 6e 20 73 63 68 65 6d 65 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f ┆efun scheme-mode nil "\ Major mo┆
0x09a0…09c0 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 53 63 68 65 6d 65 20 63 6f 64 65 2e 0a 43 6f 6d 6d ┆de for editing Scheme code. Comm┆
0x09c0…09e0 61 6e 64 73 3a 0a 44 65 6c 65 74 65 20 63 6f 6e 76 65 72 74 73 20 74 61 62 73 20 74 6f 20 73 70 ┆ands: Delete converts tabs to sp┆
0x09e0…0a00 61 63 65 73 20 61 73 20 69 74 20 6d 6f 76 65 73 20 62 61 63 6b 2e 0a 42 6c 61 6e 6b 20 6c 69 6e ┆aces as it moves back. Blank lin┆
0x0a00…0a20 65 73 20 73 65 70 61 72 61 74 65 20 70 61 72 61 67 72 61 70 68 73 2e 20 20 53 65 6d 69 63 6f 6c ┆es separate paragraphs. Semicol┆
0x0a20…0a40 6f 6e 73 20 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 73 2e 0a 5c 5c 7b 73 63 68 65 6d 65 2d 6d 6f ┆ons start comments. \\{scheme-mo┆
0x0a40…0a60 64 65 2d 6d 61 70 7d 0a 45 6e 74 72 79 20 74 6f 20 74 68 69 73 20 6d 6f 64 65 20 63 61 6c 6c 73 ┆de-map} Entry to this mode calls┆
0x0a60…0a80 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 69 ┆ the value of scheme-mode-hook i┆
0x0a80…0aa0 66 20 74 68 61 74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 65 72 ┆f that value is non-nil." (inter┆
0x0aa0…0ac0 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 20 88 c5 08 21 88 c6 89 11 ┆active) (byte-code " ! ┆
0x0ac0…0ae0 88 c7 89 12 88 c8 20 88 c9 ca 21 87 22 20 5b 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 6d ┆ ! " [scheme-mode-map m┆
0x0ae0…0b00 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c ┆ajor-mode mode-name nil kill-all┆
0x0b00…0b20 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 73 ┆-local-variables use-local-map s┆
0x0b20…0b40 63 68 65 6d 65 2d 6d 6f 64 65 20 22 53 63 68 65 6d 65 22 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d ┆cheme-mode "Scheme" scheme-mode-┆
0x0b40…0b60 76 61 72 69 61 62 6c 65 73 20 72 75 6e 2d 68 6f 6f 6b 73 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d ┆variables run-hooks scheme-mode-┆
0x0b60…0b80 68 6f 6f 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 73 65 6e 64 2d 64 65 ┆hook] 5)) (defun scheme-send-de┆
0x0b80…0ba0 66 69 6e 69 74 69 6f 6e 20 6e 69 6c 20 22 5c 0a 53 65 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 ┆finition nil "\ Send the current┆
0x0ba0…0bc0 20 64 65 66 69 6e 69 74 69 6f 6e 20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 ┆ definition to the Scheme proces┆
0x0bc0…0be0 73 20 6d 61 64 65 20 62 79 20 4d 2d 78 20 72 75 6e 2d 73 63 68 65 6d 65 2e 22 20 28 69 6e 74 65 ┆s made by M-x run-scheme." (inte┆
0x0be0…0c00 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e 69 ┆ractive) (byte-code " ! " [ni┆
0x0c00…0c20 6c 20 65 72 72 6f 72 20 22 50 72 6f 63 65 73 73 20 73 63 68 65 6d 65 20 64 6f 65 73 20 6e 6f 74 ┆l error "Process scheme does not┆
0x0c20…0c40 20 65 78 69 73 74 22 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 63 6f 6d 6d ┆ exist"] 2)) (defun scheme-comm┆
0x0c40…0c60 65 6e 74 2d 69 6e 64 65 6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 6f 73 29 20 28 62 79 74 65 ┆ent-indent (&optional pos) (byte┆
0x0c60…0c80 2d 63 6f 64 65 20 22 8a 08 83 0a 00 08 62 82 0b 00 c3 88 c4 c5 21 83 16 00 69 82 2f 00 c4 c6 21 ┆-code " b ! i / !┆
0x0c80…0ca0 83 2e 00 c7 20 19 09 3c 83 29 00 09 40 82 2a 00 09 29 82 2f 00 0a 29 87 22 20 5b 70 6f 73 20 74 ┆ . < ) @ * ) / ) " [pos t┆
0x0ca0…0cc0 65 6d 20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 6e 69 6c 20 6c 6f 6f 6b 69 6e 67 2d 61 74 ┆em comment-column nil looking-at┆
0x0cc0…0ce0 20 22 3b 3b 3b 22 20 22 3b 3b 22 20 63 61 6c 63 75 6c 61 74 65 2d 73 63 68 65 6d 65 2d 69 6e 64 ┆ ";;;" ";;" calculate-scheme-ind┆
0x0ce0…0d00 65 6e 74 5d 20 34 29 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d ┆ent] 4)) (defvar scheme-indent-┆
0x0d00…0d20 6f 66 66 73 65 74 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 ┆offset nil "\ ") (defvar scheme┆
0x0d20…0d40 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e ┆-indent-hook (quote scheme-inden┆
0x0d40…0d60 74 2d 68 6f 6f 6b 29 20 22 5c 0a 22 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 69 6e 64 ┆t-hook) "\ ") (defun scheme-ind┆
0x0d60…0d80 65 6e 74 2d 6c 69 6e 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 77 68 6f 6c 65 2d 65 78 70 29 20 22 ┆ent-line (&optional whole-exp) "┆
0x0d80…0da0 5c 0a 49 6e 64 65 6e 74 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 73 20 53 63 68 65 6d 65 20 ┆\ Indent current line as Scheme ┆
0x0da0…0dc0 63 6f 64 65 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 69 6e 64 65 6e 74 20 61 6e 79 20 ┆code. With argument, indent any ┆
0x0dc0…0de0 61 64 64 69 74 69 6f 6e 61 6c 20 6c 69 6e 65 73 20 6f 66 20 74 68 65 20 73 61 6d 65 20 65 78 70 ┆additional lines of the same exp┆
0x0de0…0e00 72 65 73 73 69 6f 6e 0a 72 69 67 69 64 6c 79 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 ┆ression rigidly along with this ┆
0x0e00…0e20 6f 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f ┆one." (interactive "P") (byte-co┆
0x0e20…0e40 64 65 20 22 c5 88 c7 20 c5 c5 c5 64 60 5a 1c 1b 1a 19 18 c8 20 88 60 89 12 88 c9 ca 21 88 cb cc ┆de " d`Z ` ! ┆
0x0e40…0e60 21 83 24 00 c5 82 8a 00 08 3c 83 30 00 08 40 89 10 82 31 00 c5 88 08 69 5a 89 11 88 cd 09 21 83 ┆! $ < 0 @ 1 iZ ! ┆
0x0e60…0e80 42 00 c5 82 49 00 ce 0a 60 5c 22 88 08 6a 88 64 0c 5a 60 56 83 59 00 64 0c 5a 62 82 5a 00 c5 88 ┆B I `\" j d Z`V Y d Zb Z ┆
0x0e80…0ea0 0e 06 85 8a 00 cd 09 21 3f 85 8a 00 8a 0a 62 88 cf d0 21 88 60 89 13 88 0a 62 88 d1 d0 21 88 60 ┆ !? b ! ` b ! `┆
0x0ea0…0ec0 89 12 88 0b 0a 56 29 85 8a 00 d2 0a 0b 09 23 2d 87 22 20 5b 69 6e 64 65 6e 74 20 73 68 69 66 74 ┆ V) #- " [indent shift┆
0x0ec0…0ee0 2d 61 6d 74 20 62 65 67 20 65 6e 64 20 70 6f 73 20 6e 69 6c 20 77 68 6f 6c 65 2d 65 78 70 20 63 ┆-amt beg end pos nil whole-exp c┆
0x0ee0…0f00 61 6c 63 75 6c 61 74 65 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 20 62 65 67 69 6e 6e 69 6e 67 ┆alculate-scheme-indent beginning┆
0x0f00…0f20 2d 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 ┆-of-line skip-chars-forward " "┆
0x0f20…0f40 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 20 09 5d 2a 3b 3b 3b 22 20 7a 65 72 6f 70 20 64 65 6c ┆ looking-at "[ ]*;;;" zerop del┆
0x0f40…0f60 65 74 65 2d 72 65 67 69 6f 6e 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 20 66 6f 72 77 61 72 ┆ete-region forward-sexp 1 forwar┆
0x0f60…0f80 64 2d 6c 69 6e 65 20 69 6e 64 65 6e 74 2d 63 6f 64 65 2d 72 69 67 69 64 6c 79 5d 20 31 33 29 29 ┆d-line indent-code-rigidly] 13))┆
0x0f80…0fa0 0a 0a 28 64 65 66 75 6e 20 63 61 6c 63 75 6c 61 74 65 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 ┆ (defun calculate-scheme-indent┆
0x0fa0…0fc0 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 72 73 65 2d 73 74 61 72 74 29 20 22 5c 0a 52 65 74 75 ┆ (&optional parse-start) "\ Retu┆
0x0fc0…0fe0 72 6e 20 61 70 70 72 6f 70 72 69 61 74 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 63 ┆rn appropriate indentation for c┆
0x0fe0…1000 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 73 20 73 63 68 65 6d 65 20 63 6f 64 65 2e 0a 49 6e 20 75 ┆urrent line as scheme code. In u┆
0x1000…1020 73 75 61 6c 20 63 61 73 65 20 72 65 74 75 72 6e 73 20 61 6e 20 69 6e 74 65 67 65 72 3a 20 74 68 ┆sual case returns an integer: th┆
0x1020…1040 65 20 63 6f 6c 75 6d 6e 20 74 6f 20 69 6e 64 65 6e 74 20 74 6f 2e 0a 43 61 6e 20 69 6e 73 74 65 ┆e column to indent to. Can inste┆
0x1040…1060 61 64 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 2c 20 77 68 6f 73 65 20 63 61 72 20 69 73 20 74 ┆ad return a list, whose car is t┆
0x1060…1080 68 65 20 63 6f 6c 75 6d 6e 20 74 6f 20 69 6e 64 65 6e 74 20 74 6f 2e 0a 54 68 69 73 20 6d 65 61 ┆he column to indent to. This mea┆
0x1080…10a0 6e 73 20 74 68 61 74 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 6e 65 73 20 61 74 20 74 68 65 20 73 ┆ns that following lines at the s┆
0x10a0…10c0 61 6d 65 20 6c 65 76 65 6c 20 6f 66 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 73 68 6f 75 6c 64 20 ┆ame level of indentation should ┆
0x10c0…10e0 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 62 65 20 69 6e 64 65 6e 74 65 64 20 74 68 65 20 ┆not necessarily be indented the ┆
0x10e0…1100 73 61 6d 65 20 77 61 79 2e 0a 54 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 6f 66 20 ┆same way. The second element of ┆
0x1100…1120 74 68 65 20 6c 69 73 74 20 69 73 20 74 68 65 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 0a ┆the list is the buffer position ┆
0x1120…1140 6f 66 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 65 ┆of the start of the containing e┆
0x1140…1160 78 70 72 65 73 73 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a cd 20 88 60 c9 c9 c9 ┆xpression." (byte-code " ` ┆
0x1160…1180 c5 c9 c9 1e 07 1e 06 1c 1b 1a 19 18 0e 08 83 1f 00 0e 08 62 82 21 00 ce 20 88 60 08 57 85 33 00 ┆ b ! ` W 3 ┆
0x1180…11a0 cf 60 08 d0 23 89 11 88 82 5c 22 00 88 0c 85 42 00 09 40 89 12 85 42 00 0a d0 56 85 24 01 c9 89 ┆ ` # \" B @ B V $ ┆
0x11a0…11c0 14 88 d1 09 38 89 16 06 88 09 41 40 89 16 07 88 0e 07 54 62 88 0e 06 85 65 00 0e 06 60 56 83 85 ┆ 8 A@ Tb e `V ┆
0x11c0…11e0 00 cf 0e 06 08 d0 23 1e 0a 0e 0a 41 40 89 14 83 80 00 0e 0a 89 11 82 81 00 c9 29 82 86 00 c9 88 ┆ # A@ ) ┆
0x11e0…1200 0c 3f 83 1f 01 0e 07 54 62 88 0e 06 3f 83 9d 00 69 89 13 82 1c 01 cf 60 0e 06 d0 c5 24 88 d2 d3 ┆ ? Tb ? i ` $ ┆
0x1200…1220 21 83 d5 00 8a d4 d5 21 88 60 29 0e 06 56 3f 83 ca 00 0e 06 62 88 cd 20 88 cf 60 0e 06 d0 c5 24 ┆! ! `) V? b ` $┆
0x1220…1240 82 cb 00 c9 88 d6 20 88 69 89 13 82 1c 01 8a d4 d5 21 88 60 29 0e 06 56 83 07 01 cf 60 0e 06 d0 ┆ i ! `) V ` ┆
0x1240…1260 c5 24 88 d7 60 0e 06 5c 22 83 00 01 d8 d5 21 88 cf 60 0e 06 d0 c5 24 82 01 01 c9 88 d6 20 82 1c ┆ $ ` \" ! ` $ ┆
0x1260…1280 01 c5 85 1c 01 0e 06 62 88 cd 20 88 cf 60 0e 06 d0 c5 24 88 d6 20 82 20 01 c9 88 82 34 00 88 d9 ┆ b ` $ 4 ┆
0x1280…12a0 da 09 5c 22 40 83 3a 01 08 62 88 db dc 21 88 69 89 13 82 76 01 dd 0e 0b 21 85 43 01 0e 07 83 53 ┆ \"@ : b ! i v ! C S┆
0x12a0…12c0 01 0e 07 62 88 0e 0b 69 5c 5c 89 13 82 76 01 0b 86 6f 01 de cc 21 85 6f 01 0e 0c 85 6f 01 0c 3f ┆ b i\\ v o ! o o ?┆
0x12c0…12e0 85 6f 01 df 0e 0c 08 09 23 89 13 3f 85 76 01 69 89 13 88 0b 2e 07 29 87 22 20 5b 69 6e 64 65 6e ┆ o # ? v i . ) " [inden┆
0x12e0…1300 74 2d 70 6f 69 6e 74 20 73 74 61 74 65 20 70 61 72 65 6e 2d 64 65 70 74 68 20 64 65 73 69 72 65 ┆t-point state paren-depth desire┆
0x1300…1320 64 2d 69 6e 64 65 6e 74 20 72 65 74 72 79 20 74 20 6c 61 73 74 2d 73 65 78 70 20 63 6f 6e 74 61 ┆d-indent retry t last-sexp conta┆
0x1320…1340 69 6e 69 6e 67 2d 73 65 78 70 20 70 61 72 73 65 2d 73 74 61 72 74 20 6e 69 6c 20 70 65 65 6b 20 ┆ining-sexp parse-start nil peek ┆
0x1340…1360 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6f 66 66 73 65 74 20 73 63 68 65 6d 65 2d 69 6e 64 65 ┆scheme-indent-offset scheme-inde┆
0x1360…1380 6e 74 2d 68 6f 6f 6b 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 62 65 67 69 6e 6e ┆nt-hook beginning-of-line beginn┆
0x1380…13a0 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 20 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 20 ┆ing-of-defun parse-partial-sexp ┆
0x13a0…13c0 30 20 32 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 28 22 20 66 6f 72 77 61 72 64 2d 6c 69 ┆0 2 looking-at "\\s(" forward-li┆
0x13c0…13e0 6e 65 20 31 20 62 61 63 6b 77 61 72 64 2d 70 72 65 66 69 78 2d 63 68 61 72 73 20 2f 3d 20 66 6f ┆ne 1 backward-prefix-chars /= fo┆
0x13e0…1400 72 77 61 72 64 2d 73 65 78 70 20 6e 74 68 63 64 72 20 33 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 ┆rward-sexp nthcdr 3 skip-chars-f┆
0x1400…1420 6f 72 77 61 72 64 20 22 20 09 22 20 69 6e 74 65 67 65 72 70 20 62 6f 75 6e 64 70 20 66 75 6e 63 ┆orward " " integerp boundp func┆
0x1420…1440 61 6c 6c 5d 20 32 37 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d ┆all] 27)) (defun scheme-indent-┆
0x1440…1460 68 6f 6f 6b 20 28 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 74 61 74 65 29 20 28 62 79 74 65 2d ┆hook (indent-point state) (byte-┆
0x1460…1480 63 6f 64 65 20 22 69 18 8a 09 41 40 54 62 88 c5 c6 21 88 c7 60 09 41 40 5c 22 83 66 00 c8 c9 ca ┆code "i A@Tb ! ` A@\" f ┆
0x1480…14a0 21 88 60 cb cc 21 88 60 5c 22 cd 1b 1a ce 0a 21 89 12 88 cf 0a 21 d0 4e 89 13 88 d1 0b 21 83 41 ┆! ` ! `\" ! ! N ! A┆
0x14a0…14c0 00 d2 0b 09 0c 23 82 62 00 0b 83 4d 00 d3 0b 09 0c 23 82 62 00 0a 47 d4 56 85 5b 00 d5 0a d6 d4 ┆ # b M # b G V [ ┆
0x14c0…14e0 4f d7 5c 22 85 62 00 d8 09 0c 5c 22 2a 82 67 00 cd 29 29 87 22 20 5b 6e 6f 72 6d 61 6c 2d 69 6e ┆O \" b \"* g )) " [normal-in┆
0x14e0…1500 64 65 6e 74 20 73 74 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 20 69 6e 64 65 6e ┆dent state function method inden┆
0x1500…1520 74 2d 70 6f 69 6e 74 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 5c 73 77 5c ┆t-point re-search-forward "\\sw\┆
0x1520…1540 5c 7c 5c 5c 73 5f 22 20 2f 3d 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 66 6f 72 77 ┆\|\\s_" /= buffer-substring forw┆
0x1540…1560 61 72 64 2d 63 68 61 72 20 2d 31 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 20 6e 69 6c 20 64 ┆ard-char -1 forward-sexp 1 nil d┆
0x1560…1580 6f 77 6e 63 61 73 65 20 69 6e 74 65 72 6e 2d 73 6f 66 74 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e ┆owncase intern-soft scheme-inden┆
0x1580…15a0 74 2d 68 6f 6f 6b 20 69 6e 74 65 67 65 72 70 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 73 70 ┆t-hook integerp scheme-indent-sp┆
0x15a0…15c0 65 63 66 6f 72 6d 20 66 75 6e 63 61 6c 6c 20 33 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 30 20 ┆ecform funcall 3 string-equal 0 ┆
0x15c0…15e0 22 64 65 66 22 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 64 65 66 66 6f 72 6d 5d 20 31 34 29 ┆"def" scheme-indent-defform] 14)┆
0x15e0…1600 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 20 32 20 ┆) (defvar scheme-body-indent 2 ┆
0x1600…1620 22 5c 0a 22 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 73 70 65 63 ┆"\ ") (defun scheme-indent-spec┆
0x1620…1640 66 6f 72 6d 20 28 63 6f 75 6e 74 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 20 ┆form (count state indent-point) ┆
0x1640…1660 28 62 79 74 65 2d 63 6f 64 65 20 22 09 41 40 0b c9 c9 1d 1c 1a 18 08 62 88 69 89 15 88 0e 06 0d ┆(byte-code " A@ b i ┆
0x1660…1680 5c 5c 89 14 88 cb cc 21 88 cd cc 21 88 ce 60 0e 07 cc c8 24 88 60 0e 07 57 85 33 00 c9 cf d0 8f ┆\\ ! ! ` $ ` W 3 ┆
0x1680…16a0 85 3b 00 c9 88 82 28 00 88 0b d1 56 83 5d 00 0a 0b 5a cc 58 83 56 00 0d d2 d3 0e 06 5c 22 5c 5c ┆ ; ( V ] Z X V \"\\┆
0x16a0…16c0 08 44 82 5a 00 0e 0a 08 44 82 7c 00 0a d1 55 85 66 00 0b d1 55 86 73 00 0b d1 55 85 73 00 0c 0e ┆ D Z D | U f U s U s ┆
0x16c0…16e0 0a 58 83 7a 00 0c 82 7c 00 0e 0a 2c 87 22 20 5b 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d ┆ X z | , " [containing-form-┆
0x16e0…1700 73 74 61 72 74 20 73 74 61 74 65 20 69 20 63 6f 75 6e 74 20 62 6f 64 79 2d 69 6e 64 65 6e 74 20 ┆start state i count body-indent ┆
0x1700…1720 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 63 6f 6c 75 6d 6e 20 73 63 68 65 6d 65 2d 62 6f ┆containing-form-column scheme-bo┆
0x1720…1740 64 79 2d 69 6e 64 65 6e 74 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 74 20 6e 69 6c 20 6e 6f 72 ┆dy-indent indent-point t nil nor┆
0x1740…1760 6d 61 6c 2d 69 6e 64 65 6e 74 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 66 6f 72 77 61 72 ┆mal-indent forward-char 1 forwar┆
0x1760…1780 64 2d 73 65 78 70 20 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 20 28 62 79 74 65 2d ┆d-sexp parse-partial-sexp (byte-┆
0x1780…17a0 63 6f 64 65 20 22 08 53 89 10 88 c3 c4 21 88 c5 60 09 c4 c2 24 87 22 20 5b 63 6f 75 6e 74 20 69 ┆code " S ! ` $ " [count i┆
0x17a0…17c0 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 74 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 20 70 61 72 ┆ndent-point t forward-sexp 1 par┆
0x17c0…17e0 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 5d 20 36 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 ┆se-partial-sexp] 6) ((error (byt┆
0x17e0…1800 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 20 30 20 2a 20 32 5d 20 37 29 ┆e-code " " [nil] 1))) 0 * 2] 7)┆
0x1800…1820 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 64 65 66 66 6f 72 6d 20 ┆) (defun scheme-indent-defform ┆
0x1820…1840 28 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆(state indent-point) (byte-code ┆
0x1840…1860 22 08 41 40 62 88 c2 c3 21 88 60 08 41 41 40 56 83 1d 00 08 41 40 62 88 09 69 5c 5c 82 1e 00 c4 ┆" A@b ! ` AA@V A@b i\\ ┆
0x1860…1880 87 22 20 5b 73 74 61 74 65 20 73 63 68 65 6d 65 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 20 66 6f 72 ┆ " [state scheme-body-indent for┆
0x1880…18a0 77 61 72 64 2d 6c 69 6e 65 20 31 20 6e 69 6c 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 77 6f 75 ┆ward-line 1 nil] 3)) (defun wou┆
0x18a0…18c0 6c 64 2d 62 65 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆ld-be-symbol (string) (byte-code┆
0x18c0…18e0 20 22 c1 08 c2 48 c3 5c 22 3f 87 22 20 5b 73 74 72 69 6e 67 20 63 68 61 72 2d 65 71 75 61 6c 20 ┆ " H \"? " [string char-equal ┆
0x18e0…1900 30 20 34 30 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6e 65 78 74 2d 73 65 78 70 2d 61 73 2d 73 ┆0 40] 3)) (defun next-sexp-as-s┆
0x1900…1920 74 72 69 6e 67 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 21 88 60 18 c3 c2 21 88 ┆tring nil (byte-code " ! ` ! ┆
[…truncated at 200 lines…]