home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 7.7 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.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 39 3a 35 | 39 20 31 39 39 35 0a 3b | 14:09:5|9 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 6d 6f | 64 65 73 2f 73 63 68 65 |/lisp/mo|des/sche|
|00000090| 6d 65 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |me.el.;;|; emacs |
|000000a0| 76 65 72 73 69 6f 6e 20 | 31 39 2e 31 33 20 58 45 |version |19.13 XE|
|000000b0| 6d 61 63 73 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |macs Luc|id..;;; |
|000000c0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000d0| 20 32 2e 32 35 3b 20 31 | 2d 53 65 70 2d 39 34 2e | 2.25; 1|-Sep-94.|
|000000e0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000f0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|00000100| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|00000110| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000120| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000130| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000140| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000150| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000160| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000170| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000180| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|).. |
|00000190| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|000001a0| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|000001b0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))). |(error "|
|000001c0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001d0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001e0| 20 31 39 2e 22 29 29 0a | 0a 28 70 72 6f 76 69 64 | 19.")).|.(provid|
|000001f0| 65 20 27 73 63 68 65 6d | 65 29 0a 28 64 65 66 76 |e 'schem|e).(defv|
|00000200| 61 72 20 73 63 68 65 6d | 65 2d 6d 6f 64 65 2d 73 |ar schem|e-mode-s|
|00000210| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 6e 69 6c 20 |yntax-ta|ble nil |
|00000220| 22 5c 0a 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |"\.").(b|yte-code|
|00000230| 20 22 08 84 b8 00 c1 1a | c3 20 10 c4 08 21 88 5c | "......|. ...!.\|
|00000240| 6e c5 57 ab 8b c6 5c 6e | c7 5c 22 88 5c 6e 54 89 |n.W...\n|.\".\nT.|
|00000250| 12 aa 71 c8 12 c8 c9 58 | ab 8b c6 5c 6e ca 5c 22 |..q....X|...\n.\"|
|00000260| 88 5c 6e 54 89 12 aa 71 | cb 12 cb cc 58 ab 8b c6 |.\nT...q|....X...|
|00000270| 5c 6e ca 5c 22 88 5c 6e | 54 89 12 aa 71 cd 12 cd |\n.\".\n|T...q...|
|00000280| ce 58 ab 8b c6 5c 6e ca | 5c 22 88 5c 6e 54 89 12 |.X...\n.|\".\nT..|
|00000290| aa 71 c6 cf d0 5c 22 88 | c6 d1 d2 5c 22 88 c6 d3 |.q...\".|...\"...|
|000002a0| d0 5c 22 88 c6 d4 d0 5c | 22 88 c6 d5 d0 5c 22 88 |.\"....\|"....\".|
|000002b0| c6 d6 d7 5c 22 88 c6 d8 | d9 5c 22 88 c6 da db 5c |...\"...|.\"....\|
|000002c0| 22 88 c6 dc dd 5c 22 88 | c6 de df 5c 22 88 c6 e0 |"....\".|...\"...|
|000002d0| e1 5c 22 88 c6 e2 e3 5c | 22 88 c6 e4 e5 5c 22 88 |.\"....\|"....\".|
|000002e0| c6 e6 e7 5c 22 88 c6 e8 | e9 5c 22 88 c6 ea e9 5c |...\"...|.\"....\|
|000002f0| 22 88 c6 eb ec 5c 22 88 | c6 ed ec 5c 22 88 c6 ee |"....\".|...\"...|
|00000300| ef 5c 22 88 c6 f0 f1 5c | 22 88 29 c1 87 22 20 5b |.\"....\|".).." [|
|00000310| 73 63 68 65 6d 65 2d 6d | 6f 64 65 2d 73 79 6e 74 |scheme-m|ode-synt|
|00000320| 61 78 2d 74 61 62 6c 65 | 20 30 20 69 20 6d 61 6b |ax-table| 0 i mak|
|00000330| 65 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 73 |e-syntax|-table s|
|00000340| 65 74 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |et-synta|x-table |
|00000350| 32 35 36 20 6d 6f 64 69 | 66 79 2d 73 79 6e 74 61 |256 modi|fy-synta|
|00000360| 78 2d 65 6e 74 72 79 20 | 22 5f 20 20 20 22 20 34 |x-entry |"_ " 4|
|00000370| 38 20 35 37 20 22 77 20 | 20 20 22 20 36 35 20 39 |8 57 "w | " 65 9|
|00000380| 30 20 39 37 20 31 32 32 | 20 39 20 22 20 20 20 20 |0 97 122| 9 " |
|00000390| 22 20 31 30 20 22 3e 20 | 20 20 22 20 31 32 20 31 |" 10 "> | " 12 1|
|000003a0| 33 20 33 32 20 39 31 20 | 22 28 5d 20 20 22 20 39 |3 32 91 |"(] " 9|
|000003b0| 33 20 22 29 5b 20 20 22 | 20 31 32 33 20 22 28 7d |3 ")[ "| 123 "(}|
|000003c0| 20 20 22 20 31 32 35 20 | 22 29 7b 20 20 22 20 31 | " 125 |"){ " 1|
|000003d0| 32 34 20 22 20 20 32 33 | 22 20 34 30 20 22 28 29 |24 " 23|" 40 "()|
|000003e0| 20 20 22 20 34 31 20 22 | 29 28 20 20 22 20 35 39 | " 41 "|)( " 59|
|000003f0| 20 22 3c 20 20 20 22 20 | 33 34 20 22 5c 22 20 20 | "< " |34 "\" |
|00000400| 20 20 22 20 33 39 20 22 | 20 20 70 22 20 39 36 20 | " 39 "| p" 96 |
|00000410| 34 34 20 22 5f 20 70 22 | 20 36 34 20 33 35 20 22 |44 "_ p"| 64 35 "|
|00000420| 5f 20 70 31 34 22 20 39 | 32 20 22 5c 5c 20 20 20 |_ p14" 9|2 "\\ |
|00000430| 22 5d 20 34 29 0a 28 64 | 65 66 76 61 72 20 73 63 |"] 4).(d|efvar sc|
|00000440| 68 65 6d 65 2d 6d 6f 64 | 65 2d 61 62 62 72 65 76 |heme-mod|e-abbrev|
|00000450| 2d 74 61 62 6c 65 20 6e | 69 6c 20 22 5c 0a 22 29 |-table n|il "\.")|
|00000460| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00000470| 5c 22 88 c3 c4 4d 88 c5 | c6 21 ac 83 c7 16 06 c8 |\"...M..|.!......|
|00000480| c9 4d 88 c5 ca 21 ac 83 | c2 16 5c 6e 0e 5c 6e ac |.M...!..|..\n.\n.|
|00000490| 89 cb 20 16 5c 6e c8 0e | 5c 6e 21 88 c2 87 22 20 |.. .\n..|\n!..." |
|000004a0| 5b 64 65 66 69 6e 65 2d | 61 62 62 72 65 76 2d 74 |[define-|abbrev-t|
|000004b0| 61 62 6c 65 20 73 63 68 | 65 6d 65 2d 6d 6f 64 65 |able sch|eme-mode|
|000004c0| 2d 61 62 62 72 65 76 2d | 74 61 62 6c 65 20 6e 69 |-abbrev-|table ni|
|000004d0| 6c 20 73 63 68 65 6d 65 | 2d 6d 6f 64 65 2d 76 61 |l scheme|-mode-va|
|000004e0| 72 69 61 62 6c 65 73 20 | 23 5b 6e 69 6c 20 22 c0 |riables |#[nil ".|
|000004f0| 09 21 88 5c 6e 13 c4 c5 | 21 88 c6 0e 07 50 15 c4 |.!.\n...|!....P..|
|00000500| c8 21 88 0d 16 08 c4 c9 | 21 88 ca 16 09 c4 cb 21 |.!......|!......!|
|00000510| 88 cc 16 0b c4 cd 21 88 | ce 16 0d c4 cf 21 88 d0 |......!.|.....!..|
|00000520| 16 0f c4 d1 21 88 d2 16 | 11 c4 d3 21 88 d4 16 13 |....!...|...!....|
|00000530| d5 89 16 16 87 22 20 5b | 73 65 74 2d 73 79 6e 74 |....." [|set-synt|
|00000540| 61 78 2d 74 61 62 6c 65 | 20 73 63 68 65 6d 65 2d |ax-table| scheme-|
|00000550| 6d 6f 64 65 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |mode-syn|tax-tabl|
|00000560| 65 20 73 63 68 65 6d 65 | 2d 6d 6f 64 65 2d 61 62 |e scheme|-mode-ab|
|00000570| 62 72 65 76 2d 74 61 62 | 6c 65 20 6c 6f 63 61 6c |brev-tab|le local|
|00000580| 2d 61 62 62 72 65 76 2d | 74 61 62 6c 65 20 6d 61 |-abbrev-|table ma|
|00000590| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|000005a0| 65 20 70 61 72 61 67 72 | 61 70 68 2d 73 74 61 72 |e paragr|aph-star|
|000005b0| 74 20 22 5e 24 5c 5c 7c | 22 20 70 61 67 65 2d 64 |t "^$\\||" page-d|
|000005c0| 65 6c 69 6d 69 74 65 72 | 20 70 61 72 61 67 72 61 |elimiter| paragra|
|000005d0| 70 68 2d 73 65 70 61 72 | 61 74 65 20 70 61 72 61 |ph-separ|ate para|
|000005e0| 67 72 61 70 68 2d 69 67 | 6e 6f 72 65 2d 66 69 6c |graph-ig|nore-fil|
|000005f0| 6c 2d 70 72 65 66 69 78 | 20 74 20 69 6e 64 65 6e |l-prefix| t inden|
|00000600| 74 2d 6c 69 6e 65 2d 66 | 75 6e 63 74 69 6f 6e 20 |t-line-f|unction |
|00000610| 73 63 68 65 6d 65 2d 69 | 6e 64 65 6e 74 2d 6c 69 |scheme-i|ndent-li|
|00000620| 6e 65 20 63 6f 6d 6d 65 | 6e 74 2d 73 74 61 72 74 |ne comme|nt-start|
|00000630| 20 22 3b 22 20 63 6f 6d | 6d 65 6e 74 2d 73 74 61 | ";" com|ment-sta|
|00000640| 72 74 2d 73 6b 69 70 20 | 22 3b 2b 5b 20 09 5d 2a |rt-skip |";+[ .]*|
|00000650| 22 20 63 6f 6d 6d 65 6e | 74 2d 63 6f 6c 75 6d 6e |" commen|t-column|
|00000660| 20 34 30 20 63 6f 6d 6d | 65 6e 74 2d 69 6e 64 65 | 40 comm|ent-inde|
|00000670| 6e 74 2d 68 6f 6f 6b 20 | 73 63 68 65 6d 65 2d 63 |nt-hook |scheme-c|
|00000680| 6f 6d 6d 65 6e 74 2d 69 | 6e 64 65 6e 74 20 28 22 |omment-i|ndent ("|
|00000690| 22 20 73 63 68 65 6d 65 | 2d 6d 6f 64 65 2d 6c 69 |" scheme|-mode-li|
|000006a0| 6e 65 2d 70 72 6f 63 65 | 73 73 29 20 6d 6f 64 65 |ne-proce|ss) mode|
|000006b0| 2d 6c 69 6e 65 2d 70 72 | 6f 63 65 73 73 5d 20 32 |-line-pr|ocess] 2|
|000006c0| 5d 20 62 6f 75 6e 64 70 | 20 73 63 68 65 6d 65 2d |] boundp| scheme-|
|000006d0| 6d 6f 64 65 2d 6c 69 6e | 65 2d 70 72 6f 63 65 73 |mode-lin|e-proces|
|000006e0| 73 20 22 22 20 73 63 68 | 65 6d 65 2d 6d 6f 64 65 |s "" sch|eme-mode|
|000006f0| 2d 63 6f 6d 6d 61 6e 64 | 73 20 23 5b 28 6d 61 70 |-command|s #[(map|
|00000700| 29 20 22 c0 09 c2 c3 23 | 88 c0 09 c4 c5 23 88 c0 |) "....#|.....#..|
|00000710| 09 c6 c7 23 87 22 20 5b | 64 65 66 69 6e 65 2d 6b |...#." [|define-k|
|00000720| 65 79 20 6d 61 70 20 22 | 09 22 20 73 63 68 65 6d |ey map "|." schem|
|00000730| 65 2d 69 6e 64 65 6e 74 | 2d 6c 69 6e 65 20 22 7f |e-indent|-line ".|
|00000740| 22 20 62 61 63 6b 77 61 | 72 64 2d 64 65 6c 65 74 |" backwa|rd-delet|
|00000750| 65 2d 63 68 61 72 2d 75 | 6e 74 61 62 69 66 79 20 |e-char-u|ntabify |
|00000760| 22 1b 11 22 20 73 63 68 | 65 6d 65 2d 69 6e 64 65 |".." sch|eme-inde|
|00000770| 6e 74 2d 73 65 78 70 5d | 20 34 5d 20 73 63 68 65 |nt-sexp]| 4] sche|
|00000780| 6d 65 2d 6d 6f 64 65 2d | 6d 61 70 20 6d 61 6b 65 |me-mode-|map make|
|00000790| 2d 73 70 61 72 73 65 2d | 6b 65 79 6d 61 70 5d 20 |-sparse-|keymap] |
|000007a0| 33 29 0a 28 66 73 65 74 | 20 27 73 63 68 65 6d 65 |3).(fset| 'scheme|
|000007b0| 2d 6d 6f 64 65 20 23 5b | 6e 69 6c 20 22 c0 20 88 |-mode #[|nil ". .|
|000007c0| c1 20 88 c2 20 88 c3 c4 | 21 87 22 20 5b 6b 69 6c |. .. ...|!." [kil|
|000007d0| 6c 2d 61 6c 6c 2d 6c 6f | 63 61 6c 2d 76 61 72 69 |l-all-lo|cal-vari|
|000007e0| 61 62 6c 65 73 20 73 63 | 68 65 6d 65 2d 6d 6f 64 |ables sc|heme-mod|
|000007f0| 65 2d 69 6e 69 74 69 61 | 6c 69 7a 65 20 73 63 68 |e-initia|lize sch|
|00000800| 65 6d 65 2d 6d 6f 64 65 | 2d 76 61 72 69 61 62 6c |eme-mode|-variabl|
|00000810| 65 73 20 72 75 6e 2d 68 | 6f 6f 6b 73 20 73 63 68 |es run-h|ooks sch|
|00000820| 65 6d 65 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 5d 20 32 |eme-mode|-hook] 2|
|00000830| 20 22 5c 0a 4d 61 6a 6f | 72 20 6d 6f 64 65 20 66 | "\.Majo|r mode f|
|00000840| 6f 72 20 65 64 69 74 69 | 6e 67 20 53 63 68 65 6d |or editi|ng Schem|
|00000850| 65 20 63 6f 64 65 2e 0a | 45 64 69 74 69 6e 67 20 |e code..|Editing |
|00000860| 63 6f 6d 6d 61 6e 64 73 | 20 61 72 65 20 73 69 6d |commands| are sim|
|00000870| 69 6c 61 72 20 74 6f 20 | 74 68 6f 73 65 20 6f 66 |ilar to |those of|
|00000880| 20 6c 69 73 70 2d 6d 6f | 64 65 2e 0a 0a 49 6e 20 | lisp-mo|de...In |
|00000890| 61 64 64 69 74 69 6f 6e | 2c 20 69 66 20 61 6e 20 |addition|, if an |
|000008a0| 69 6e 66 65 72 69 6f 72 | 20 53 63 68 65 6d 65 20 |inferior| Scheme |
|000008b0| 70 72 6f 63 65 73 73 20 | 69 73 20 72 75 6e 6e 69 |process |is runni|
|000008c0| 6e 67 2c 20 73 6f 6d 65 | 20 61 64 64 69 74 69 6f |ng, some| additio|
|000008d0| 6e 61 6c 0a 63 6f 6d 6d | 61 6e 64 73 20 77 69 6c |nal.comm|ands wil|
|000008e0| 6c 20 62 65 20 64 65 66 | 69 6e 65 64 2c 20 66 6f |l be def|ined, fo|
|000008f0| 72 20 65 76 61 6c 75 61 | 74 69 6e 67 20 65 78 70 |r evalua|ting exp|
|00000900| 72 65 73 73 69 6f 6e 73 | 20 61 6e 64 20 63 6f 6e |ressions| and con|
|00000910| 74 72 6f 6c 6c 69 6e 67 | 0a 74 68 65 20 69 6e 74 |trolling|.the int|
|00000920| 65 72 70 72 65 74 65 72 | 2c 20 61 6e 64 20 74 68 |erpreter|, and th|
|00000930| 65 20 73 74 61 74 65 20 | 6f 66 20 74 68 65 20 70 |e state |of the p|
|00000940| 72 6f 63 65 73 73 20 77 | 69 6c 6c 20 62 65 20 64 |rocess w|ill be d|
|00000950| 69 73 70 6c 61 79 65 64 | 20 69 6e 20 74 68 65 0a |isplayed| in the.|
|00000960| 6d 6f 64 65 6c 69 6e 65 | 20 6f 66 20 61 6c 6c 20 |modeline| of all |
|00000970| 53 63 68 65 6d 65 20 62 | 75 66 66 65 72 73 2e 20 |Scheme b|uffers. |
|00000980| 20 54 68 65 20 6e 61 6d | 65 73 20 6f 66 20 63 6f | The nam|es of co|
|00000990| 6d 6d 61 6e 64 73 20 74 | 68 61 74 20 69 6e 74 65 |mmands t|hat inte|
|000009a0| 72 61 63 74 0a 77 69 74 | 68 20 74 68 65 20 53 63 |ract.wit|h the Sc|
|000009b0| 68 65 6d 65 20 70 72 6f | 63 65 73 73 20 73 74 61 |heme pro|cess sta|
|000009c0| 72 74 20 77 69 74 68 20 | 5c 22 78 73 63 68 65 6d |rt with |\"xschem|
|000009d0| 65 2d 5c 22 2e 20 20 46 | 6f 72 20 6d 6f 72 65 20 |e-\". F|or more |
|000009e0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 0a 73 65 65 20 |informat|ion.see |
|000009f0| 74 68 65 20 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |the docu|mentatio|
|00000a00| 6e 20 66 6f 72 20 78 73 | 63 68 65 6d 65 2d 69 6e |n for xs|cheme-in|
|00000a10| 74 65 72 61 63 74 69 6f | 6e 2d 6d 6f 64 65 2e 0a |teractio|n-mode..|
|00000a20| 0a 43 6f 6d 6d 61 6e 64 | 73 3a 0a 44 65 6c 65 74 |.Command|s:.Delet|
|00000a30| 65 20 63 6f 6e 76 65 72 | 74 73 20 74 61 62 73 20 |e conver|ts tabs |
|00000a40| 74 6f 20 73 70 61 63 65 | 73 20 61 73 20 69 74 20 |to space|s as it |
|00000a50| 6d 6f 76 65 73 20 62 61 | 63 6b 2e 0a 42 6c 61 6e |moves ba|ck..Blan|
|00000a60| 6b 20 6c 69 6e 65 73 20 | 73 65 70 61 72 61 74 65 |k lines |separate|
|00000a70| 20 70 61 72 61 67 72 61 | 70 68 73 2e 20 20 53 65 | paragra|phs. Se|
|00000a80| 6d 69 63 6f 6c 6f 6e 73 | 20 73 74 61 72 74 20 63 |micolons| start c|
|00000a90| 6f 6d 6d 65 6e 74 73 2e | 0a 5c 5c 7b 73 63 68 65 |omments.|.\\{sche|
|00000aa0| 6d 65 2d 6d 6f 64 65 2d | 6d 61 70 7d 0a 45 6e 74 |me-mode-|map}.Ent|
|00000ab0| 72 79 20 74 6f 20 74 68 | 69 73 20 6d 6f 64 65 20 |ry to th|is mode |
|00000ac0| 63 61 6c 6c 73 20 74 68 | 65 20 76 61 6c 75 65 20 |calls th|e value |
|00000ad0| 6f 66 20 73 63 68 65 6d | 65 2d 6d 6f 64 65 2d 68 |of schem|e-mode-h|
|00000ae0| 6f 6f 6b 0a 69 66 20 74 | 68 61 74 20 76 61 6c 75 |ook.if t|hat valu|
|00000af0| 65 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2e 22 20 6e |e is non|-nil." n|
|00000b00| 69 6c 5d 29 0a 28 66 73 | 65 74 20 27 73 63 68 65 |il]).(fs|et 'sche|
|00000b10| 6d 65 2d 6d 6f 64 65 2d | 69 6e 69 74 69 61 6c 69 |me-mode-|initiali|
|00000b20| 7a 65 20 23 5b 6e 69 6c | 20 22 c0 09 21 88 c2 13 |ze #[nil| "..!...|
|00000b30| c4 89 15 87 22 20 5b 75 | 73 65 2d 6c 6f 63 61 6c |...." [u|se-local|
|00000b40| 2d 6d 61 70 20 73 63 68 | 65 6d 65 2d 6d 6f 64 65 |-map sch|eme-mode|
|00000b50| 2d 6d 61 70 20 73 63 68 | 65 6d 65 2d 6d 6f 64 65 |-map sch|eme-mode|
|00000b60| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 22 53 63 68 | major-m|ode "Sch|
|00000b70| 65 6d 65 22 20 6d 6f 64 | 65 2d 6e 61 6d 65 5d 20 |eme" mod|e-name] |
|00000b80| 32 5d 29 0a 28 64 65 66 | 76 61 72 20 73 63 68 65 |2]).(def|var sche|
|00000b90| 6d 65 2d 6d 69 74 2d 64 | 69 61 6c 65 63 74 20 74 |me-mit-d|ialect t|
|00000ba0| 20 22 5c 0a 49 66 20 6e | 6f 6e 2d 6e 69 6c 2c 20 | "\.If n|on-nil, |
|00000bb0| 73 63 68 65 6d 65 20 6d | 6f 64 65 20 69 73 20 73 |scheme m|ode is s|
|00000bc0| 70 65 63 69 61 6c 69 7a | 65 64 20 66 6f 72 20 4d |pecializ|ed for M|
|00000bd0| 49 54 20 53 63 68 65 6d | 65 2e 0a 53 65 74 20 74 |IT Schem|e..Set t|
|00000be0| 68 69 73 20 74 6f 20 6e | 69 6c 20 69 66 20 79 6f |his to n|il if yo|
|00000bf0| 75 20 6e 6f 72 6d 61 6c | 6c 79 20 75 73 65 20 61 |u normal|ly use a|
|00000c00| 6e 6f 74 68 65 72 20 64 | 69 61 6c 65 63 74 2e 22 |nother d|ialect."|
|00000c10| 29 0a 28 66 73 65 74 20 | 27 73 63 68 65 6d 65 2d |).(fset |'scheme-|
|00000c20| 63 6f 6d 6d 65 6e 74 2d | 69 6e 64 65 6e 74 20 23 |comment-|indent #|
|00000c30| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 70 6f 73 29 |[(&optio|nal pos)|
|00000c40| 20 22 8a 08 ab 83 08 62 | 88 c1 c2 21 ab 83 69 aa | ".....b|...!..i.|
|00000c50| a3 c1 c3 21 ab 8f c4 20 | 89 1d 3c ab 84 0d 40 aa |...!... |..<...@.|
|00000c60| 81 0d 29 aa 8f c6 c7 78 | 88 6e ab 83 c8 aa 82 69 |..)....x|.n.....i|
|00000c70| 54 0e 09 5d 29 87 22 20 | 5b 70 6f 73 20 6c 6f 6f |T..])." |[pos loo|
|00000c80| 6b 69 6e 67 2d 61 74 20 | 22 3b 3b 3b 22 20 22 3b |king-at |";;;" ";|
|00000c90| 3b 22 20 63 61 6c 63 75 | 6c 61 74 65 2d 73 63 68 |;" calcu|late-sch|
|00000ca0| 65 6d 65 2d 69 6e 64 65 | 6e 74 20 74 65 6d 20 22 |eme-inde|nt tem "|
|00000cb0| 20 09 22 20 6e 69 6c 20 | 30 20 63 6f 6d 6d 65 6e | ." nil |0 commen|
|00000cc0| 74 2d 63 6f 6c 75 6d 6e | 5d 20 33 5d 29 0a 28 64 |t-column|] 3]).(d|
|00000cd0| 65 66 76 61 72 20 73 63 | 68 65 6d 65 2d 69 6e 64 |efvar sc|heme-ind|
|00000ce0| 65 6e 74 2d 6f 66 66 73 | 65 74 20 6e 69 6c 20 22 |ent-offs|et nil "|
|00000cf0| 5c 0a 22 29 0a 28 64 65 | 66 76 61 72 20 73 63 68 |\.").(de|fvar sch|
|00000d00| 65 6d 65 2d 69 6e 64 65 | 6e 74 2d 66 75 6e 63 74 |eme-inde|nt-funct|
|00000d10| 69 6f 6e 20 27 73 63 68 | 65 6d 65 2d 69 6e 64 65 |ion 'sch|eme-inde|
|00000d20| 6e 74 2d 66 75 6e 63 74 | 69 6f 6e 20 22 5c 0a 22 |nt-funct|ion "\."|
|00000d30| 29 0a 28 66 73 65 74 20 | 27 73 63 68 65 6d 65 2d |).(fset |'scheme-|
|00000d40| 69 6e 64 65 6e 74 2d 6c | 69 6e 65 20 23 5b 28 26 |indent-l|ine #[(&|
|00000d50| 6f 70 74 69 6f 6e 61 6c | 20 77 68 6f 6c 65 2d 65 |optional| whole-e|
|00000d60| 78 70 29 20 22 c0 20 c1 | 89 89 64 60 5a 1a 1b 1c |xp) ". .|..d`Z...|
|00000d70| 1d 1e 06 c7 79 88 60 14 | c8 c1 77 88 c9 ca 21 3f |....y.`.|..w...!?|
|00000d80| ad cf 0e 06 3c ab 85 0e | 06 40 16 06 0e 06 69 5a |....<...|.@....iZ|
|00000d90| 89 15 c7 55 ac 88 0c 60 | 7c 88 0e 06 6a 88 64 5c |...U...`||...j.d\|
|00000da0| 6e 5a 60 56 ab 85 64 5c | 6e 5a 62 88 0e 0b ad a3 |nZ`V..d\|nZb.....|
|00000db0| 0d c7 55 3f ad 9d 8a 0c | 62 88 cc cd 21 88 60 13 |..U?....|b...!.`.|
|00000dc0| 0c 62 88 cd 79 88 60 14 | 0b 0c 56 29 ad 85 ce 0c |.b..y.`.|..V)....|
|00000dd0| 0b 0d 23 2d 87 22 20 5b | 63 61 6c 63 75 6c 61 74 |..#-." [|calculat|
|00000de0| 65 2d 73 63 68 65 6d 65 | 2d 69 6e 64 65 6e 74 20 |e-scheme|-indent |
|00000df0| 6e 69 6c 20 70 6f 73 20 | 65 6e 64 20 62 65 67 20 |nil pos |end beg |
|00000e00| 73 68 69 66 74 2d 61 6d | 74 20 69 6e 64 65 6e 74 |shift-am|t indent|
|00000e10| 20 30 20 22 20 09 22 20 | 6c 6f 6f 6b 69 6e 67 2d | 0 " ." |looking-|
|00000e20| 61 74 20 22 5b 20 09 5d | 2a 3b 3b 3b 22 20 77 68 |at "[ .]|*;;;" wh|
|00000e30| 6f 6c 65 2d 65 78 70 20 | 66 6f 72 77 61 72 64 2d |ole-exp |forward-|
|00000e40| 73 65 78 70 20 31 20 69 | 6e 64 65 6e 74 2d 63 6f |sexp 1 i|ndent-co|
|00000e50| 64 65 2d 72 69 67 69 64 | 6c 79 5d 20 37 20 22 5c |de-rigid|ly] 7 "\|
|00000e60| 0a 49 6e 64 65 6e 74 20 | 63 75 72 72 65 6e 74 20 |.Indent |current |
|00000e70| 6c 69 6e 65 20 61 73 20 | 53 63 68 65 6d 65 20 63 |line as |Scheme c|
|00000e80| 6f 64 65 2e 0a 57 69 74 | 68 20 61 72 67 75 6d 65 |ode..Wit|h argume|
|00000e90| 6e 74 2c 20 69 6e 64 65 | 6e 74 20 61 6e 79 20 61 |nt, inde|nt any a|
|00000ea0| 64 64 69 74 69 6f 6e 61 | 6c 20 6c 69 6e 65 73 20 |dditiona|l lines |
|00000eb0| 6f 66 20 74 68 65 20 73 | 61 6d 65 20 65 78 70 72 |of the s|ame expr|
|00000ec0| 65 73 73 69 6f 6e 0a 72 | 69 67 69 64 6c 79 20 61 |ession.r|igidly a|
|00000ed0| 6c 6f 6e 67 20 77 69 74 | 68 20 74 68 69 73 20 6f |long wit|h this o|
|00000ee0| 6e 65 2e 22 20 22 50 22 | 5d 29 0a 28 66 73 65 74 |ne." "P"|]).(fset|
|00000ef0| 20 27 63 61 6c 63 75 6c | 61 74 65 2d 73 63 68 65 | 'calcul|ate-sche|
|00000f00| 6d 65 2d 69 6e 64 65 6e | 74 20 23 5b 28 26 6f 70 |me-inden|t #[(&op|
|00000f10| 74 69 6f 6e 61 6c 20 70 | 61 72 73 65 2d 73 74 61 |tional p|arse-sta|
|00000f20| 72 74 29 20 22 8a c0 79 | 88 60 c1 89 89 c2 c1 89 |rt) "..y|.`......|
|00000f30| 89 1b 1c 1d 1e 06 1e 07 | 1e 08 1e 09 1e 5c 6e 0e |........|.....\n.|
|00000f40| 0b ab 86 0e 0b 62 88 aa | 83 cc 20 88 60 0e 5c 6e |.....b..|.. .`.\n|
|00000f50| 57 ab 8a cd 60 0e 5c 6e | c0 23 16 09 aa 70 0e 06 |W...`.\n|.#...p..|
|00000f60| 83 ce 00 0e 09 40 89 16 | 08 83 ce 00 0e 08 c0 56 |.....@..|.......V|
|00000f70| 83 ce 00 c1 16 06 ce 0e | 09 38 15 0e 09 41 40 89 |........|.8...A@.|
|00000f80| 14 54 62 88 0d ab 9a 0d | 60 56 ab 95 cd 0d 0e 5c |.Tb.....|`V.....\|
|00000f90| 6e c0 23 89 1e 0f 41 40 | 89 16 06 ab 84 0e 0f 16 |n.#...A@|........|
|00000fa0| 09 29 0e 06 ac 39 0c 54 | 62 88 0d ac 85 69 16 07 |.)...9.T|b....i..|
|00000fb0| aa 2d cd 60 0d c0 c2 24 | 88 d0 d1 21 13 8a d2 79 |.-.`...$|...!...y|
|00000fc0| 88 60 29 0d 56 ab 9d cd | 60 0d c0 c2 24 88 60 0d |.`).V...|`...$.`.|
|00000fd0| 55 ac 8b d3 d2 21 88 cd | 60 0d c0 c2 24 88 d4 20 |U....!..|`...$.. |
|00000fe0| 88 82 36 00 0d 62 88 c0 | 79 88 cd 60 0d c0 c2 24 |..6..b..|y..`...$|
|00000ff0| 88 d4 20 88 82 36 00 0b | ab 83 69 16 07 d5 0e 09 |.. ..6..|..i.....|
|00001000| 9b 40 ab 8d 0e 5c 6e 62 | 88 d6 c1 77 88 69 16 07 |.@...\nb|...w.i..|
|00001010| aa b3 0e 17 a8 ab 8e 0c | ab 8b 0c 62 88 0e 17 69 |........|...b...i|
|00001020| 5c 5c 16 07 aa a0 0e 07 | ac 9c d8 d9 21 ab 94 0e |\\......|....!...|
|00001030| 19 ab 90 0e 06 ac 8c 0e | 19 0e 5c 6e 0e 09 5c 22 |........|..\n..\"|
|00001040| 89 16 07 ac 83 69 16 07 | 0e 07 2e 09 87 22 20 5b |.....i..|....." [|
|00001050| 30 20 6e 69 6c 20 74 20 | 66 69 72 73 74 2d 73 65 |0 nil t |first-se|
|00001060| 78 70 2d 6c 69 73 74 2d | 70 20 63 6f 6e 74 61 69 |xp-list-|p contai|
|00001070| 6e 69 6e 67 2d 73 65 78 | 70 20 6c 61 73 74 2d 73 |ning-sex|p last-s|
|00001080| 65 78 70 20 72 65 74 72 | 79 20 64 65 73 69 72 65 |exp retr|y desire|
|00001090| 64 2d 69 6e 64 65 6e 74 | 20 70 61 72 65 6e 2d 64 |d-indent| paren-d|
|000010a0| 65 70 74 68 20 73 74 61 | 74 65 20 69 6e 64 65 6e |epth sta|te inden|
|000010b0| 74 2d 70 6f 69 6e 74 20 | 70 61 72 73 65 2d 73 74 |t-point |parse-st|
|000010c0| 61 72 74 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |art begi|nning-of|
|000010d0| 2d 64 65 66 75 6e 20 70 | 61 72 73 65 2d 70 61 72 |-defun p|arse-par|
|000010e0| 74 69 61 6c 2d 73 65 78 | 70 20 32 20 70 65 65 6b |tial-sex|p 2 peek|
|000010f0| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5c 5c 73 | looking|-at "\\s|
|00001100| 28 22 20 31 20 66 6f 72 | 77 61 72 64 2d 73 65 78 |(" 1 for|ward-sex|
|00001110| 70 20 62 61 63 6b 77 61 | 72 64 2d 70 72 65 66 69 |p backwa|rd-prefi|
|00001120| 78 2d 63 68 61 72 73 20 | 33 20 22 20 09 22 20 73 |x-chars |3 " ." s|
|00001130| 63 68 65 6d 65 2d 69 6e | 64 65 6e 74 2d 6f 66 66 |cheme-in|dent-off|
|00001140| 73 65 74 20 62 6f 75 6e | 64 70 20 73 63 68 65 6d |set boun|dp schem|
|00001150| 65 2d 69 6e 64 65 6e 74 | 2d 66 75 6e 63 74 69 6f |e-indent|-functio|
|00001160| 6e 5d 20 39 20 22 5c 0a | 52 65 74 75 72 6e 20 61 |n] 9 "\.|Return a|
|00001170| 70 70 72 6f 70 72 69 61 | 74 65 20 69 6e 64 65 6e |ppropria|te inden|
|00001180| 74 61 74 69 6f 6e 20 66 | 6f 72 20 63 75 72 72 65 |tation f|or curre|
|00001190| 6e 74 20 6c 69 6e 65 20 | 61 73 20 73 63 68 65 6d |nt line |as schem|
|000011a0| 65 20 63 6f 64 65 2e 0a | 49 6e 20 75 73 75 61 6c |e code..|In usual|
|000011b0| 20 63 61 73 65 20 72 65 | 74 75 72 6e 73 20 61 6e | case re|turns an|
|000011c0| 20 69 6e 74 65 67 65 72 | 3a 20 74 68 65 20 63 6f | integer|: the co|
|000011d0| 6c 75 6d 6e 20 74 6f 20 | 69 6e 64 65 6e 74 20 74 |lumn to |indent t|
|000011e0| 6f 2e 0a 43 61 6e 20 69 | 6e 73 74 65 61 64 20 72 |o..Can i|nstead r|
|000011f0| 65 74 75 72 6e 20 61 20 | 6c 69 73 74 2c 20 77 68 |eturn a |list, wh|
|00001200| 6f 73 65 20 63 61 72 20 | 69 73 20 74 68 65 20 63 |ose car |is the c|
|00001210| 6f 6c 75 6d 6e 20 74 6f | 20 69 6e 64 65 6e 74 20 |olumn to| indent |
|00001220| 74 6f 2e 0a 54 68 69 73 | 20 6d 65 61 6e 73 20 74 |to..This| means t|
|00001230| 68 61 74 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6c 69 |hat foll|owing li|
|00001240| 6e 65 73 20 61 74 20 74 | 68 65 20 73 61 6d 65 20 |nes at t|he same |
|00001250| 6c 65 76 65 6c 20 6f 66 | 20 69 6e 64 65 6e 74 61 |level of| indenta|
|00001260| 74 69 6f 6e 0a 73 68 6f | 75 6c 64 20 6e 6f 74 20 |tion.sho|uld not |
|00001270| 6e 65 63 65 73 73 61 72 | 69 6c 79 20 62 65 20 69 |necessar|ily be i|
|00001280| 6e 64 65 6e 74 65 64 20 | 74 68 65 20 73 61 6d 65 |ndented |the same|
|00001290| 20 77 61 79 2e 0a 54 68 | 65 20 73 65 63 6f 6e 64 | way..Th|e second|
|000012a0| 20 65 6c 65 6d 65 6e 74 | 20 6f 66 20 74 68 65 20 | element| of the |
|000012b0| 6c 69 73 74 20 69 73 20 | 74 68 65 20 62 75 66 66 |list is |the buff|
|000012c0| 65 72 20 70 6f 73 69 74 | 69 6f 6e 0a 6f 66 20 74 |er posit|ion.of t|
|000012d0| 68 65 20 73 74 61 72 74 | 20 6f 66 20 74 68 65 20 |he start| of the |
|000012e0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 65 78 70 72 65 |containi|ng expre|
|000012f0| 73 73 69 6f 6e 2e 22 5d | 29 0a 28 66 73 65 74 20 |ssion."]|).(fset |
|00001300| 27 73 63 68 65 6d 65 2d | 69 6e 64 65 6e 74 2d 66 |'scheme-|indent-f|
|00001310| 75 6e 63 74 69 6f 6e 20 | 23 5b 28 69 6e 64 65 6e |unction |#[(inden|
|00001320| 74 2d 70 6f 69 6e 74 20 | 73 74 61 74 65 29 20 22 |t-point |state) "|
|00001330| 69 18 8a 09 41 40 54 62 | 88 c2 c3 21 88 60 09 41 |i...A@Tb|...!.`.A|
|00001340| 40 55 3f ad ca c4 75 88 | 60 c5 c6 21 88 60 7b c7 |@U?...u.|`..!.`{.|
|00001350| 1e 08 89 1e 09 97 16 09 | ca 0e 09 21 cb 4e 89 16 |........|...!.N..|
|00001360| 08 a8 ab 89 cc 0e 08 09 | 0e 0d 23 aa a1 0e 08 ab |........|..#.....|
|00001370| 88 0e 08 09 0e 0d 5c 22 | aa 95 0e 09 47 ce 56 ad |......\"|....G.V.|
|00001380| 8e 0e 09 cf ce 4f d0 98 | ad 85 d1 09 0e 0d 5c 22 |.....O..|......\"|
|00001390| 2a 2a 87 22 20 5b 6e 6f | 72 6d 61 6c 2d 69 6e 64 |**." [no|rmal-ind|
|000013a0| 65 6e 74 20 73 74 61 74 | 65 20 72 65 2d 73 65 61 |ent stat|e re-sea|
|000013b0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5c 5c 73 |rch-forw|ard "\\s|
|000013c0| 77 5c 5c 7c 5c 5c 73 5f | 22 20 2d 31 20 66 6f 72 |w\\|\\s_|" -1 for|
|000013d0| 77 61 72 64 2d 73 65 78 | 70 20 31 20 6e 69 6c 20 |ward-sex|p 1 nil |
|000013e0| 6d 65 74 68 6f 64 20 66 | 75 6e 63 74 69 6f 6e 20 |method f|unction |
|000013f0| 69 6e 74 65 72 6e 2d 73 | 6f 66 74 20 73 63 68 65 |intern-s|oft sche|
|00001400| 6d 65 2d 69 6e 64 65 6e | 74 2d 66 75 6e 63 74 69 |me-inden|t-functi|
|00001410| 6f 6e 20 73 63 68 65 6d | 65 2d 69 6e 64 65 6e 74 |on schem|e-indent|
|00001420| 2d 73 70 65 63 66 6f 72 | 6d 20 69 6e 64 65 6e 74 |-specfor|m indent|
|00001430| 2d 70 6f 69 6e 74 20 33 | 20 30 20 22 64 65 66 22 |-point 3| 0 "def"|
|00001440| 20 73 63 68 65 6d 65 2d | 69 6e 64 65 6e 74 2d 64 | scheme-|indent-d|
|00001450| 65 66 66 6f 72 6d 5d 20 | 35 5d 29 0a 28 64 65 66 |efform] |5]).(def|
|00001460| 76 61 72 20 73 63 68 65 | 6d 65 2d 62 6f 64 79 2d |var sche|me-body-|
|00001470| 69 6e 64 65 6e 74 20 32 | 20 22 5c 0a 22 29 0a 28 |indent 2| "\.").(|
|00001480| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4d 88 c2 |byte-cod|e "..M..|
|00001490| c3 4d 88 c4 c5 4d 88 c6 | c7 4d 88 c8 c9 4d 88 ca |.M...M..|.M...M..|
|000014a0| cb cc cd 23 88 ca ce cc | cf 23 88 ca d0 cc cd 23 |...#....|.#.....#|
|000014b0| 88 ca d1 cc d2 23 88 ca | d3 cc cf 23 88 ca d4 cc |.....#..|...#....|
|000014c0| c8 23 88 ca d5 cc cf 23 | 88 ca d6 cc cf 23 88 ca |.#.....#|.....#..|
|000014d0| d7 cc cd 23 88 ca d8 cc | cf 23 88 ca d9 cc cf 23 |...#....|.#.....#|
|000014e0| 88 ca da cc cf 23 88 ca | db cc cf 23 88 ca dc cc |.....#..|...#....|
|000014f0| cf 23 88 ca dd cc cf 23 | 88 0e 1e 83 51 01 ca df |.#.....#|....Q...|
|00001500| cc cf 23 88 ca e0 cc cf | 23 88 ca e1 cc cf 23 88 |..#.....|#.....#.|
|00001510| ca e2 cc cf 23 88 ca e3 | cc cf 23 88 ca e4 cc cd |....#...|..#.....|
|00001520| 23 88 ca e5 cc cf 23 88 | ca e6 cc cf 23 88 ca e7 |#.....#.|....#...|
|00001530| cc cf 23 88 ca e8 cc cd | 23 88 ca e9 cc cf 23 88 |..#.....|#.....#.|
|00001540| ca ea cc d2 23 88 ca eb | cc cf 23 88 ca ec cc cf |....#...|..#.....|
|00001550| 23 88 ca ed cc cf 23 88 | ca ee cc cf 23 88 ca ef |#.....#.|....#...|
|00001560| cc cf 23 88 ca f0 cc cf | 23 88 ca f1 cc cf 23 88 |..#.....|#.....#.|
|00001570| ca f2 cc cf 23 88 ca f3 | cc cf 23 88 ca f4 cc cf |....#...|..#.....|
|00001580| 23 88 ca f5 cc cf 23 88 | ca f6 cc cf 23 88 ca f7 |#.....#.|....#...|
|00001590| cc cf 23 88 ca f8 cc cf | 23 88 ca f9 cc cf 23 88 |..#.....|#.....#.|
|000015a0| ca fa cc cf 23 88 ca fb | cc cf 23 88 ca fc cc cf |....#...|..#.....|
|000015b0| 23 88 ca fd cc cf 23 88 | ca fe cc cf 23 88 ca ff |#.....#.|....#...|
|000015c0| cc cf 23 88 ca 81 40 00 | cc cf 23 88 ca 81 41 00 |..#...@.|..#...A.|
|000015d0| cc cf 23 88 ca 81 42 00 | cc cf 23 88 c0 87 22 20 |..#...B.|..#..." |
|000015e0| 5b 73 63 68 65 6d 65 2d | 69 6e 64 65 6e 74 2d 73 |[scheme-|indent-s|
|000015f0| 70 65 63 66 6f 72 6d 20 | 23 5b 28 63 6f 75 6e 74 |pecform |#[(count|
|00001600| 20 73 74 61 74 65 20 69 | 6e 64 65 6e 74 2d 70 6f | state i|ndent-po|
|00001610| 69 6e 74 29 20 22 08 41 | 40 09 c2 89 1b 1c 1d 89 |int) ".A|@.......|
|00001620| 1e 06 62 88 69 13 0e 07 | 0b 5c 5c 14 c8 75 88 c9 |..b.i...|.\\..u..|
|00001630| c8 21 88 ca 60 0e 0b c8 | cc 24 88 60 0e 0b 57 ab |.!..`...|.$.`..W.|
|00001640| 86 c2 cd ce 8f ac 74 09 | cf 56 ab 8b 0b 0e 07 89 |......t.|.V......|
|00001650| 5c 5c 5c 5c 0e 06 44 aa | 95 09 cf 55 ab 8e 0d cf |\\\\..D.|...U....|
|00001660| 55 ac 86 0c 0e 10 58 ab | 83 0c aa 82 0e 10 2c 87 |U.....X.|......,.|
|00001670| 22 20 5b 73 74 61 74 65 | 20 63 6f 75 6e 74 20 6e |" [state| count n|
|00001680| 69 6c 20 63 6f 6e 74 61 | 69 6e 69 6e 67 2d 66 6f |il conta|ining-fo|
|00001690| 72 6d 2d 63 6f 6c 75 6d | 6e 20 62 6f 64 79 2d 69 |rm-colum|n body-i|
|000016a0| 6e 64 65 6e 74 20 69 20 | 63 6f 6e 74 61 69 6e 69 |ndent i |containi|
|000016b0| 6e 67 2d 66 6f 72 6d 2d | 73 74 61 72 74 20 73 63 |ng-form-|start sc|
|000016c0| 68 65 6d 65 2d 62 6f 64 | 79 2d 69 6e 64 65 6e 74 |heme-bod|y-indent|
|000016d0| 20 31 20 66 6f 72 77 61 | 72 64 2d 73 65 78 70 20 | 1 forwa|rd-sexp |
|000016e0| 70 61 72 73 65 2d 70 61 | 72 74 69 61 6c 2d 73 65 |parse-pa|rtial-se|
|000016f0| 78 70 20 69 6e 64 65 6e | 74 2d 70 6f 69 6e 74 20 |xp inden|t-point |
|00001700| 74 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 53 |t (byte-|code ".S|
|00001710| 10 c1 c2 21 88 c3 60 0c | c2 c5 24 87 22 20 5b 63 |...!..`.|..$." [c|
|00001720| 6f 75 6e 74 20 66 6f 72 | 77 61 72 64 2d 73 65 78 |ount for|ward-sex|
|00001730| 70 20 31 20 70 61 72 73 | 65 2d 70 61 72 74 69 61 |p 1 pars|e-partia|
|00001740| 6c 2d 73 65 78 70 20 69 | 6e 64 65 6e 74 2d 70 6f |l-sexp i|ndent-po|
|00001750| 69 6e 74 20 74 5d 20 35 | 29 20 28 28 65 72 72 6f |int t] 5|) ((erro|
|00001760| 72 29 29 20 30 20 6e 6f | 72 6d 61 6c 2d 69 6e 64 |r)) 0 no|rmal-ind|
|00001770| 65 6e 74 5d 20 36 5d 20 | 73 63 68 65 6d 65 2d 69 |ent] 6] |scheme-i|
|00001780| 6e 64 65 6e 74 2d 64 65 | 66 66 6f 72 6d 20 23 5b |ndent-de|fform #[|
|00001790| 28 73 74 61 74 65 20 69 | 6e 64 65 6e 74 2d 70 6f |(state i|ndent-po|
|000017a0| 69 6e 74 29 20 22 08 41 | 40 62 88 c1 79 88 60 08 |int) ".A|@b..y.`.|
|000017b0| 41 41 40 56 ad 88 08 41 | 40 62 88 5c 6e 69 5c 5c |AA@V...A|@b.\ni\\|
|000017c0| 87 22 20 5b 73 74 61 74 | 65 20 31 20 73 63 68 65 |." [stat|e 1 sche|
|000017d0| 6d 65 2d 62 6f 64 79 2d | 69 6e 64 65 6e 74 5d 20 |me-body-|indent] |
|000017e0| 32 5d 20 77 6f 75 6c 64 | 2d 62 65 2d 73 79 6d 62 |2] would|-be-symb|
|000017f0| 6f 6c 20 23 5b 28 73 74 | 72 69 6e 67 29 20 22 08 |ol #[(st|ring) ".|
|00001800| c1 c2 4f c3 98 3f 87 22 | 20 5b 73 74 72 69 6e 67 |..O..?."| [string|
|00001810| 20 30 20 31 20 22 28 22 | 5d 20 33 5d 20 6e 65 78 | 0 1 "("|] 3] nex|
|00001820| 74 2d 73 65 78 70 2d 61 | 73 2d 73 74 72 69 6e 67 |t-sexp-a|s-string|
|00001830| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 88 60 1a c3 c1 | #[nil "|..!.`...|
|00001840| 21 88 60 5c 6e 7b 29 87 | 22 20 5b 66 6f 72 77 61 |!.`\n{).|" [forwa|
|00001850| 72 64 2d 73 65 78 70 20 | 31 20 74 68 65 2d 65 6e |rd-sexp |1 the-en|
|00001860| 64 20 62 61 63 6b 77 61 | 72 64 2d 73 65 78 70 5d |d backwa|rd-sexp]|
|00001870| 20 32 5d 20 73 63 68 65 | 6d 65 2d 6c 65 74 2d 69 | 2] sche|me-let-i|
|00001880| 6e 64 65 6e 74 20 23 5b | 28 73 74 61 74 65 20 69 |ndent #[|(state i|
|00001890| 6e 64 65 6e 74 2d 70 6f | 69 6e 74 29 20 22 c0 c1 |ndent-po|int) "..|
|000018a0| 77 88 c2 c3 21 ab 88 c4 | c5 0e 06 0e 07 23 87 c4 |w...!...|.....#..|
|000018b0| c8 0e 06 0e 07 23 87 22 | 20 5b 22 20 09 22 20 6e |.....#."| [" ." n|
|000018c0| 69 6c 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5b |il looki|ng-at "[|
|000018d0| 61 2d 7a 41 2d 5a 30 2d | 39 2b 2d 2a 2f 3f 21 40 |a-zA-Z0-|9+-*/?!@|
|000018e0| 24 25 5e 26 5f 3a 7e 5d | 22 20 73 63 68 65 6d 65 |$%^&_:~]|" scheme|
|000018f0| 2d 69 6e 64 65 6e 74 2d | 73 70 65 63 66 6f 72 6d |-indent-|specform|
|00001900| 20 32 20 73 74 61 74 65 | 20 69 6e 64 65 6e 74 2d | 2 state| indent-|
|00001910| 70 6f 69 6e 74 20 31 5d | 20 34 5d 20 70 75 74 20 |point 1]| 4] put |
|00001920| 62 65 67 69 6e 20 73 63 | 68 65 6d 65 2d 69 6e 64 |begin sc|heme-ind|
|00001930| 65 6e 74 2d 66 75 6e 63 | 74 69 6f 6e 20 30 20 63 |ent-func|tion 0 c|
|00001940| 61 73 65 20 31 20 64 65 | 6c 61 79 20 64 6f 20 32 |ase 1 de|lay do 2|
|00001950| 20 6c 61 6d 62 64 61 20 | 6c 65 74 20 6c 65 74 2a | lambda |let let*|
|00001960| 20 6c 65 74 72 65 63 20 | 73 65 71 75 65 6e 63 65 | letrec |sequence|
|00001970| 20 63 61 6c 6c 2d 77 69 | 74 68 2d 69 6e 70 75 74 | call-wi|th-input|
|00001980| 2d 66 69 6c 65 20 77 69 | 74 68 2d 69 6e 70 75 74 |-file wi|th-input|
|00001990| 2d 66 72 6f 6d 2d 66 69 | 6c 65 20 77 69 74 68 2d |-from-fi|le with-|
|000019a0| 69 6e 70 75 74 2d 66 72 | 6f 6d 2d 70 6f 72 74 20 |input-fr|om-port |
|000019b0| 63 61 6c 6c 2d 77 69 74 | 68 2d 6f 75 74 70 75 74 |call-wit|h-output|
|000019c0| 2d 66 69 6c 65 20 77 69 | 74 68 2d 6f 75 74 70 75 |-file wi|th-outpu|
|000019d0| 74 2d 74 6f 2d 66 69 6c | 65 20 77 69 74 68 2d 6f |t-to-fil|e with-o|
|000019e0| 75 74 70 75 74 2d 74 6f | 2d 70 6f 72 74 20 73 63 |utput-to|-port sc|
|000019f0| 68 65 6d 65 2d 6d 69 74 | 2d 64 69 61 6c 65 63 74 |heme-mit|-dialect|
|00001a00| 20 66 6c 75 69 64 2d 6c | 65 74 20 69 6e 2d 70 61 | fluid-l|et in-pa|
|00001a10| 63 6b 61 67 65 20 6c 65 | 74 2d 73 79 6e 74 61 78 |ckage le|t-syntax|
|00001a20| 20 6c 6f 63 61 6c 2d 64 | 65 63 6c 61 72 65 20 6d | local-d|eclare m|
|00001a30| 61 63 72 6f 20 6d 61 6b | 65 2d 65 6e 76 69 72 6f |acro mak|e-enviro|
|00001a40| 6e 6d 65 6e 74 20 6e 61 | 6d 65 64 2d 6c 61 6d 62 |nment na|med-lamb|
|00001a50| 64 61 20 75 73 69 6e 67 | 2d 73 79 6e 74 61 78 20 |da using|-syntax |
|00001a60| 77 69 74 68 2d 69 6e 70 | 75 74 2d 66 72 6f 6d 2d |with-inp|ut-from-|
|00001a70| 73 74 72 69 6e 67 20 77 | 69 74 68 2d 6f 75 74 70 |string w|ith-outp|
|00001a80| 75 74 2d 74 6f 2d 73 74 | 72 69 6e 67 20 77 69 74 |ut-to-st|ring wit|
|00001a90| 68 2d 76 61 6c 75 65 73 | 20 73 79 6e 74 61 78 2d |h-values| syntax-|
|00001aa0| 74 61 62 6c 65 2d 64 65 | 66 69 6e 65 20 6c 69 73 |table-de|fine lis|
|00001ab0| 74 2d 74 72 61 6e 73 66 | 6f 72 6d 2d 70 6f 73 69 |t-transf|orm-posi|
|00001ac0| 74 69 76 65 20 6c 69 73 | 74 2d 74 72 61 6e 73 66 |tive lis|t-transf|
|00001ad0| 6f 72 6d 2d 6e 65 67 61 | 74 69 76 65 20 6c 69 73 |orm-nega|tive lis|
|00001ae0| 74 2d 73 65 61 72 63 68 | 2d 70 6f 73 69 74 69 76 |t-search|-positiv|
|00001af0| 65 20 6c 69 73 74 2d 73 | 65 61 72 63 68 2d 6e 65 |e list-s|earch-ne|
|00001b00| 67 61 74 69 76 65 20 61 | 63 63 65 73 73 2d 63 6f |gative a|ccess-co|
|00001b10| 6d 70 6f 6e 65 6e 74 73 | 20 61 73 73 69 67 6e 6d |mponents| assignm|
|00001b20| 65 6e 74 2d 63 6f 6d 70 | 6f 6e 65 6e 74 73 20 63 |ent-comp|onents c|
|00001b30| 6f 6d 62 69 6e 61 74 69 | 6f 6e 2d 63 6f 6d 70 6f |ombinati|on-compo|
|00001b40| 6e 65 6e 74 73 20 63 6f | 6d 6d 65 6e 74 2d 63 6f |nents co|mment-co|
|00001b50| 6d 70 6f 6e 65 6e 74 73 | 20 63 6f 6e 64 69 74 69 |mponents| conditi|
|00001b60| 6f 6e 61 6c 2d 63 6f 6d | 70 6f 6e 65 6e 74 73 20 |onal-com|ponents |
|00001b70| 64 69 73 6a 75 6e 63 74 | 69 6f 6e 2d 63 6f 6d 70 |disjunct|ion-comp|
|00001b80| 6f 6e 65 6e 74 73 20 64 | 65 63 6c 61 72 61 74 69 |onents d|eclarati|
|00001b90| 6f 6e 2d 63 6f 6d 70 6f | 6e 65 6e 74 73 20 64 65 |on-compo|nents de|
|00001ba0| 66 69 6e 69 74 69 6f 6e | 2d 63 6f 6d 70 6f 6e 65 |finition|-compone|
|00001bb0| 6e 74 73 20 64 65 6c 61 | 79 2d 63 6f 6d 70 6f 6e |nts dela|y-compon|
|00001bc0| 65 6e 74 73 20 69 6e 2d | 70 61 63 6b 61 67 65 2d |ents in-|package-|
|00001bd0| 63 6f 6d 70 6f 6e 65 6e | 74 73 20 6c 61 6d 62 64 |componen|ts lambd|
|00001be0| 61 2d 63 6f 6d 70 6f 6e | 65 6e 74 73 20 6c 61 6d |a-compon|ents lam|
|00001bf0| 62 64 61 2d 63 6f 6d 70 | 6f 6e 65 6e 74 73 2a 20 |bda-comp|onents* |
|00001c00| 6c 61 6d 62 64 61 2d 63 | 6f 6d 70 6f 6e 65 6e 74 |lambda-c|omponent|
|00001c10| 73 2a 2a 20 6f 70 65 6e | 2d 62 6c 6f 63 6b 2d 63 |s** open|-block-c|
|00001c20| 6f 6d 70 6f 6e 65 6e 74 | 73 20 70 61 74 68 6e 61 |omponent|s pathna|
|00001c30| 6d 65 2d 63 6f 6d 70 6f | 6e 65 6e 74 73 20 70 72 |me-compo|nents pr|
|00001c40| 6f 63 65 64 75 72 65 2d | 63 6f 6d 70 6f 6e 65 6e |ocedure-|componen|
|00001c50| 74 73 20 73 65 71 75 65 | 6e 63 65 2d 63 6f 6d 70 |ts seque|nce-comp|
|00001c60| 6f 6e 65 6e 74 73 20 75 | 6e 61 73 73 69 67 6e 65 |onents u|nassigne|
|00001c70| 64 5c 3f 2d 63 6f 6d 70 | 6f 6e 65 6e 74 73 20 75 |d\?-comp|onents u|
|00001c80| 6e 62 6f 75 6e 64 5c 3f | 2d 63 6f 6d 70 6f 6e 65 |nbound\?|-compone|
|00001c90| 6e 74 73 20 76 61 72 69 | 61 62 6c 65 2d 63 6f 6d |nts vari|able-com|
|00001ca0| 70 6f 6e 65 6e 74 73 5d | 20 34 29 0a 28 66 73 65 |ponents]| 4).(fse|
|00001cb0| 74 20 27 73 63 68 65 6d | 65 2d 69 6e 64 65 6e 74 |t 'schem|e-indent|
|00001cc0| 2d 73 65 78 70 20 23 5b | 6e 69 6c 20 22 c0 43 c1 |-sexp #[|nil ".C.|
|00001cd0| c0 89 89 89 89 1a 1b 1c | 1d 1e 06 1e 07 1e 08 8a |........|........|
|00001ce0| c9 ca 21 88 29 8a c0 15 | 0d 3f 85 f9 00 0e 07 16 |..!.)...|.?......|
|00001cf0| 0b c0 16 0c 0e 0c ac bd | 6d 89 15 ac b8 cd 60 c0 |........|m.....`.|
|00001d00| 7f 88 60 c0 89 0b 25 89 | 13 40 16 07 ce 0b 9b 40 |..`...%.|.@.....@|
|00001d10| ab 8c cf 20 88 c0 7f 88 | ce 0b 9b c0 a0 88 d0 0b |... ....|........|
|00001d20| 9b 40 ab 8b ca 79 88 d1 | 0b 9b c0 a0 88 aa 45 d2 |.@...y..|......E.|
|00001d30| 89 16 0c ab 43 0e 07 c1 | 58 89 15 ac 2b 0e 0b 0e |....C...|X...+...|
|00001d40| 07 56 ab 8d 0e 08 41 16 | 08 0e 0b 53 89 16 0b aa |.V....A.|...S....|
|00001d50| 6e 0e 0b 0e 07 57 ab 8e | c0 0e 08 42 16 08 0e 0b |n....W..|...B....|
|00001d60| 54 89 16 0b aa 6d ca 79 | 88 60 16 06 d3 c0 77 88 |T....m.y|.`....w.|
|00001d70| 6d 84 1b 00 d4 d5 21 84 | 1b 00 0e 08 40 ab 8d 0e |m.....!.|....@...|
|00001d80| 08 40 c1 59 ab 86 0e 08 | 40 12 aa a9 d6 0e 08 40 |.@.Y....|@......@|
|00001d90| ad 84 0e 08 40 5b 21 89 | 1e 17 a8 ab 8a 0e 08 0e |....@[!.|........|
|00001da0| 17 89 12 a0 88 aa 8d 0e | 08 0e 17 41 40 5b a0 88 |........|...A@[..|
|00001db0| 0e 17 40 12 29 69 5c 6e | 55 84 1b 00 0e 06 60 7c |..@.)i\n|U.....`||
|00001dc0| 88 5c 6e 6a 88 82 1b 00 | 2e 08 87 22 20 5b 6e 69 |.\nj....|..." [ni|
|00001dd0| 6c 20 30 20 74 68 69 73 | 2d 69 6e 64 65 6e 74 20 |l 0 this|-indent |
|00001de0| 73 74 61 74 65 20 69 6e | 6e 65 72 2d 6c 6f 6f 70 |state in|ner-loop|
|00001df0| 2d 64 6f 6e 65 20 6f 75 | 74 65 72 2d 6c 6f 6f 70 |-done ou|ter-loop|
|00001e00| 2d 64 6f 6e 65 20 62 6f | 6c 20 6e 65 78 74 2d 64 |-done bo|l next-d|
|00001e10| 65 70 74 68 20 69 6e 64 | 65 6e 74 2d 73 74 61 63 |epth ind|ent-stac|
|00001e20| 6b 20 66 6f 72 77 61 72 | 64 2d 73 65 78 70 20 31 |k forwar|d-sexp 1|
|00001e30| 20 6c 61 73 74 2d 64 65 | 70 74 68 20 69 6e 6e 65 | last-de|pth inne|
|00001e40| 72 6c 6f 6f 70 2d 64 6f | 6e 65 20 70 61 72 73 65 |rloop-do|ne parse|
|00001e50| 2d 70 61 72 74 69 61 6c | 2d 73 65 78 70 20 34 20 |-partial|-sexp 4 |
|00001e60| 69 6e 64 65 6e 74 2d 66 | 6f 72 2d 63 6f 6d 6d 65 |indent-f|or-comme|
|00001e70| 6e 74 20 33 20 35 20 74 | 20 22 20 09 22 20 6c 6f |nt 3 5 t| " ." lo|
|00001e80| 6f 6b 69 6e 67 2d 61 74 | 20 22 5b 3b 5c 6e 5d 22 |oking-at| "[;\n]"|
|00001e90| 20 63 61 6c 63 75 6c 61 | 74 65 2d 73 63 68 65 6d | calcula|te-schem|
|00001ea0| 65 2d 69 6e 64 65 6e 74 | 20 76 61 6c 5d 20 38 20 |e-indent| val] 8 |
|00001eb0| 22 5c 0a 49 6e 64 65 6e | 74 20 65 61 63 68 20 6c |"\.Inden|t each l|
|00001ec0| 69 6e 65 20 6f 66 20 74 | 68 65 20 6c 69 73 74 20 |ine of t|he list |
|00001ed0| 73 74 61 72 74 69 6e 67 | 20 6a 75 73 74 20 61 66 |starting| just af|
|00001ee0| 74 65 72 20 70 6f 69 6e | 74 2e 22 20 6e 69 6c 5d |ter poin|t." nil]|
|00001ef0| 29 0a | |). | |
+--------+-------------------------+-------------------------+--------+--------+
