home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-05-23 | 14.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.
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 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 53 75 6e 20 | 4d 61 79 20 32 32 20 31 | on Sun |May 22 1|
|00000040| 38 3a 32 38 3a 31 39 20 | 31 39 39 34 0a 3b 3b 3b |8:28:19 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 69 6e 66 2d 6c 69 | 73 70 2e 65 6c 0a 3b 3b |p/inf-li|sp.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 32 33 2e 39 30 | 2e 31 2e 0a 3b 3b 3b 20 |19.23.90|.1..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n).. | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))). |
|00000190| 20 28 65 72 72 6f 72 20 | 22 60 2f 68 6f 6d 65 2f | (error |"`/home/|
|000001a0| 66 73 66 2f 72 6d 73 2f | 65 31 39 2f 6c 69 73 70 |fsf/rms/|e19/lisp|
|000001b0| 2f 69 6e 66 2d 6c 69 73 | 70 2e 65 6c 27 20 77 61 |/inf-lis|p.el' wa|
|000001c0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001d0| 6d 61 63 73 20 31 39 22 | 29 29 0a 0a 28 62 79 74 |macs 19"|))..(byt|
|000001e0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 88 c0 c2 21 87 |e-code "|..!...!.|
|000001f0| 22 20 5b 72 65 71 75 69 | 72 65 20 63 6f 6d 69 6e |" [requi|re comin|
|00000200| 74 20 6c 69 73 70 2d 6d | 6f 64 65 5d 20 32 29 0a |t lisp-m|ode] 2).|
|00000210| 28 64 65 66 76 61 72 20 | 69 6e 66 65 72 69 6f 72 |(defvar |inferior|
|00000220| 2d 6c 69 73 70 2d 66 69 | 6c 74 65 72 2d 72 65 67 |-lisp-fi|lter-reg|
|00000230| 65 78 70 20 22 5c 5c 60 | 5c 5c 73 20 2a 5c 5c 28 |exp "\\`|\\s *\\(|
|00000240| 3a 5c 5c 28 5c 5c 77 5c | 5c 7c 5c 5c 73 5f 5c 5c |:\\(\\w\|\|\\s_\\|
|00000250| 29 5c 5c 29 3f 5c 5c 73 | 20 2a 5c 5c 27 22 20 22 |)\\)?\\s| *\\'" "|
|00000260| 5c 0a 2a 57 68 61 74 20 | 6e 6f 74 20 74 6f 20 73 |\.*What |not to s|
|00000270| 61 76 65 20 6f 6e 20 69 | 6e 66 65 72 69 6f 72 20 |ave on i|nferior |
|00000280| 4c 69 73 70 27 73 20 69 | 6e 70 75 74 20 68 69 73 |Lisp's i|nput his|
|00000290| 74 6f 72 79 2e 0a 49 6e | 70 75 74 20 6d 61 74 63 |tory..In|put matc|
|000002a0| 68 69 6e 67 20 74 68 69 | 73 20 72 65 67 65 78 70 |hing thi|s regexp|
|000002b0| 20 69 73 20 6e 6f 74 20 | 73 61 76 65 64 20 6f 6e | is not |saved on|
|000002c0| 20 74 68 65 20 69 6e 70 | 75 74 20 68 69 73 74 6f | the inp|ut histo|
|000002d0| 72 79 20 69 6e 20 49 6e | 66 65 72 69 6f 72 20 4c |ry in In|ferior L|
|000002e0| 69 73 70 0a 6d 6f 64 65 | 2e 20 20 44 65 66 61 75 |isp.mode|. Defau|
|000002f0| 6c 74 20 69 73 20 77 68 | 69 74 65 73 70 61 63 65 |lt is wh|itespace|
|00000300| 20 66 6f 6c 6c 6f 77 65 | 64 20 62 79 20 30 20 6f | followe|d by 0 o|
|00000310| 72 20 31 20 73 69 6e 67 | 6c 65 2d 6c 65 74 74 65 |r 1 sing|le-lette|
|00000320| 72 20 63 6f 6c 6f 6e 2d | 6b 65 79 77 6f 72 64 20 |r colon-|keyword |
|00000330| 0a 28 61 73 20 69 6e 20 | 3a 61 2c 20 3a 63 2c 20 |.(as in |:a, :c, |
|00000340| 65 74 63 2e 29 22 29 0a | 28 62 79 74 65 2d 63 6f |etc.)").|(byte-co|
|00000350| 64 65 20 22 c0 c1 21 84 | 08 00 c2 11 09 84 3e 00 |de "..!.|......>.|
|00000360| c3 5c 66 21 89 11 0d a4 | 11 c6 09 c7 c8 23 88 c6 |.\f!....|.....#..|
|00000370| 09 c9 ca 23 88 c6 09 cb | cc 23 88 c6 09 cd ce 23 |...#....|.#.....#|
|00000380| 88 c6 09 cf d0 23 88 c6 | 09 d1 d2 23 88 c6 09 d3 |.....#..|...#....|
|00000390| d4 23 88 c6 0e 15 d6 d7 | 23 88 c6 0e 15 c7 c8 23 |.#......|#......#|
|000003a0| 88 c6 0e 15 d8 d7 23 88 | c6 0e 15 d9 da 23 88 c6 |......#.|.....#..|
|000003b0| 0e 15 db dc 23 88 c6 0e | 15 dd de 23 88 c6 0e 15 |....#...|...#....|
|000003c0| c9 ca 23 88 c6 0e 15 cb | cc 23 88 c6 0e 15 cd ce |..#.....|.#......|
|000003d0| 23 88 c6 0e 15 cf d0 23 | 88 c6 0e 15 d1 d2 23 88 |#......#|......#.|
|000003e0| c6 0e 15 d3 d4 23 88 df | e0 e1 5c 22 87 22 20 5b |.....#..|..\"." [|
|000003f0| 62 6f 75 6e 64 70 20 69 | 6e 66 65 72 69 6f 72 2d |boundp i|nferior-|
|00000400| 6c 69 73 70 2d 6d 6f 64 | 65 2d 6d 61 70 20 6e 69 |lisp-mod|e-map ni|
|00000410| 6c 20 63 6f 70 79 2d 6b | 65 79 6d 61 70 20 63 6f |l copy-k|eymap co|
|00000420| 6d 69 6e 74 2d 6d 6f 64 | 65 2d 6d 61 70 20 73 68 |mint-mod|e-map sh|
|00000430| 61 72 65 64 2d 6c 69 73 | 70 2d 6d 6f 64 65 2d 6d |ared-lis|p-mode-m|
|00000440| 61 70 20 64 65 66 69 6e | 65 2d 6b 65 79 20 22 18 |ap defin|e-key ".|
|00000450| 05 22 20 6c 69 73 70 2d | 65 76 61 6c 2d 6c 61 73 |." lisp-|eval-las|
|00000460| 74 2d 73 65 78 70 20 22 | 03 5c 66 22 20 6c 69 73 |t-sexp "|.\f" lis|
|00000470| 70 2d 6c 6f 61 64 2d 66 | 69 6c 65 20 22 03 0b 22 |p-load-f|ile ".."|
|00000480| 20 6c 69 73 70 2d 63 6f | 6d 70 69 6c 65 2d 66 69 | lisp-co|mpile-fi|
|00000490| 6c 65 20 22 03 01 22 20 | 6c 69 73 70 2d 73 68 6f |le ".." |lisp-sho|
|000004a0| 77 2d 61 72 67 6c 69 73 | 74 20 22 03 04 22 20 6c |w-arglis|t ".." l|
|000004b0| 69 73 70 2d 64 65 73 63 | 72 69 62 65 2d 73 79 6d |isp-desc|ribe-sym|
|000004c0| 20 22 03 06 22 20 6c 69 | 73 70 2d 73 68 6f 77 2d | ".." li|sp-show-|
|000004d0| 66 75 6e 63 74 69 6f 6e | 2d 64 6f 63 75 6d 65 6e |function|-documen|
|000004e0| 74 61 74 69 6f 6e 20 22 | 03 16 22 20 6c 69 73 70 |tation "|.." lisp|
|000004f0| 2d 73 68 6f 77 2d 76 61 | 72 69 61 62 6c 65 2d 64 |-show-va|riable-d|
|00000500| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 6c 69 73 |ocumenta|tion lis|
|00000510| 70 2d 6d 6f 64 65 2d 6d | 61 70 20 22 98 22 20 6c |p-mode-m|ap "." l|
|00000520| 69 73 70 2d 65 76 61 6c | 2d 64 65 66 75 6e 20 22 |isp-eval|-defun "|
|00000530| 03 05 22 20 22 03 12 22 | 20 6c 69 73 70 2d 65 76 |.." ".."| lisp-ev|
|00000540| 61 6c 2d 72 65 67 69 6f | 6e 20 22 03 03 22 20 6c |al-regio|n ".." l|
|00000550| 69 73 70 2d 63 6f 6d 70 | 69 6c 65 2d 64 65 66 75 |isp-comp|ile-defu|
|00000560| 6e 20 22 03 1a 22 20 73 | 77 69 74 63 68 2d 74 6f |n ".." s|witch-to|
|00000570| 2d 6c 69 73 70 20 64 65 | 66 61 6c 69 61 73 20 69 |-lisp de|falias i|
|00000580| 6e 66 65 72 69 6f 72 2d | 6c 69 73 70 2d 69 6e 73 |nferior-|lisp-ins|
|00000590| 74 61 6c 6c 2d 6c 65 74 | 74 65 72 2d 62 69 6e 64 |tall-let|ter-bind|
|000005a0| 69 6e 67 73 20 23 5b 6e | 69 6c 20 22 c0 09 c2 c3 |ings #[n|il "....|
|000005b0| 23 88 c0 09 c4 c5 23 88 | c0 09 c6 c7 23 88 c0 09 |#.....#.|....#...|
|000005c0| c8 c9 23 88 c0 09 ca cb | 23 88 c0 09 cc cd 23 88 |..#.....|#.....#.|
|000005d0| c0 09 ce cf 23 88 c0 09 | d0 d1 23 88 c0 09 d2 d3 |....#...|..#.....|
|000005e0| 23 88 c0 09 d4 d5 23 88 | c0 0e 16 ca cb 23 88 c0 |#.....#.|.....#..|
|000005f0| 0e 16 cc cd 23 88 c0 0e | 16 ce cf 23 88 c0 0e 16 |....#...|...#....|
|00000600| d0 d1 23 88 c0 0e 16 d2 | d3 23 88 c0 0e 16 d4 d5 |..#.....|.#......|
|00000610| 23 87 22 20 5b 64 65 66 | 69 6e 65 2d 6b 65 79 20 |#." [def|ine-key |
|00000620| 6c 69 73 70 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 03 |lisp-mod|e-map ".|
|00000630| 65 22 20 6c 69 73 70 2d | 65 76 61 6c 2d 64 65 66 |e" lisp-|eval-def|
|00000640| 75 6e 2d 61 6e 64 2d 67 | 6f 20 22 03 72 22 20 6c |un-and-g|o ".r" l|
|00000650| 69 73 70 2d 65 76 61 6c | 2d 72 65 67 69 6f 6e 2d |isp-eval|-region-|
|00000660| 61 6e 64 2d 67 6f 20 22 | 03 63 22 20 6c 69 73 70 |and-go "|.c" lisp|
|00000670| 2d 63 6f 6d 70 69 6c 65 | 2d 64 65 66 75 6e 2d 61 |-compile|-defun-a|
|00000680| 6e 64 2d 67 6f 20 22 03 | 7a 22 20 73 77 69 74 63 |nd-go ".|z" switc|
|00000690| 68 2d 74 6f 2d 6c 69 73 | 70 20 22 03 6c 22 20 6c |h-to-lis|p ".l" l|
|000006a0| 69 73 70 2d 6c 6f 61 64 | 2d 66 69 6c 65 20 22 03 |isp-load|-file ".|
|000006b0| 6b 22 20 6c 69 73 70 2d | 63 6f 6d 70 69 6c 65 2d |k" lisp-|compile-|
|000006c0| 66 69 6c 65 20 22 03 61 | 22 20 6c 69 73 70 2d 73 |file ".a|" lisp-s|
|000006d0| 68 6f 77 2d 61 72 67 6c | 69 73 74 20 22 03 64 22 |how-argl|ist ".d"|
|000006e0| 20 6c 69 73 70 2d 64 65 | 73 63 72 69 62 65 2d 73 | lisp-de|scribe-s|
|000006f0| 79 6d 20 22 03 66 22 20 | 6c 69 73 70 2d 73 68 6f |ym ".f" |lisp-sho|
|00000700| 77 2d 66 75 6e 63 74 69 | 6f 6e 2d 64 6f 63 75 6d |w-functi|on-docum|
|00000710| 65 6e 74 61 74 69 6f 6e | 20 22 03 76 22 20 6c 69 |entation| ".v" li|
|00000720| 73 70 2d 73 68 6f 77 2d | 76 61 72 69 61 62 6c 65 |sp-show-|variable|
|00000730| 2d 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 20 69 |-documen|tation i|
|00000740| 6e 66 65 72 69 6f 72 2d | 6c 69 73 70 2d 6d 6f 64 |nferior-|lisp-mod|
|00000750| 65 2d 6d 61 70 5d 20 34 | 5d 5d 20 35 29 0a 28 64 |e-map] 4|]] 5).(d|
|00000760| 65 66 76 61 72 20 69 6e | 66 65 72 69 6f 72 2d 6c |efvar in|ferior-l|
|00000770| 69 73 70 2d 70 72 6f 67 | 72 61 6d 20 22 6c 69 73 |isp-prog|ram "lis|
|00000780| 70 22 20 22 5c 0a 2a 50 | 72 6f 67 72 61 6d 20 6e |p" "\.*P|rogram n|
|00000790| 61 6d 65 20 66 6f 72 20 | 69 6e 76 6f 6b 69 6e 67 |ame for |invoking|
|000007a0| 20 61 6e 20 69 6e 66 65 | 72 69 6f 72 20 4c 69 73 | an infe|rior Lis|
|000007b0| 70 20 77 69 74 68 20 66 | 6f 72 20 49 6e 66 65 72 |p with f|or Infer|
|000007c0| 69 6f 72 20 4c 69 73 70 | 20 6d 6f 64 65 2e 22 29 |ior Lisp| mode.")|
|000007d0| 0a 28 64 65 66 76 61 72 | 20 69 6e 66 65 72 69 6f |.(defvar| inferio|
|000007e0| 72 2d 6c 69 73 70 2d 6c | 6f 61 64 2d 63 6f 6d 6d |r-lisp-l|oad-comm|
|000007f0| 61 6e 64 20 22 28 6c 6f | 61 64 20 5c 22 25 73 5c |and "(lo|ad \"%s\|
|00000800| 22 29 5c 6e 22 20 22 5c | 0a 2a 46 6f 72 6d 61 74 |")\n" "\|.*Format|
|00000810| 2d 73 74 72 69 6e 67 20 | 66 6f 72 20 62 75 69 6c |-string |for buil|
|00000820| 64 69 6e 67 20 61 20 4c | 69 73 70 20 65 78 70 72 |ding a L|isp expr|
|00000830| 65 73 73 69 6f 6e 20 74 | 6f 20 6c 6f 61 64 20 61 |ession t|o load a|
|00000840| 20 66 69 6c 65 2e 0a 54 | 68 69 73 20 66 6f 72 6d | file..T|his form|
|00000850| 61 74 20 73 74 72 69 6e | 67 20 73 68 6f 75 6c 64 |at strin|g should|
|00000860| 20 75 73 65 20 60 25 73 | 27 20 74 6f 20 73 75 62 | use `%s|' to sub|
|00000870| 73 74 69 74 75 74 65 20 | 61 20 66 69 6c 65 20 6e |stitute |a file n|
|00000880| 61 6d 65 0a 61 6e 64 20 | 73 68 6f 75 6c 64 20 72 |ame.and |should r|
|00000890| 65 73 75 6c 74 20 69 6e | 20 61 20 4c 69 73 70 20 |esult in| a Lisp |
|000008a0| 65 78 70 72 65 73 73 69 | 6f 6e 20 74 68 61 74 20 |expressi|on that |
|000008b0| 77 69 6c 6c 20 63 6f 6d | 6d 61 6e 64 20 74 68 65 |will com|mand the|
|000008c0| 20 69 6e 66 65 72 69 6f | 72 20 4c 69 73 70 0a 74 | inferio|r Lisp.t|
|000008d0| 6f 20 6c 6f 61 64 20 74 | 68 61 74 20 66 69 6c 65 |o load t|hat file|
|000008e0| 2e 20 20 54 68 65 20 64 | 65 66 61 75 6c 74 20 77 |. The d|efault w|
|000008f0| 6f 72 6b 73 20 61 63 63 | 65 70 74 61 62 6c 79 20 |orks acc|eptably |
|00000900| 6f 6e 20 6d 6f 73 74 20 | 4c 69 73 70 73 2e 0a 54 |on most |Lisps..T|
|00000910| 68 65 20 73 74 72 69 6e | 67 20 5c 22 28 70 72 6f |he strin|g \"(pro|
|00000920| 67 6e 20 28 6c 6f 61 64 | 20 5c 5c 5c 22 25 73 5c |gn (load| \\\"%s\|
|00000930| 5c 5c 22 20 3a 76 65 72 | 62 6f 73 65 20 6e 69 6c |\\" :ver|bose nil|
|00000940| 20 3a 70 72 69 6e 74 20 | 74 29 20 28 76 61 6c 75 | :print |t) (valu|
|00000950| 65 73 29 29 5c 5c 0a 5c | 22 0a 70 72 6f 64 75 63 |es))\\.\|".produc|
|00000960| 65 73 20 63 6f 73 6d 65 | 74 69 63 61 6c 6c 79 20 |es cosme|tically |
|00000970| 73 75 70 65 72 69 6f 72 | 20 6f 75 74 70 75 74 20 |superior| output |
|00000980| 66 6f 72 20 74 68 69 73 | 20 61 70 70 6c 69 63 61 |for this| applica|
|00000990| 74 69 6f 6e 2c 0a 62 75 | 74 20 69 74 20 77 6f 72 |tion,.bu|t it wor|
|000009a0| 6b 73 20 6f 6e 6c 79 20 | 69 6e 20 43 6f 6d 6d 6f |ks only |in Commo|
|000009b0| 6e 20 4c 69 73 70 2e 22 | 29 0a 28 64 65 66 76 61 |n Lisp."|).(defva|
|000009c0| 72 20 69 6e 66 65 72 69 | 6f 72 2d 6c 69 73 70 2d |r inferi|or-lisp-|
|000009d0| 70 72 6f 6d 70 74 20 22 | 5e 5b 5e 3e 20 5c 6e 5d |prompt "|^[^> \n]|
|000009e0| 2a 3e 2b 3a 3f 20 2a 22 | 20 22 5c 0a 52 65 67 65 |*>+:? *"| "\.Rege|
|000009f0| 78 70 20 74 6f 20 72 65 | 63 6f 67 6e 69 73 65 20 |xp to re|cognise |
|00000a00| 70 72 6f 6d 70 74 73 20 | 69 6e 20 74 68 65 20 49 |prompts |in the I|
|00000a10| 6e 66 65 72 69 6f 72 20 | 4c 69 73 70 20 6d 6f 64 |nferior |Lisp mod|
|00000a20| 65 2e 0a 44 65 66 61 75 | 6c 74 73 20 74 6f 20 5c |e..Defau|lts to \|
|00000a30| 22 5e 5b 5e 3e 20 5c 5c | 6e 5d 2a 3e 2b 3a 3f 20 |"^[^> \\|n]*>+:? |
|00000a40| 2a 5c 22 2c 20 77 68 69 | 63 68 20 77 6f 72 6b 73 |*\", whi|ch works|
|00000a50| 20 70 72 65 74 74 79 20 | 67 6f 6f 64 20 66 6f 72 | pretty |good for|
|00000a60| 20 4c 75 63 69 64 2c 20 | 6b 63 6c 2c 0a 61 6e 64 | Lucid, |kcl,.and|
|00000a70| 20 66 72 61 6e 7a 2e 20 | 20 54 68 69 73 20 76 61 | franz. | This va|
|00000a80| 72 69 61 62 6c 65 20 69 | 73 20 75 73 65 64 20 74 |riable i|s used t|
|00000a90| 6f 20 69 6e 69 74 69 61 | 6c 69 7a 65 20 60 63 6f |o initia|lize `co|
|00000aa0| 6d 69 6e 74 2d 70 72 6f | 6d 70 74 2d 72 65 67 65 |mint-pro|mpt-rege|
|00000ab0| 78 70 27 20 69 6e 20 74 | 68 65 20 0a 49 6e 66 65 |xp' in t|he .Infe|
|00000ac0| 72 69 6f 72 20 4c 69 73 | 70 20 62 75 66 66 65 72 |rior Lis|p buffer|
|00000ad0| 2e 0a 0a 4d 6f 72 65 20 | 70 72 65 63 69 73 65 20 |...More |precise |
|00000ae0| 63 68 6f 69 63 65 73 3a | 0a 4c 75 63 69 64 20 43 |choices:|.Lucid C|
|00000af0| 6f 6d 6d 6f 6e 20 4c 69 | 73 70 3a 20 5c 22 5e 5c |ommon Li|sp: \"^\|
|00000b00| 5c 28 3e 5c 5c 7c 5c 5c | 28 2d 3e 5c 5c 29 2b 5c |\(>\\|\\|(->\\)+\|
|00000b10| 5c 29 20 2a 5c 22 0a 66 | 72 61 6e 7a 3a 20 5c 22 |\) *\".f|ranz: \"|
|00000b20| 5e 5c 5c 28 2d 3e 5c 5c | 7c 3c 5b 30 2d 39 5d 2a |^\\(->\\||<[0-9]*|
|00000b30| 3e 3a 5c 5c 29 20 2a 5c | 22 0a 6b 63 6c 3a 20 5c |>:\\) *\|".kcl: \|
|00000b40| 22 5e 3e 2b 20 2a 5c 22 | 0a 0a 54 68 69 73 20 69 |"^>+ *\"|..This i|
|00000b50| 73 20 61 20 66 69 6e 65 | 20 74 68 69 6e 67 20 74 |s a fine| thing t|
|00000b60| 6f 20 73 65 74 20 69 6e | 20 79 6f 75 72 20 2e 65 |o set in| your .e|
|00000b70| 6d 61 63 73 20 66 69 6c | 65 2e 22 29 0a 28 64 65 |macs fil|e.").(de|
|00000b80| 66 76 61 72 20 69 6e 66 | 65 72 69 6f 72 2d 6c 69 |fvar inf|erior-li|
|00000b90| 73 70 2d 62 75 66 66 65 | 72 20 6e 69 6c 20 22 5c |sp-buffe|r nil "\|
|00000ba0| 0a 2a 54 68 65 20 63 75 | 72 72 65 6e 74 20 69 6e |.*The cu|rrent in|
|00000bb0| 66 65 72 69 6f 72 2d 6c | 69 73 70 20 70 72 6f 63 |ferior-l|isp proc|
|00000bc0| 65 73 73 20 62 75 66 66 | 65 72 2e 0a 0a 4d 55 4c |ess buff|er...MUL|
|00000bd0| 54 49 50 4c 45 20 50 52 | 4f 43 45 53 53 20 53 55 |TIPLE PR|OCESS SU|
|00000be0| 50 50 4f 52 54 0a 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |PPORT.==|========|
|00000bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c30| 3d 0a 54 6f 20 72 75 6e | 20 6d 75 6c 74 69 70 6c |=.To run| multipl|
|00000c40| 65 20 4c 69 73 70 20 70 | 72 6f 63 65 73 73 65 73 |e Lisp p|rocesses|
|00000c50| 2c 20 79 6f 75 20 73 74 | 61 72 74 20 74 68 65 20 |, you st|art the |
|00000c60| 66 69 72 73 74 20 75 70 | 0a 77 69 74 68 20 5c 5c |first up|.with \\|
|00000c70| 5b 69 6e 66 65 72 69 6f | 72 2d 6c 69 73 70 5d 2e |[inferio|r-lisp].|
|00000c80| 20 20 49 74 20 77 69 6c | 6c 20 62 65 20 69 6e 20 | It wil|l be in |
|00000c90| 61 20 62 75 66 66 65 72 | 20 6e 61 6d 65 64 20 60 |a buffer| named `|
|00000ca0| 2a 69 6e 66 65 72 69 6f | 72 2d 6c 69 73 70 2a 27 |*inferio|r-lisp*'|
|00000cb0| 2e 0a 52 65 6e 61 6d 65 | 20 74 68 69 73 20 62 75 |..Rename| this bu|
|00000cc0| 66 66 65 72 20 77 69 74 | 68 20 5c 5c 5b 72 65 6e |ffer wit|h \\[ren|
|00000cd0| 61 6d 65 2d 62 75 66 66 | 65 72 5d 2e 20 20 59 6f |ame-buff|er]. Yo|
|00000ce0| 75 20 6d 61 79 20 6e 6f | 77 20 73 74 61 72 74 20 |u may no|w start |
|00000cf0| 75 70 20 61 20 6e 65 77 | 0a 70 72 6f 63 65 73 73 |up a new|.process|
|00000d00| 20 77 69 74 68 20 61 6e | 6f 74 68 65 72 20 5c 5c | with an|other \\|
|00000d10| 5b 69 6e 66 65 72 69 6f | 72 2d 6c 69 73 70 5d 2e |[inferio|r-lisp].|
|00000d20| 20 20 49 74 20 77 69 6c | 6c 20 62 65 20 69 6e 20 | It wil|l be in |
|00000d30| 61 20 6e 65 77 20 62 75 | 66 66 65 72 2c 0a 6e 61 |a new bu|ffer,.na|
|00000d40| 6d 65 64 20 60 2a 69 6e | 66 65 72 69 6f 72 2d 6c |med `*in|ferior-l|
|00000d50| 69 73 70 2a 27 2e 20 20 | 59 6f 75 20 63 61 6e 20 |isp*'. |You can |
|00000d60| 73 77 69 74 63 68 20 62 | 65 74 77 65 65 6e 20 74 |switch b|etween t|
|00000d70| 68 65 20 64 69 66 66 65 | 72 65 6e 74 20 70 72 6f |he diffe|rent pro|
|00000d80| 63 65 73 73 0a 62 75 66 | 66 65 72 73 20 77 69 74 |cess.buf|fers wit|
|00000d90| 68 20 5c 5c 5b 73 77 69 | 74 63 68 2d 74 6f 2d 62 |h \\[swi|tch-to-b|
|00000da0| 75 66 66 65 72 5d 2e 0a | 0a 43 6f 6d 6d 61 6e 64 |uffer]..|.Command|
|00000db0| 73 20 74 68 61 74 20 73 | 65 6e 64 20 74 65 78 74 |s that s|end text|
|00000dc0| 20 66 72 6f 6d 20 73 6f | 75 72 63 65 20 62 75 66 | from so|urce buf|
|00000dd0| 66 65 72 73 20 74 6f 20 | 4c 69 73 70 20 70 72 6f |fers to |Lisp pro|
|00000de0| 63 65 73 73 65 73 20 2d | 2d 0a 6c 69 6b 65 20 60 |cesses -|-.like `|
|00000df0| 6c 69 73 70 2d 65 76 61 | 6c 2d 64 65 66 75 6e 27 |lisp-eva|l-defun'|
|00000e00| 20 6f 72 20 60 6c 69 73 | 70 2d 73 68 6f 77 2d 61 | or `lis|p-show-a|
|00000e10| 72 67 6c 69 73 74 27 20 | 2d 2d 20 68 61 76 65 20 |rglist' |-- have |
|00000e20| 74 6f 20 63 68 6f 6f 73 | 65 20 61 20 70 72 6f 63 |to choos|e a proc|
|00000e30| 65 73 73 0a 74 6f 20 73 | 65 6e 64 20 74 6f 2c 20 |ess.to s|end to, |
|00000e40| 77 68 65 6e 20 79 6f 75 | 20 68 61 76 65 20 6d 6f |when you| have mo|
|00000e50| 72 65 20 74 68 61 6e 20 | 6f 6e 65 20 4c 69 73 70 |re than |one Lisp|
|00000e60| 20 70 72 6f 63 65 73 73 | 20 61 72 6f 75 6e 64 2e | process| around.|
|00000e70| 20 20 54 68 69 73 0a 69 | 73 20 64 65 74 65 72 6d | This.i|s determ|
|00000e80| 69 6e 65 64 20 62 79 20 | 74 68 65 20 67 6c 6f 62 |ined by |the glob|
|00000e90| 61 6c 20 76 61 72 69 61 | 62 6c 65 20 60 69 6e 66 |al varia|ble `inf|
|00000ea0| 65 72 69 6f 72 2d 6c 69 | 73 70 2d 62 75 66 66 65 |erior-li|sp-buffe|
|00000eb0| 72 27 2e 20 20 53 75 70 | 70 6f 73 65 20 79 6f 75 |r'. Sup|pose you|
|00000ec0| 0a 68 61 76 65 20 74 68 | 72 65 65 20 69 6e 66 65 |.have th|ree infe|
|00000ed0| 72 69 6f 72 20 4c 69 73 | 70 73 20 72 75 6e 6e 69 |rior Lis|ps runni|
|00000ee0| 6e 67 3a 0a 20 20 20 20 | 42 75 66 66 65 72 20 20 |ng:. |Buffer |
|00000ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 50 72 6f 63 | | Proc|
|00000f00| 65 73 73 0a 20 20 20 20 | 66 6f 6f 20 20 20 20 20 |ess. |foo |
|00000f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 69 6e 66 65 | | infe|
|00000f20| 72 69 6f 72 2d 6c 69 73 | 70 0a 20 20 20 20 62 61 |rior-lis|p. ba|
|00000f30| 72 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r | |
|00000f40| 20 20 69 6e 66 65 72 69 | 6f 72 2d 6c 69 73 70 3c | inferi|or-lisp<|
|00000f50| 32 3e 0a 20 20 20 20 2a | 69 6e 66 65 72 69 6f 72 |2>. *|inferior|
|00000f60| 2d 6c 69 73 70 2a 20 20 | 20 20 20 69 6e 66 65 72 |-lisp* | infer|
|00000f70| 69 6f 72 2d 6c 69 73 70 | 3c 33 3e 0a 49 66 20 79 |ior-lisp|<3>.If y|
|00000f80| 6f 75 20 64 6f 20 61 20 | 5c 5c 5b 6c 69 73 70 2d |ou do a |\\[lisp-|
|00000f90| 65 76 61 6c 2d 64 65 66 | 75 6e 5d 20 63 6f 6d 6d |eval-def|un] comm|
|00000fa0| 61 6e 64 20 6f 6e 20 73 | 6f 6d 65 20 4c 69 73 70 |and on s|ome Lisp|
|00000fb0| 20 73 6f 75 72 63 65 20 | 63 6f 64 65 2c 20 0a 77 | source |code, .w|
|00000fc0| 68 61 74 20 70 72 6f 63 | 65 73 73 20 64 6f 20 79 |hat proc|ess do y|
|00000fd0| 6f 75 20 73 65 6e 64 20 | 69 74 20 74 6f 3f 0a 0a |ou send |it to?..|
|00000fe0| 2d 20 49 66 20 79 6f 75 | 27 72 65 20 69 6e 20 61 |- If you|'re in a|
|00000ff0| 20 70 72 6f 63 65 73 73 | 20 62 75 66 66 65 72 20 | process| buffer |
|00001000| 28 66 6f 6f 2c 20 62 61 | 72 2c 20 6f 72 20 2a 69 |(foo, ba|r, or *i|
|00001010| 6e 66 65 72 69 6f 72 2d | 6c 69 73 70 2a 29 2c 20 |nferior-|lisp*), |
|00001020| 0a 20 20 79 6f 75 20 73 | 65 6e 64 20 69 74 20 74 |. you s|end it t|
|00001030| 6f 20 74 68 61 74 20 70 | 72 6f 63 65 73 73 2e 0a |o that p|rocess..|
|00001040| 2d 20 49 66 20 79 6f 75 | 27 72 65 20 69 6e 20 73 |- If you|'re in s|
|00001050| 6f 6d 65 20 6f 74 68 65 | 72 20 62 75 66 66 65 72 |ome othe|r buffer|
|00001060| 20 28 65 2e 67 2e 2c 20 | 61 20 73 6f 75 72 63 65 | (e.g., |a source|
|00001070| 20 66 69 6c 65 29 2c 20 | 79 6f 75 0a 20 20 73 65 | file), |you. se|
|00001080| 6e 64 20 69 74 20 74 6f | 20 74 68 65 20 70 72 6f |nd it to| the pro|
|00001090| 63 65 73 73 20 61 74 74 | 61 63 68 65 64 20 74 6f |cess att|ached to|
|000010a0| 20 62 75 66 66 65 72 20 | 60 69 6e 66 65 72 69 6f | buffer |`inferio|
|000010b0| 72 2d 6c 69 73 70 2d 62 | 75 66 66 65 72 27 2e 0a |r-lisp-b|uffer'..|
|000010c0| 54 68 69 73 20 70 72 6f | 63 65 73 73 20 73 65 6c |This pro|cess sel|
|000010d0| 65 63 74 69 6f 6e 20 69 | 73 20 70 65 72 66 6f 72 |ection i|s perfor|
|000010e0| 6d 65 64 20 62 79 20 66 | 75 6e 63 74 69 6f 6e 20 |med by f|unction |
|000010f0| 60 69 6e 66 65 72 69 6f | 72 2d 6c 69 73 70 2d 70 |`inferio|r-lisp-p|
|00001100| 72 6f 63 27 2e 0a 0a 57 | 68 65 6e 65 76 65 72 20 |roc'...W|henever |
|00001110| 5c 5c 5b 69 6e 66 65 72 | 69 6f 72 2d 6c 69 73 70 |\\[infer|ior-lisp|
|00001120| 5d 20 66 69 72 65 73 20 | 75 70 20 61 20 6e 65 77 |] fires |up a new|
|00001130| 20 70 72 6f 63 65 73 73 | 2c 20 69 74 20 72 65 73 | process|, it res|
|00001140| 65 74 73 0a 60 69 6e 66 | 65 72 69 6f 72 2d 6c 69 |ets.`inf|erior-li|
|00001150| 73 70 2d 62 75 66 66 65 | 72 27 20 74 6f 20 62 65 |sp-buffe|r' to be|
|00001160| 20 74 68 65 20 6e 65 77 | 20 70 72 6f 63 65 73 73 | the new| process|
|00001170| 27 73 20 62 75 66 66 65 | 72 2e 20 20 49 66 20 79 |'s buffe|r. If y|
|00001180| 6f 75 20 6f 6e 6c 79 20 | 72 75 6e 0a 6f 6e 65 20 |ou only |run.one |
|00001190| 70 72 6f 63 65 73 73 2c | 20 74 68 69 73 20 64 6f |process,| this do|
|000011a0| 65 73 20 74 68 65 20 72 | 69 67 68 74 20 74 68 69 |es the r|ight thi|
|000011b0| 6e 67 2e 20 20 49 66 20 | 79 6f 75 20 72 75 6e 20 |ng. If |you run |
|000011c0| 6d 75 6c 74 69 70 6c 65 | 0a 70 72 6f 63 65 73 73 |multiple|.process|
|000011d0| 65 73 2c 20 79 6f 75 20 | 63 61 6e 20 63 68 61 6e |es, you |can chan|
|000011e0| 67 65 20 60 69 6e 66 65 | 72 69 6f 72 2d 6c 69 73 |ge `infe|rior-lis|
|000011f0| 70 2d 62 75 66 66 65 72 | 27 20 74 6f 20 61 6e 6f |p-buffer|' to ano|
|00001200| 74 68 65 72 20 70 72 6f | 63 65 73 73 0a 62 75 66 |ther pro|cess.buf|
|00001210| 66 65 72 20 77 69 74 68 | 20 5c 5c 5b 73 65 74 2d |fer with| \\[set-|
|00001220| 76 61 72 69 61 62 6c 65 | 5d 2e 22 29 0a 28 64 65 |variable|].").(de|
|00001230| 66 76 61 72 20 69 6e 66 | 65 72 69 6f 72 2d 6c 69 |fvar inf|erior-li|
|00001240| 73 70 2d 6d 6f 64 65 2d | 68 6f 6f 6b 20 6e 69 6c |sp-mode-|hook nil|
|00001250| 20 22 5c 0a 2a 48 6f 6f | 6b 20 66 6f 72 20 63 75 | "\.*Hoo|k for cu|
|00001260| 73 74 6f 6d 69 73 69 6e | 67 20 49 6e 66 65 72 69 |stomisin|g Inferi|
|00001270| 6f 72 20 4c 69 73 70 20 | 6d 6f 64 65 2e 22 29 0a |or Lisp |mode.").|
|00001280| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6e 66 65 72 |(defalia|s 'infer|
|00001290| 69 6f 72 2d 6c 69 73 70 | 2d 6d 6f 64 65 20 23 5b |ior-lisp|-mode #[|
|000012a0| 6e 69 6c 20 22 c0 20 88 | 09 12 c3 14 c5 16 06 c7 |nil ". .|........|
|000012b0| 16 08 c9 ca 21 88 cb 0e | 5c 66 21 88 cd 16 0e cf |....!...|\f!.....|
|000012c0| 16 10 d1 16 12 d3 d4 21 | 87 22 20 5b 63 6f 6d 69 |.......!|." [comi|
|000012d0| 6e 74 2d 6d 6f 64 65 20 | 69 6e 66 65 72 69 6f 72 |nt-mode |inferior|
|000012e0| 2d 6c 69 73 70 2d 70 72 | 6f 6d 70 74 20 63 6f 6d |-lisp-pr|ompt com|
|000012f0| 69 6e 74 2d 70 72 6f 6d | 70 74 2d 72 65 67 65 78 |int-prom|pt-regex|
|00001300| 70 20 69 6e 66 65 72 69 | 6f 72 2d 6c 69 73 70 2d |p inferi|or-lisp-|
|00001310| 6d 6f 64 65 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |mode maj|or-mode |
|00001320| 22 49 6e 66 65 72 69 6f | 72 20 4c 69 73 70 22 20 |"Inferio|r Lisp" |
|00001330| 6d 6f 64 65 2d 6e 61 6d | 65 20 28 22 3a 25 73 22 |mode-nam|e (":%s"|
|00001340| 29 20 6d 6f 64 65 2d 6c | 69 6e 65 2d 70 72 6f 63 |) mode-l|ine-proc|
|00001350| 65 73 73 20 6c 69 73 70 | 2d 6d 6f 64 65 2d 76 61 |ess lisp|-mode-va|
|00001360| 72 69 61 62 6c 65 73 20 | 74 20 75 73 65 2d 6c 6f |riables |t use-lo|
|00001370| 63 61 6c 2d 6d 61 70 20 | 69 6e 66 65 72 69 6f 72 |cal-map |inferior|
|00001380| 2d 6c 69 73 70 2d 6d 6f | 64 65 2d 6d 61 70 20 6c |-lisp-mo|de-map l|
|00001390| 69 73 70 2d 67 65 74 2d | 6f 6c 64 2d 69 6e 70 75 |isp-get-|old-inpu|
|000013a0| 74 20 63 6f 6d 69 6e 74 | 2d 67 65 74 2d 6f 6c 64 |t comint|-get-old|
|000013b0| 2d 69 6e 70 75 74 20 6c | 69 73 70 2d 69 6e 70 75 |-input l|isp-inpu|
|000013c0| 74 2d 66 69 6c 74 65 72 | 20 63 6f 6d 69 6e 74 2d |t-filter| comint-|
|000013d0| 69 6e 70 75 74 2d 66 69 | 6c 74 65 72 20 69 67 6e |input-fi|lter ign|
|000013e0| 6f 72 65 20 63 6f 6d 69 | 6e 74 2d 69 6e 70 75 74 |ore comi|nt-input|
|000013f0| 2d 73 65 6e 74 69 6e 65 | 6c 20 72 75 6e 2d 68 6f |-sentine|l run-ho|
|00001400| 6f 6b 73 20 69 6e 66 65 | 72 69 6f 72 2d 6c 69 73 |oks infe|rior-lis|
|00001410| 70 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 5d 20 32 20 22 |p-mode-h|ook] 2 "|
|00001420| 5c 0a 4d 61 6a 6f 72 20 | 6d 6f 64 65 20 66 6f 72 |\.Major |mode for|
|00001430| 20 69 6e 74 65 72 61 63 | 74 69 6e 67 20 77 69 74 | interac|ting wit|
|00001440| 68 20 61 6e 20 69 6e 66 | 65 72 69 6f 72 20 4c 69 |h an inf|erior Li|
|00001450| 73 70 20 70 72 6f 63 65 | 73 73 2e 20 20 0a 52 75 |sp proce|ss. .Ru|
|00001460| 6e 73 20 61 20 4c 69 73 | 70 20 69 6e 74 65 72 70 |ns a Lis|p interp|
|00001470| 72 65 74 65 72 20 61 73 | 20 61 20 73 75 62 70 72 |reter as| a subpr|
|00001480| 6f 63 65 73 73 20 6f 66 | 20 45 6d 61 63 73 2c 20 |ocess of| Emacs, |
|00001490| 77 69 74 68 20 4c 69 73 | 70 20 49 2f 4f 20 74 68 |with Lis|p I/O th|
|000014a0| 72 6f 75 67 68 20 61 6e | 0a 45 6d 61 63 73 20 62 |rough an|.Emacs b|
|000014b0| 75 66 66 65 72 2e 20 20 | 56 61 72 69 61 62 6c 65 |uffer. |Variable|
|000014c0| 20 60 69 6e 66 65 72 69 | 6f 72 2d 6c 69 73 70 2d | `inferi|or-lisp-|
|000014d0| 70 72 6f 67 72 61 6d 27 | 20 63 6f 6e 74 72 6f 6c |program'| control|
|000014e0| 73 20 77 68 69 63 68 20 | 4c 69 73 70 20 69 6e 74 |s which |Lisp int|
|000014f0| 65 72 70 72 65 74 65 72 | 0a 69 73 20 72 75 6e 2e |erpreter|.is run.|
|00001500| 20 20 56 61 72 69 61 62 | 6c 65 73 20 60 69 6e 66 | Variab|les `inf|
|00001510| 65 72 69 6f 72 2d 6c 69 | 73 70 2d 70 72 6f 6d 70 |erior-li|sp-promp|
|00001520| 74 27 2c 20 60 69 6e 66 | 65 72 69 6f 72 2d 6c 69 |t', `inf|erior-li|
|00001530| 73 70 2d 66 69 6c 74 65 | 72 2d 72 65 67 65 78 70 |sp-filte|r-regexp|
|00001540| 27 20 61 6e 64 0a 60 69 | 6e 66 65 72 69 6f 72 2d |' and.`i|nferior-|
|00001550| 6c 69 73 70 2d 6c 6f 61 | 64 2d 63 6f 6d 6d 61 6e |lisp-loa|d-comman|
|00001560| 64 27 20 63 61 6e 20 63 | 75 73 74 6f 6d 69 7a 65 |d' can c|ustomize|
|00001570| 20 74 68 69 73 20 6d 6f | 64 65 20 66 6f 72 20 64 | this mo|de for d|
|00001580| 69 66 66 65 72 65 6e 74 | 20 4c 69 73 70 0a 69 6e |ifferent| Lisp.in|
|00001590| 74 65 72 70 72 65 74 65 | 72 73 2e 0a 0a 46 6f 72 |terprete|rs...For|
|000015a0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 6f 6e 20 | informa|tion on |
|000015b0| 72 75 6e 6e 69 6e 67 20 | 6d 75 6c 74 69 70 6c 65 |running |multiple|
|000015c0| 20 70 72 6f 63 65 73 73 | 65 73 20 69 6e 20 6d 75 | process|es in mu|
|000015d0| 6c 74 69 70 6c 65 20 62 | 75 66 66 65 72 73 2c 20 |ltiple b|uffers, |
|000015e0| 73 65 65 0a 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |see.docu|mentatio|
|000015f0| 6e 20 66 6f 72 20 76 61 | 72 69 61 62 6c 65 20 60 |n for va|riable `|
|00001600| 69 6e 66 65 72 69 6f 72 | 2d 6c 69 73 70 2d 62 75 |inferior|-lisp-bu|
|00001610| 66 66 65 72 27 2e 0a 0a | 5c 5c 7b 69 6e 66 65 72 |ffer'...|\\{infer|
|00001620| 69 6f 72 2d 6c 69 73 70 | 2d 6d 6f 64 65 2d 6d 61 |ior-lisp|-mode-ma|
|00001630| 70 7d 0a 0a 43 75 73 74 | 6f 6d 69 73 61 74 69 6f |p}..Cust|omisatio|
|00001640| 6e 3a 20 45 6e 74 72 79 | 20 74 6f 20 74 68 69 73 |n: Entry| to this|
|00001650| 20 6d 6f 64 65 20 72 75 | 6e 73 20 74 68 65 20 68 | mode ru|ns the h|
|00001660| 6f 6f 6b 73 20 6f 6e 20 | 60 63 6f 6d 69 6e 74 2d |ooks on |`comint-|
|00001670| 6d 6f 64 65 2d 68 6f 6f | 6b 27 20 61 6e 64 0a 60 |mode-hoo|k' and.`|
|00001680| 69 6e 66 65 72 69 6f 72 | 2d 6c 69 73 70 2d 6d 6f |inferior|-lisp-mo|
|00001690| 64 65 2d 68 6f 6f 6b 27 | 20 28 69 6e 20 74 68 61 |de-hook'| (in tha|
|000016a0| 74 20 6f 72 64 65 72 29 | 2e 0a 0a 59 6f 75 20 63 |t order)|...You c|
|000016b0| 61 6e 20 73 65 6e 64 20 | 74 65 78 74 20 74 6f 20 |an send |text to |
|000016c0| 74 68 65 20 69 6e 66 65 | 72 69 6f 72 20 4c 69 73 |the infe|rior Lis|
|000016d0| 70 20 70 72 6f 63 65 73 | 73 20 66 72 6f 6d 20 6f |p proces|s from o|
|000016e0| 74 68 65 72 20 62 75 66 | 66 65 72 73 20 63 6f 6e |ther buf|fers con|
|000016f0| 74 61 69 6e 69 6e 67 0a | 4c 69 73 70 20 73 6f 75 |taining.|Lisp sou|
|00001700| 72 63 65 2e 20 20 0a 20 | 20 20 20 73 77 69 74 63 |rce. . | switc|
|00001710| 68 2d 74 6f 2d 6c 69 73 | 70 20 73 77 69 74 63 68 |h-to-lis|p switch|
|00001720| 65 73 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |es the c|urrent b|
|00001730| 75 66 66 65 72 20 74 6f | 20 74 68 65 20 4c 69 73 |uffer to| the Lis|
|00001740| 70 20 70 72 6f 63 65 73 | 73 20 62 75 66 66 65 72 |p proces|s buffer|
|00001750| 2e 0a 20 20 20 20 6c 69 | 73 70 2d 65 76 61 6c 2d |.. li|sp-eval-|
|00001760| 64 65 66 75 6e 20 73 65 | 6e 64 73 20 74 68 65 20 |defun se|nds the |
|00001770| 63 75 72 72 65 6e 74 20 | 64 65 66 75 6e 20 74 6f |current |defun to|
|00001780| 20 74 68 65 20 4c 69 73 | 70 20 70 72 6f 63 65 73 | the Lis|p proces|
|00001790| 73 2e 0a 20 20 20 20 6c | 69 73 70 2d 63 6f 6d 70 |s.. l|isp-comp|
|000017a0| 69 6c 65 2d 64 65 66 75 | 6e 20 63 6f 6d 70 69 6c |ile-defu|n compil|
|000017b0| 65 73 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 64 |es the c|urrent d|
|000017c0| 65 66 75 6e 2e 0a 20 20 | 20 20 6c 69 73 70 2d 65 |efun.. | lisp-e|
|000017d0| 76 61 6c 2d 72 65 67 69 | 6f 6e 20 73 65 6e 64 73 |val-regi|on sends|
|000017e0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 72 65 67 | the cur|rent reg|
|000017f0| 69 6f 6e 20 74 6f 20 74 | 68 65 20 4c 69 73 70 20 |ion to t|he Lisp |
|00001800| 70 72 6f 63 65 73 73 2e | 0a 20 20 20 20 6c 69 73 |process.|. lis|
|00001810| 70 2d 63 6f 6d 70 69 6c | 65 2d 72 65 67 69 6f 6e |p-compil|e-region|
|00001820| 20 63 6f 6d 70 69 6c 65 | 73 20 74 68 65 20 63 75 | compile|s the cu|
|00001830| 72 72 65 6e 74 20 72 65 | 67 69 6f 6e 2e 0a 0a 20 |rrent re|gion... |
|00001840| 20 20 20 50 72 65 66 69 | 78 69 6e 67 20 74 68 65 | Prefi|xing the|
|00001850| 20 6c 69 73 70 2d 65 76 | 61 6c 2f 63 6f 6d 70 69 | lisp-ev|al/compi|
|00001860| 6c 65 2d 64 65 66 75 6e | 2f 72 65 67 69 6f 6e 20 |le-defun|/region |
|00001870| 63 6f 6d 6d 61 6e 64 73 | 20 77 69 74 68 0a 20 20 |commands| with. |
|00001880| 20 20 61 20 5c 5c 5b 75 | 6e 69 76 65 72 73 61 6c | a \\[u|niversal|
|00001890| 2d 61 72 67 75 6d 65 6e | 74 5d 20 63 61 75 73 65 |-argumen|t] cause|
|000018a0| 73 20 61 20 73 77 69 74 | 63 68 20 74 6f 20 74 68 |s a swit|ch to th|
|000018b0| 65 20 4c 69 73 70 20 70 | 72 6f 63 65 73 73 20 62 |e Lisp p|rocess b|
|000018c0| 75 66 66 65 72 20 61 66 | 74 65 72 20 73 65 6e 64 |uffer af|ter send|
|000018d0| 69 6e 67 0a 20 20 20 20 | 74 68 65 20 74 65 78 74 |ing. |the text|
|000018e0| 2e 0a 0a 43 6f 6d 6d 61 | 6e 64 73 3a 0a 52 65 74 |...Comma|nds:.Ret|
|000018f0| 75 72 6e 20 61 66 74 65 | 72 20 74 68 65 20 65 6e |urn afte|r the en|
|00001900| 64 20 6f 66 20 74 68 65 | 20 70 72 6f 63 65 73 73 |d of the| process|
|00001910| 27 20 6f 75 74 70 75 74 | 20 73 65 6e 64 73 20 74 |' output| sends t|
|00001920| 68 65 20 74 65 78 74 20 | 66 72 6f 6d 20 74 68 65 |he text |from the|
|00001930| 20 0a 20 20 20 20 65 6e | 64 20 6f 66 20 70 72 6f | . en|d of pro|
|00001940| 63 65 73 73 20 74 6f 20 | 70 6f 69 6e 74 2e 0a 52 |cess to |point..R|
|00001950| 65 74 75 72 6e 20 62 65 | 66 6f 72 65 20 74 68 65 |eturn be|fore the|
|00001960| 20 65 6e 64 20 6f 66 20 | 74 68 65 20 70 72 6f 63 | end of |the proc|
|00001970| 65 73 73 27 20 6f 75 74 | 70 75 74 20 63 6f 70 69 |ess' out|put copi|
|00001980| 65 73 20 74 68 65 20 73 | 65 78 70 20 65 6e 64 69 |es the s|exp endi|
|00001990| 6e 67 20 61 74 20 70 6f | 69 6e 74 0a 20 20 20 20 |ng at po|int. |
|000019a0| 74 6f 20 74 68 65 20 65 | 6e 64 20 6f 66 20 74 68 |to the e|nd of th|
|000019b0| 65 20 70 72 6f 63 65 73 | 73 27 20 6f 75 74 70 75 |e proces|s' outpu|
|000019c0| 74 2c 20 61 6e 64 20 73 | 65 6e 64 73 20 69 74 2e |t, and s|ends it.|
|000019d0| 0a 44 65 6c 65 74 65 20 | 63 6f 6e 76 65 72 74 73 |.Delete |converts|
|000019e0| 20 74 61 62 73 20 74 6f | 20 73 70 61 63 65 73 20 | tabs to| spaces |
|000019f0| 61 73 20 69 74 20 6d 6f | 76 65 73 20 62 61 63 6b |as it mo|ves back|
|00001a00| 2e 0a 54 61 62 20 69 6e | 64 65 6e 74 73 20 66 6f |..Tab in|dents fo|
|00001a10| 72 20 4c 69 73 70 3b 20 | 77 69 74 68 20 61 72 67 |r Lisp; |with arg|
|00001a20| 75 6d 65 6e 74 2c 20 73 | 68 69 66 74 73 20 72 65 |ument, s|hifts re|
|00001a30| 73 74 0a 20 20 20 20 6f | 66 20 65 78 70 72 65 73 |st. o|f expres|
|00001a40| 73 69 6f 6e 20 72 69 67 | 69 64 6c 79 20 77 69 74 |sion rig|idly wit|
|00001a50| 68 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 69 |h the cu|rrent li|
|00001a60| 6e 65 2e 0a 43 2d 4d 2d | 71 20 64 6f 65 73 20 54 |ne..C-M-|q does T|
|00001a70| 61 62 20 6f 6e 20 65 61 | 63 68 20 6c 69 6e 65 20 |ab on ea|ch line |
|00001a80| 73 74 61 72 74 69 6e 67 | 20 77 69 74 68 69 6e 20 |starting| within |
|00001a90| 66 6f 6c 6c 6f 77 69 6e | 67 20 65 78 70 72 65 73 |followin|g expres|
|00001aa0| 73 69 6f 6e 2e 0a 50 61 | 72 61 67 72 61 70 68 73 |sion..Pa|ragraphs|
|00001ab0| 20 61 72 65 20 73 65 70 | 61 72 61 74 65 64 20 6f | are sep|arated o|
|00001ac0| 6e 6c 79 20 62 79 20 62 | 6c 61 6e 6b 20 6c 69 6e |nly by b|lank lin|
|00001ad0| 65 73 2e 20 20 53 65 6d | 69 63 6f 6c 6f 6e 73 20 |es. Sem|icolons |
|00001ae0| 73 74 61 72 74 20 63 6f | 6d 6d 65 6e 74 73 2e 0a |start co|mments..|
|00001af0| 49 66 20 79 6f 75 20 61 | 63 63 69 64 65 6e 74 61 |If you a|ccidenta|
|00001b00| 6c 6c 79 20 73 75 73 70 | 65 6e 64 20 79 6f 75 72 |lly susp|end your|
|00001b10| 20 70 72 6f 63 65 73 73 | 2c 20 75 73 65 20 5c 5c | process|, use \\|
|00001b20| 5b 63 6f 6d 69 6e 74 2d | 63 6f 6e 74 69 6e 75 65 |[comint-|continue|
|00001b30| 2d 73 75 62 6a 6f 62 5d | 0a 74 6f 20 63 6f 6e 74 |-subjob]|.to cont|
|00001b40| 69 6e 75 65 20 69 74 2e | 22 20 6e 69 6c 5d 29 0a |inue it.|" nil]).|
|00001b50| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 69 73 70 2d |(defalia|s 'lisp-|
|00001b60| 67 65 74 2d 6f 6c 64 2d | 69 6e 70 75 74 20 23 5b |get-old-|input #[|
|00001b70| 6e 69 6c 20 22 8a 60 18 | c1 20 88 60 08 7b 2a 87 |nil ".`.|. .`.{*.|
|00001b80| 22 20 5b 65 6e 64 20 62 | 61 63 6b 77 61 72 64 2d |" [end b|ackward-|
|00001b90| 73 65 78 70 5d 20 32 20 | 22 5c 0a 52 65 74 75 72 |sexp] 2 |"\.Retur|
|00001ba0| 6e 20 61 20 73 74 72 69 | 6e 67 20 63 6f 6e 74 61 |n a stri|ng conta|
|00001bb0| 69 6e 69 6e 67 20 74 68 | 65 20 73 65 78 70 20 65 |ining th|e sexp e|
|00001bc0| 6e 64 69 6e 67 20 61 74 | 20 70 6f 69 6e 74 2e 22 |nding at| point."|
|00001bd0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6c 69 |]).(defa|lias 'li|
|00001be0| 73 70 2d 69 6e 70 75 74 | 2d 66 69 6c 74 65 72 20 |sp-input|-filter |
|00001bf0| 23 5b 28 73 74 72 29 20 | 22 c0 09 5c 6e 5c 22 3f |#[(str) |"..\n\"?|
|00001c00| 87 22 20 5b 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |." [stri|ng-match|
|00001c10| 20 69 6e 66 65 72 69 6f | 72 2d 6c 69 73 70 2d 66 | inferio|r-lisp-f|
|00001c20| 69 6c 74 65 72 2d 72 65 | 67 65 78 70 20 73 74 72 |ilter-re|gexp str|
|00001c30| 5d 20 33 20 22 5c 0a 74 | 20 69 66 20 53 54 52 20 |] 3 "\.t| if STR |
|00001c40| 64 6f 65 73 20 6e 6f 74 | 20 6d 61 74 63 68 20 60 |does not| match `|
|00001c50| 69 6e 66 65 72 69 6f 72 | 2d 6c 69 73 70 2d 66 69 |inferior|-lisp-fi|
|00001c60| 6c 74 65 72 2d 72 65 67 | 65 78 70 27 2e 22 5d 29 |lter-reg|exp'."])|
|00001c70| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 6e 66 65 |.(defali|as 'infe|
|00001c80| 72 69 6f 72 2d 6c 69 73 | 70 20 23 5b 28 63 6d 64 |rior-lis|p #[(cmd|
|00001c90| 29 20 22 c0 c1 21 84 19 | 00 c2 0b 21 1c c5 c6 c7 |) "..!..|...!....|
|00001ca0| 5c 66 40 c8 5c 66 41 25 | 71 88 c9 20 88 29 c1 16 |\f@.\fA%|q.. .)..|
|00001cb0| 5c 6e cb c1 21 87 22 20 | 5b 63 6f 6d 69 6e 74 2d |\n..!." |[comint-|
|00001cc0| 63 68 65 63 6b 2d 70 72 | 6f 63 20 22 2a 69 6e 66 |check-pr|oc "*inf|
|00001cd0| 65 72 69 6f 72 2d 6c 69 | 73 70 2a 22 20 69 6e 66 |erior-li|sp*" inf|
|00001ce0| 65 72 69 6f 72 2d 6c 69 | 73 70 2d 61 72 67 73 2d |erior-li|sp-args-|
|00001cf0| 74 6f 2d 6c 69 73 74 20 | 63 6d 64 20 63 6d 64 6c |to-list |cmd cmdl|
|00001d00| 69 73 74 20 61 70 70 6c | 79 20 6d 61 6b 65 2d 63 |ist appl|y make-c|
|00001d10| 6f 6d 69 6e 74 20 22 69 | 6e 66 65 72 69 6f 72 2d |omint "i|nferior-|
|00001d20| 6c 69 73 70 22 20 6e 69 | 6c 20 69 6e 66 65 72 69 |lisp" ni|l inferi|
|00001d30| 6f 72 2d 6c 69 73 70 2d | 6d 6f 64 65 20 69 6e 66 |or-lisp-|mode inf|
|00001d40| 65 72 69 6f 72 2d 6c 69 | 73 70 2d 62 75 66 66 65 |erior-li|sp-buffe|
|00001d50| 72 20 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 |r switch|-to-buff|
|00001d60| 65 72 5d 20 36 20 22 5c | 0a 52 75 6e 20 61 6e 20 |er] 6 "\|.Run an |
|00001d70| 69 6e 66 65 72 69 6f 72 | 20 4c 69 73 70 20 70 72 |inferior| Lisp pr|
|00001d80| 6f 63 65 73 73 2c 20 69 | 6e 70 75 74 20 61 6e 64 |ocess, i|nput and|
|00001d90| 20 6f 75 74 70 75 74 20 | 76 69 61 20 62 75 66 66 | output |via buff|
|00001da0| 65 72 20 60 2a 69 6e 66 | 65 72 69 6f 72 2d 6c 69 |er `*inf|erior-li|
|00001db0| 73 70 2a 27 2e 0a 49 66 | 20 74 68 65 72 65 20 69 |sp*'..If| there i|
|00001dc0| 73 20 61 20 70 72 6f 63 | 65 73 73 20 61 6c 72 65 |s a proc|ess alre|
|00001dd0| 61 64 79 20 72 75 6e 6e | 69 6e 67 20 69 6e 20 60 |ady runn|ing in `|
|00001de0| 2a 69 6e 66 65 72 69 6f | 72 2d 6c 69 73 70 2a 27 |*inferio|r-lisp*'|
|00001df0| 2c 20 6a 75 73 74 20 73 | 77 69 74 63 68 0a 74 6f |, just s|witch.to|
|00001e00| 20 74 68 61 74 20 62 75 | 66 66 65 72 2e 0a 57 69 | that bu|ffer..Wi|
|00001e10| 74 68 20 61 72 67 75 6d | 65 6e 74 2c 20 61 6c 6c |th argum|ent, all|
|00001e20| 6f 77 73 20 79 6f 75 20 | 74 6f 20 65 64 69 74 20 |ows you |to edit |
|00001e30| 74 68 65 20 63 6f 6d 6d | 61 6e 64 20 6c 69 6e 65 |the comm|and line|
|00001e40| 20 28 64 65 66 61 75 6c | 74 20 69 73 20 76 61 6c | (defaul|t is val|
|00001e50| 75 65 0a 6f 66 20 60 69 | 6e 66 65 72 69 6f 72 2d |ue.of `i|nferior-|
|00001e60| 6c 69 73 70 2d 70 72 6f | 67 72 61 6d 27 29 2e 20 |lisp-pro|gram'). |
|00001e70| 20 52 75 6e 73 20 74 68 | 65 20 68 6f 6f 6b 73 20 | Runs th|e hooks |
|00001e80| 66 72 6f 6d 0a 60 69 6e | 66 65 72 69 6f 72 2d 6c |from.`in|ferior-l|
|00001e90| 69 73 70 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 27 20 28 |isp-mode|-hook' (|
|00001ea0| 61 66 74 65 72 20 74 68 | 65 20 60 63 6f 6d 69 6e |after th|e `comin|
|00001eb0| 74 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 27 20 69 73 20 |t-mode-h|ook' is |
|00001ec0| 72 75 6e 29 2e 0a 28 54 | 79 70 65 20 5c 5c 5b 64 |run)..(T|ype \\[d|
|00001ed0| 65 73 63 72 69 62 65 2d | 6d 6f 64 65 5d 20 69 6e |escribe-|mode] in|
|00001ee0| 20 74 68 65 20 70 72 6f | 63 65 73 73 20 62 75 66 | the pro|cess buf|
|00001ef0| 66 65 72 20 66 6f 72 20 | 61 20 6c 69 73 74 20 6f |fer for |a list o|
|00001f00| 66 20 63 6f 6d 6d 61 6e | 64 73 2e 29 22 20 28 6c |f comman|ds.)" (l|
|00001f10| 69 73 74 20 28 69 66 20 | 63 75 72 72 65 6e 74 2d |ist (if |current-|
|00001f20| 70 72 65 66 69 78 2d 61 | 72 67 20 28 72 65 61 64 |prefix-a|rg (read|
|00001f30| 2d 73 74 72 69 6e 67 20 | 22 52 75 6e 20 6c 69 73 |-string |"Run lis|
|00001f40| 70 3a 20 22 20 69 6e 66 | 65 72 69 6f 72 2d 6c 69 |p: " inf|erior-li|
|00001f50| 73 70 2d 70 72 6f 67 72 | 61 6d 29 20 69 6e 66 65 |sp-progr|am) infe|
|00001f60| 72 69 6f 72 2d 6c 69 73 | 70 2d 70 72 6f 67 72 61 |rior-lis|p-progra|
|00001f70| 6d 29 29 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |m))]).(b|yte-code|
|00001f80| 20 22 c0 c1 c2 5c 22 88 | c0 c3 c4 5c 22 87 22 20 | "...\".|...\"." |
|00001f90| 5b 64 65 66 61 6c 69 61 | 73 20 72 75 6e 2d 6c 69 |[defalia|s run-li|
|00001fa0| 73 70 20 69 6e 66 65 72 | 69 6f 72 2d 6c 69 73 70 |sp infer|ior-lisp|
|00001fb0| 20 69 6e 66 65 72 69 6f | 72 2d 6c 69 73 70 2d 61 | inferio|r-lisp-a|
|00001fc0| 72 67 73 2d 74 6f 2d 6c | 69 73 74 20 23 5b 28 73 |rgs-to-l|ist #[(s|
|00001fd0| 74 72 69 6e 67 29 20 22 | c0 c1 5c 6e 5c 22 89 1b |tring) "|..\n\"..|
|00001fe0| 84 0e 00 5c 6e 43 82 3a | 00 0b c4 55 84 25 00 5c |...\nC.:|...U.%.\|
|00001ff0| 6e c4 0b 4f c5 5c 6e 0b | c6 5c 5c 5c 6e 47 4f 21 |n..O.\n.|.\\\nGO!|
|00002000| 42 82 3a 00 c0 c7 5c 6e | 5c 22 89 1e 08 3f 3f 85 |B.:...\n|\"...??.|
|00002010| 39 00 c5 5c 6e 0e 08 5c | 6e 47 4f 21 29 29 87 22 |9..\n..\|nGO!))."|
|00002020| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|00002030| 5b 20 09 5d 22 20 73 74 | 72 69 6e 67 20 77 68 65 |[ .]" st|ring whe|
|00002040| 72 65 20 30 20 69 6e 66 | 65 72 69 6f 72 2d 6c 69 |re 0 inf|erior-li|
|00002050| 73 70 2d 61 72 67 73 2d | 74 6f 2d 6c 69 73 74 20 |sp-args-|to-list |
|00002060| 31 20 22 5b 5e 20 09 5d | 22 20 70 6f 73 5d 20 36 |1 "[^ .]|" pos] 6|
|00002070| 5d 5d 20 33 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |]] 3).(d|efalias |
|00002080| 27 6c 69 73 70 2d 65 76 | 61 6c 2d 72 65 67 69 6f |'lisp-ev|al-regio|
|00002090| 6e 20 23 5b 28 73 74 61 | 72 74 20 65 6e 64 20 26 |n #[(sta|rt end &|
|000020a0| 6f 70 74 69 6f 6e 61 6c | 20 61 6e 64 2d 67 6f 29 |optional| and-go)|
|000020b0| 20 22 c0 c1 20 5c 6e 0b | 23 88 c4 c1 20 c5 5c 22 | ".. \n.|#... .\"|
|000020c0| 88 0e 06 85 15 00 c7 c8 | 21 87 22 20 5b 63 6f 6d |........|!." [com|
|000020d0| 69 6e 74 2d 73 65 6e 64 | 2d 72 65 67 69 6f 6e 20 |int-send|-region |
|000020e0| 69 6e 66 65 72 69 6f 72 | 2d 6c 69 73 70 2d 70 72 |inferior|-lisp-pr|
|000020f0| 6f 63 20 73 74 61 72 74 | 20 65 6e 64 20 63 6f 6d |oc start| end com|
|00002100| 69 6e 74 2d 73 65 6e 64 | 2d 73 74 72 69 6e 67 20 |int-send|-string |
|00002110| 22 5c 6e 22 20 61 6e 64 | 2d 67 6f 20 73 77 69 74 |"\n" and|-go swit|
|00002120| 63 68 2d 74 6f 2d 6c 69 | 73 70 20 74 5d 20 34 20 |ch-to-li|sp t] 4 |
|00002130| 22 5c 0a 53 65 6e 64 20 | 74 68 65 20 63 75 72 72 |"\.Send |the curr|
|00002140| 65 6e 74 20 72 65 67 69 | 6f 6e 20 74 6f 20 74 68 |ent regi|on to th|
|00002150| 65 20 69 6e 66 65 72 69 | 6f 72 20 4c 69 73 70 20 |e inferi|or Lisp |
|00002160| 70 72 6f 63 65 73 73 2e | 0a 50 72 65 66 69 78 20 |process.|.Prefix |
|00002170| 61 72 67 75 6d 65 6e 74 | 20 6d 65 61 6e 73 20 73 |argument| means s|
|00002180| 77 69 74 63 68 20 74 6f | 20 74 68 65 20 4c 69 73 |witch to| the Lis|
|00002190| 70 20 62 75 66 66 65 72 | 20 61 66 74 65 72 77 61 |p buffer| afterwa|
|000021a0| 72 64 73 2e 22 20 22 72 | 5c 6e 50 22 5d 29 0a 28 |rds." "r|\nP"]).(|
|000021b0| 64 65 66 61 6c 69 61 73 | 20 27 6c 69 73 70 2d 65 |defalias| 'lisp-e|
|000021c0| 76 61 6c 2d 64 65 66 75 | 6e 20 23 5b 28 26 6f 70 |val-defu|n #[(&op|
|000021d0| 74 69 6f 6e 61 6c 20 61 | 6e 64 2d 67 6f 29 20 22 |tional a|nd-go) "|
|000021e0| 8a c0 20 88 c1 c2 78 88 | 60 1b c4 20 88 c5 60 0b |.. ...x.|`.. ..`.|
|000021f0| 5c 22 88 2a 0e 06 85 1b | 00 c7 c8 21 87 22 20 5b |\".*....|...!." [|
|00002200| 65 6e 64 2d 6f 66 2d 64 | 65 66 75 6e 20 22 20 09 |end-of-d|efun " .|
|00002210| 5c 6e 0d 5c 66 22 20 6e | 69 6c 20 65 6e 64 20 62 |\n.\f" n|il end b|
|00002220| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 64 65 66 75 |eginning|-of-defu|
|00002230| 6e 20 6c 69 73 70 2d 65 | 76 61 6c 2d 72 65 67 69 |n lisp-e|val-regi|
|00002240| 6f 6e 20 61 6e 64 2d 67 | 6f 20 73 77 69 74 63 68 |on and-g|o switch|
|00002250| 2d 74 6f 2d 6c 69 73 70 | 20 74 5d 20 33 20 22 5c |-to-lisp| t] 3 "\|
|00002260| 0a 53 65 6e 64 20 74 68 | 65 20 63 75 72 72 65 6e |.Send th|e curren|
|00002270| 74 20 64 65 66 75 6e 20 | 74 6f 20 74 68 65 20 69 |t defun |to the i|
|00002280| 6e 66 65 72 69 6f 72 20 | 4c 69 73 70 20 70 72 6f |nferior |Lisp pro|
|00002290| 63 65 73 73 2e 0a 50 72 | 65 66 69 78 20 61 72 67 |cess..Pr|efix arg|
|000022a0| 75 6d 65 6e 74 20 6d 65 | 61 6e 73 20 73 77 69 74 |ument me|ans swit|
|000022b0| 63 68 20 74 6f 20 74 68 | 65 20 4c 69 73 70 20 62 |ch to th|e Lisp b|
|000022c0| 75 66 66 65 72 20 61 66 | 74 65 72 77 61 72 64 73 |uffer af|terwards|
|000022d0| 2e 22 20 22 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "P"])|.(defali|
|000022e0| 61 73 20 27 6c 69 73 70 | 2d 65 76 61 6c 2d 6c 61 |as 'lisp|-eval-la|
|000022f0| 73 74 2d 73 65 78 70 20 | 23 5b 28 26 6f 70 74 69 |st-sexp |#[(&opti|
|00002300| 6f 6e 61 6c 20 61 6e 64 | 2d 67 6f 29 20 22 c0 8a |onal and|-go) "..|
|00002310| c1 20 88 60 29 60 5c 6e | 23 87 22 20 5b 6c 69 73 |. .`)`\n|#." [lis|
|00002320| 70 2d 65 76 61 6c 2d 72 | 65 67 69 6f 6e 20 62 61 |p-eval-r|egion ba|
|00002330| 63 6b 77 61 72 64 2d 73 | 65 78 70 20 61 6e 64 2d |ckward-s|exp and-|
|00002340| 67 6f 5d 20 34 20 22 5c | 0a 53 65 6e 64 20 74 68 |go] 4 "\|.Send th|
|00002350| 65 20 70 72 65 76 69 6f | 75 73 20 73 65 78 70 20 |e previo|us sexp |
|00002360| 74 6f 20 74 68 65 20 69 | 6e 66 65 72 69 6f 72 20 |to the i|nferior |
|00002370| 4c 69 73 70 20 70 72 6f | 63 65 73 73 2e 0a 50 72 |Lisp pro|cess..Pr|
|00002380| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 6d 65 |efix arg|ument me|
|00002390| 61 6e 73 20 73 77 69 74 | 63 68 20 74 6f 20 74 68 |ans swit|ch to th|
|000023a0| 65 20 4c 69 73 70 20 62 | 75 66 66 65 72 20 61 66 |e Lisp b|uffer af|
|000023b0| 74 65 72 77 61 72 64 73 | 2e 22 20 22 50 22 5d 29 |terwards|." "P"])|
|000023c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6c 69 73 70 |.(defali|as 'lisp|
|000023d0| 2d 63 6f 6d 70 69 6c 65 | 2d 72 65 67 69 6f 6e 20 |-compile|-region |
|000023e0| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 20 26 6f 70 |#[(start| end &op|
|000023f0| 74 69 6f 6e 61 6c 20 61 | 6e 64 2d 67 6f 29 20 22 |tional a|nd-go) "|
|00002400| c0 c1 20 c2 c3 5c 66 0d | 7b 5c 22 5c 22 88 0e 06 |.. ..\f.|{\"\"...|
|00002410| 85 13 00 c7 c8 21 87 22 | 20 5b 63 6f 6d 69 6e 74 |.....!."| [comint|
|00002420| 2d 73 65 6e 64 2d 73 74 | 72 69 6e 67 20 69 6e 66 |-send-st|ring inf|
|00002430| 65 72 69 6f 72 2d 6c 69 | 73 70 2d 70 72 6f 63 20 |erior-li|sp-proc |
|00002440| 66 6f 72 6d 61 74 20 22 | 28 66 75 6e 63 61 6c 6c |format "|(funcall|
|00002450| 20 28 63 6f 6d 70 69 6c | 65 20 6e 69 6c 20 60 28 | (compil|e nil `(|
|00002460| 6c 61 6d 62 64 61 20 28 | 29 20 28 70 72 6f 67 6e |lambda (|) (progn|
|00002470| 20 27 63 6f 6d 70 69 6c | 65 20 25 73 29 29 29 29 | 'compil|e %s))))|
|00002480| 5c 6e 22 20 73 74 61 72 | 74 20 65 6e 64 20 61 6e |\n" star|t end an|
|00002490| 64 2d 67 6f 20 73 77 69 | 74 63 68 2d 74 6f 2d 6c |d-go swi|tch-to-l|
|000024a0| 69 73 70 20 74 5d 20 36 | 20 22 5c 0a 43 6f 6d 70 |isp t] 6| "\.Comp|
|000024b0| 69 6c 65 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ile the |current |
|000024c0| 72 65 67 69 6f 6e 20 69 | 6e 20 74 68 65 20 69 6e |region i|n the in|
|000024d0| 66 65 72 69 6f 72 20 4c | 69 73 70 20 70 72 6f 63 |ferior L|isp proc|
|000024e0| 65 73 73 2e 0a 50 72 65 | 66 69 78 20 61 72 67 75 |ess..Pre|fix argu|
|000024f0| 6d 65 6e 74 20 6d 65 61 | 6e 73 20 73 77 69 74 63 |ment mea|ns switc|
|00002500| 68 20 74 6f 20 74 68 65 | 20 4c 69 73 70 20 62 75 |h to the| Lisp bu|
|00002510| 66 66 65 72 20 61 66 74 | 65 72 77 61 72 64 73 2e |ffer aft|erwards.|
|00002520| 22 20 22 72 5c 6e 50 22 | 5d 29 0a 28 64 65 66 61 |" "r\nP"|]).(defa|
|00002530| 6c 69 61 73 20 27 6c 69 | 73 70 2d 63 6f 6d 70 69 |lias 'li|sp-compi|
|00002540| 6c 65 2d 64 65 66 75 6e | 20 23 5b 28 26 6f 70 74 |le-defun| #[(&opt|
|00002550| 69 6f 6e 61 6c 20 61 6e | 64 2d 67 6f 29 20 22 8a |ional an|d-go) ".|
|00002560| c0 20 88 c1 c2 78 88 60 | 1b c4 20 88 c5 60 0b 5c |. ...x.`|.. ..`.\|
|00002570| 22 88 2a 0e 06 85 1b 00 | c7 c8 21 87 22 20 5b 65 |".*.....|..!." [e|
|00002580| 6e 64 2d 6f 66 2d 64 65 | 66 75 6e 20 22 20 09 5c |nd-of-de|fun " .\|
|00002590| 6e 0d 5c 66 22 20 6e 69 | 6c 20 65 20 62 65 67 69 |n.\f" ni|l e begi|
|000025a0| 6e 6e 69 6e 67 2d 6f 66 | 2d 64 65 66 75 6e 20 6c |nning-of|-defun l|
|000025b0| 69 73 70 2d 63 6f 6d 70 | 69 6c 65 2d 72 65 67 69 |isp-comp|ile-regi|
|000025c0| 6f 6e 20 61 6e 64 2d 67 | 6f 20 73 77 69 74 63 68 |on and-g|o switch|
|000025d0| 2d 74 6f 2d 6c 69 73 70 | 20 74 5d 20 33 20 22 5c |-to-lisp| t] 3 "\|
|000025e0| 0a 43 6f 6d 70 69 6c 65 | 20 74 68 65 20 63 75 72 |.Compile| the cur|
|000025f0| 72 65 6e 74 20 64 65 66 | 75 6e 20 69 6e 20 74 68 |rent def|un in th|
|00002600| 65 20 69 6e 66 65 72 69 | 6f 72 20 4c 69 73 70 20 |e inferi|or Lisp |
|00002610| 70 72 6f 63 65 73 73 2e | 0a 50 72 65 66 69 78 20 |process.|.Prefix |
|00002620| 61 72 67 75 6d 65 6e 74 | 20 6d 65 61 6e 73 20 73 |argument| means s|
|00002630| 77 69 74 63 68 20 74 6f | 20 74 68 65 20 4c 69 73 |witch to| the Lis|
|00002640| 70 20 62 75 66 66 65 72 | 20 61 66 74 65 72 77 61 |p buffer| afterwa|
|00002650| 72 64 73 2e 22 20 22 50 | 22 5d 29 0a 28 64 65 66 |rds." "P|"]).(def|
|00002660| 61 6c 69 61 73 20 27 73 | 77 69 74 63 68 2d 74 6f |alias 's|witch-to|
|00002670| 2d 6c 69 73 70 20 23 5b | 28 65 6f 62 2d 70 29 20 |-lisp #[|(eob-p) |
|00002680| 22 c0 09 21 83 0d 00 c2 | 09 21 88 82 11 00 c3 c4 |"..!....|.!......|
|00002690| 21 88 0d 85 1a 00 c6 20 | 88 64 62 87 22 20 5b 67 |!...... |.db." [g|
|000026a0| 65 74 2d 62 75 66 66 65 | 72 20 69 6e 66 65 72 69 |et-buffe|r inferi|
|000026b0| 6f 72 2d 6c 69 73 70 2d | 62 75 66 66 65 72 20 70 |or-lisp-|buffer p|
|000026c0| 6f 70 2d 74 6f 2d 62 75 | 66 66 65 72 20 65 72 72 |op-to-bu|ffer err|
|000026d0| 6f 72 20 22 4e 6f 20 63 | 75 72 72 65 6e 74 20 69 |or "No c|urrent i|
|000026e0| 6e 66 65 72 69 6f 72 20 | 4c 69 73 70 20 62 75 66 |nferior |Lisp buf|
|000026f0| 66 65 72 22 20 65 6f 62 | 2d 70 20 70 75 73 68 2d |fer" eob|-p push-|
|00002700| 6d 61 72 6b 5d 20 32 20 | 22 5c 0a 53 77 69 74 63 |mark] 2 |"\.Switc|
|00002710| 68 20 74 6f 20 74 68 65 | 20 69 6e 66 65 72 69 6f |h to the| inferio|
|00002720| 72 20 4c 69 73 70 20 70 | 72 6f 63 65 73 73 20 62 |r Lisp p|rocess b|
|00002730| 75 66 66 65 72 2e 0a 57 | 69 74 68 20 61 72 67 75 |uffer..W|ith argu|
|00002740| 6d 65 6e 74 2c 20 70 6f | 73 69 74 69 6f 6e 73 20 |ment, po|sitions |
|00002750| 63 75 72 73 6f 72 20 61 | 74 20 65 6e 64 20 6f 66 |cursor a|t end of|
|00002760| 20 62 75 66 66 65 72 2e | 22 20 22 50 22 5d 29 0a | buffer.|" "P"]).|
|00002770| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 69 73 70 2d |(defalia|s 'lisp-|
|00002780| 65 76 61 6c 2d 72 65 67 | 69 6f 6e 2d 61 6e 64 2d |eval-reg|ion-and-|
|00002790| 67 6f 20 23 5b 28 73 74 | 61 72 74 20 65 6e 64 29 |go #[(st|art end)|
|000027a0| 20 22 c0 09 5c 6e c3 23 | 87 22 20 5b 6c 69 73 70 | "..\n.#|." [lisp|
|000027b0| 2d 65 76 61 6c 2d 72 65 | 67 69 6f 6e 20 73 74 61 |-eval-re|gion sta|
|000027c0| 72 74 20 65 6e 64 20 74 | 5d 20 34 20 22 5c 0a 53 |rt end t|] 4 "\.S|
|000027d0| 65 6e 64 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |end the |current |
|000027e0| 72 65 67 69 6f 6e 20 74 | 6f 20 74 68 65 20 69 6e |region t|o the in|
|000027f0| 66 65 72 69 6f 72 20 4c | 69 73 70 2c 20 61 6e 64 |ferior L|isp, and|
|00002800| 20 73 77 69 74 63 68 20 | 74 6f 20 69 74 73 20 62 | switch |to its b|
|00002810| 75 66 66 65 72 2e 22 20 | 22 72 22 5d 29 0a 28 64 |uffer." |"r"]).(d|
|00002820| 65 66 61 6c 69 61 73 20 | 27 6c 69 73 70 2d 65 76 |efalias |'lisp-ev|
|00002830| 61 6c 2d 64 65 66 75 6e | 2d 61 6e 64 2d 67 6f 20 |al-defun|-and-go |
|00002840| 23 5b 6e 69 6c 20 22 c0 | c1 21 87 22 20 5b 6c 69 |#[nil ".|.!." [li|
|00002850| 73 70 2d 65 76 61 6c 2d | 64 65 66 75 6e 20 74 5d |sp-eval-|defun t]|
|00002860| 20 32 20 22 5c 0a 53 65 | 6e 64 20 74 68 65 20 63 | 2 "\.Se|nd the c|
|00002870| 75 72 72 65 6e 74 20 64 | 65 66 75 6e 20 74 6f 20 |urrent d|efun to |
|00002880| 74 68 65 20 69 6e 66 65 | 72 69 6f 72 20 4c 69 73 |the infe|rior Lis|
|00002890| 70 2c 20 61 6e 64 20 73 | 77 69 74 63 68 20 74 6f |p, and s|witch to|
|000028a0| 20 69 74 73 20 62 75 66 | 66 65 72 2e 22 20 6e 69 | its buf|fer." ni|
|000028b0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6c |l]).(def|alias 'l|
|000028c0| 69 73 70 2d 63 6f 6d 70 | 69 6c 65 2d 72 65 67 69 |isp-comp|ile-regi|
|000028d0| 6f 6e 2d 61 6e 64 2d 67 | 6f 20 23 5b 28 73 74 61 |on-and-g|o #[(sta|
|000028e0| 72 74 20 65 6e 64 29 20 | 22 c0 09 5c 6e c3 23 87 |rt end) |"..\n.#.|
|000028f0| 22 20 5b 6c 69 73 70 2d | 63 6f 6d 70 69 6c 65 2d |" [lisp-|compile-|
|00002900| 72 65 67 69 6f 6e 20 73 | 74 61 72 74 20 65 6e 64 |region s|tart end|
|00002910| 20 74 5d 20 34 20 22 5c | 0a 43 6f 6d 70 69 6c 65 | t] 4 "\|.Compile|
|00002920| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 72 65 67 | the cur|rent reg|
|00002930| 69 6f 6e 20 69 6e 20 74 | 68 65 20 69 6e 66 65 72 |ion in t|he infer|
|00002940| 69 6f 72 20 4c 69 73 70 | 2c 20 61 6e 64 20 73 77 |ior Lisp|, and sw|
|00002950| 69 74 63 68 20 74 6f 20 | 69 74 73 20 62 75 66 66 |itch to |its buff|
|00002960| 65 72 2e 22 20 22 72 22 | 5d 29 0a 28 64 65 66 61 |er." "r"|]).(defa|
|00002970| 6c 69 61 73 20 27 6c 69 | 73 70 2d 63 6f 6d 70 69 |lias 'li|sp-compi|
|00002980| 6c 65 2d 64 65 66 75 6e | 2d 61 6e 64 2d 67 6f 20 |le-defun|-and-go |
|00002990| 23 5b 6e 69 6c 20 22 c0 | c1 21 87 22 20 5b 6c 69 |#[nil ".|.!." [li|
|000029a0| 73 70 2d 63 6f 6d 70 69 | 6c 65 2d 64 65 66 75 6e |sp-compi|le-defun|
|000029b0| 20 74 5d 20 32 20 22 5c | 0a 43 6f 6d 70 69 6c 65 | t] 2 "\|.Compile|
|000029c0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 64 65 66 | the cur|rent def|
|000029d0| 75 6e 20 69 6e 20 74 68 | 65 20 69 6e 66 65 72 69 |un in th|e inferi|
|000029e0| 6f 72 20 4c 69 73 70 2c | 20 61 6e 64 20 73 77 69 |or Lisp,| and swi|
|000029f0| 74 63 68 20 74 6f 20 69 | 74 73 20 62 75 66 66 65 |tch to i|ts buffe|
|00002a00| 72 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 76 61 |r." nil]|).(defva|
|00002a10| 72 20 6c 69 73 70 2d 70 | 72 65 76 2d 6c 2f 63 2d |r lisp-p|rev-l/c-|
|00002a20| 64 69 72 2f 66 69 6c 65 | 20 6e 69 6c 20 22 5c 0a |dir/file| nil "\.|
|00002a30| 52 65 63 6f 72 64 20 6c | 61 73 74 20 64 69 72 65 |Record l|ast dire|
|00002a40| 63 74 6f 72 79 20 61 6e | 64 20 66 69 6c 65 20 75 |ctory an|d file u|
|00002a50| 73 65 64 20 69 6e 20 6c | 6f 61 64 69 6e 67 20 6f |sed in l|oading o|
|00002a60| 72 20 63 6f 6d 70 69 6c | 69 6e 67 2e 0a 54 68 69 |r compil|ing..Thi|
|00002a70| 73 20 68 6f 6c 64 73 20 | 61 20 63 6f 6e 73 20 63 |s holds |a cons c|
|00002a80| 65 6c 6c 20 6f 66 20 74 | 68 65 20 66 6f 72 6d 20 |ell of t|he form |
|00002a90| 60 28 44 49 52 45 43 54 | 4f 52 59 20 2e 20 46 49 |`(DIRECT|ORY . FI|
|00002aa0| 4c 45 29 27 0a 64 65 73 | 63 72 69 62 69 6e 67 20 |LE)'.des|cribing |
|00002ab0| 74 68 65 20 6c 61 73 74 | 20 60 6c 69 73 70 2d 6c |the last| `lisp-l|
|00002ac0| 6f 61 64 2d 66 69 6c 65 | 27 20 6f 72 20 60 6c 69 |oad-file|' or `li|
|00002ad0| 73 70 2d 63 6f 6d 70 69 | 6c 65 2d 66 69 6c 65 27 |sp-compi|le-file'|
|00002ae0| 20 63 6f 6d 6d 61 6e 64 | 2e 22 29 0a 28 64 65 66 | command|.").(def|
|00002af0| 76 61 72 20 6c 69 73 70 | 2d 73 6f 75 72 63 65 2d |var lisp|-source-|
|00002b00| 6d 6f 64 65 73 20 28 71 | 75 6f 74 65 20 28 6c 69 |modes (q|uote (li|
|00002b10| 73 70 2d 6d 6f 64 65 29 | 29 20 22 5c 0a 2a 55 73 |sp-mode)|) "\.*Us|
|00002b20| 65 64 20 74 6f 20 64 65 | 74 65 72 6d 69 6e 65 20 |ed to de|termine |
|00002b30| 69 66 20 61 20 62 75 66 | 66 65 72 20 63 6f 6e 74 |if a buf|fer cont|
|00002b40| 61 69 6e 73 20 4c 69 73 | 70 20 73 6f 75 72 63 65 |ains Lis|p source|
|00002b50| 20 63 6f 64 65 2e 0a 49 | 66 20 69 74 27 73 20 6c | code..I|f it's l|
|00002b60| 6f 61 64 65 64 20 69 6e | 74 6f 20 61 20 62 75 66 |oaded in|to a buf|
|00002b70| 66 65 72 20 74 68 61 74 | 20 69 73 20 69 6e 20 6f |fer that| is in o|
|00002b80| 6e 65 20 6f 66 20 74 68 | 65 73 65 20 6d 61 6a 6f |ne of th|ese majo|
|00002b90| 72 20 6d 6f 64 65 73 2c | 20 69 74 27 73 0a 63 6f |r modes,| it's.co|
|00002ba0| 6e 73 69 64 65 72 65 64 | 20 61 20 4c 69 73 70 20 |nsidered| a Lisp |
|00002bb0| 73 6f 75 72 63 65 20 66 | 69 6c 65 20 62 79 20 60 |source f|ile by `|
|00002bc0| 6c 69 73 70 2d 6c 6f 61 | 64 2d 66 69 6c 65 27 20 |lisp-loa|d-file' |
|00002bd0| 61 6e 64 20 60 6c 69 73 | 70 2d 63 6f 6d 70 69 6c |and `lis|p-compil|
|00002be0| 65 2d 66 69 6c 65 27 2e | 0a 55 73 65 64 20 62 79 |e-file'.|.Used by|
|00002bf0| 20 74 68 65 73 65 20 63 | 6f 6d 6d 61 6e 64 73 20 | these c|ommands |
|00002c00| 74 6f 20 64 65 74 65 72 | 6d 69 6e 65 20 64 65 66 |to deter|mine def|
|00002c10| 61 75 6c 74 73 2e 22 29 | 0a 28 64 65 66 61 6c 69 |aults.")|.(defali|
|00002c20| 61 73 20 27 6c 69 73 70 | 2d 6c 6f 61 64 2d 66 69 |as 'lisp|-load-fi|
|00002c30| 6c 65 20 23 5b 28 66 69 | 6c 65 2d 6e 61 6d 65 29 |le #[(fi|le-name)|
|00002c40| 20 22 c0 09 21 88 c2 09 | 21 c3 09 21 42 14 c5 c6 | "..!...|!..!B...|
|00002c50| 20 c7 0e 08 09 5c 22 5c | 22 88 c9 ca 21 87 22 20 | ....\"\|"...!." |
|00002c60| 5b 63 6f 6d 69 6e 74 2d | 63 68 65 63 6b 2d 73 6f |[comint-|check-so|
|00002c70| 75 72 63 65 20 66 69 6c | 65 2d 6e 61 6d 65 20 66 |urce fil|e-name f|
|00002c80| 69 6c 65 2d 6e 61 6d 65 | 2d 64 69 72 65 63 74 6f |ile-name|-directo|
|00002c90| 72 79 20 66 69 6c 65 2d | 6e 61 6d 65 2d 6e 6f 6e |ry file-|name-non|
|00002ca0| 64 69 72 65 63 74 6f 72 | 79 20 6c 69 73 70 2d 70 |director|y lisp-p|
|00002cb0| 72 65 76 2d 6c 2f 63 2d | 64 69 72 2f 66 69 6c 65 |rev-l/c-|dir/file|
|00002cc0| 20 63 6f 6d 69 6e 74 2d | 73 65 6e 64 2d 73 74 72 | comint-|send-str|
|00002cd0| 69 6e 67 20 69 6e 66 65 | 72 69 6f 72 2d 6c 69 73 |ing infe|rior-lis|
|00002ce0| 70 2d 70 72 6f 63 20 66 | 6f 72 6d 61 74 20 69 6e |p-proc f|ormat in|
|00002cf0| 66 65 72 69 6f 72 2d 6c | 69 73 70 2d 6c 6f 61 64 |ferior-l|isp-load|
|00002d00| 2d 63 6f 6d 6d 61 6e 64 | 20 73 77 69 74 63 68 2d |-command| switch-|
|00002d10| 74 6f 2d 6c 69 73 70 20 | 74 5d 20 35 20 22 5c 0a |to-lisp |t] 5 "\.|
|00002d20| 4c 6f 61 64 20 61 20 4c | 69 73 70 20 66 69 6c 65 |Load a L|isp file|
|00002d30| 20 69 6e 74 6f 20 74 68 | 65 20 69 6e 66 65 72 69 | into th|e inferi|
|00002d40| 6f 72 20 4c 69 73 70 20 | 70 72 6f 63 65 73 73 2e |or Lisp |process.|
|00002d50| 22 20 28 63 6f 6d 69 6e | 74 2d 67 65 74 2d 73 6f |" (comin|t-get-so|
|00002d60| 75 72 63 65 20 22 4c 6f | 61 64 20 4c 69 73 70 20 |urce "Lo|ad Lisp |
|00002d70| 66 69 6c 65 3a 20 22 20 | 6c 69 73 70 2d 70 72 65 |file: " |lisp-pre|
|00002d80| 76 2d 6c 2f 63 2d 64 69 | 72 2f 66 69 6c 65 20 6c |v-l/c-di|r/file l|
|00002d90| 69 73 70 2d 73 6f 75 72 | 63 65 2d 6d 6f 64 65 73 |isp-sour|ce-modes|
|00002da0| 20 6e 69 6c 29 5d 29 0a | 28 64 65 66 61 6c 69 61 | nil)]).|(defalia|
|00002db0| 73 20 27 6c 69 73 70 2d | 63 6f 6d 70 69 6c 65 2d |s 'lisp-|compile-|
|00002dc0| 66 69 6c 65 20 23 5b 28 | 66 69 6c 65 2d 6e 61 6d |file #[(|file-nam|
|00002dd0| 65 29 20 22 c0 09 21 88 | c2 09 21 c3 09 21 42 14 |e) "..!.|..!..!B.|
|00002de0| c5 c6 20 c7 09 c8 51 5c | 22 88 c9 ca 21 87 22 20 |.. ...Q\|"...!." |
|00002df0| 5b 63 6f 6d 69 6e 74 2d | 63 68 65 63 6b 2d 73 6f |[comint-|check-so|
|00002e00| 75 72 63 65 20 66 69 6c | 65 2d 6e 61 6d 65 20 66 |urce fil|e-name f|
|00002e10| 69 6c 65 2d 6e 61 6d 65 | 2d 64 69 72 65 63 74 6f |ile-name|-directo|
|00002e20| 72 79 20 66 69 6c 65 2d | 6e 61 6d 65 2d 6e 6f 6e |ry file-|name-non|
|00002e30| 64 69 72 65 63 74 6f 72 | 79 20 6c 69 73 70 2d 70 |director|y lisp-p|
|00002e40| 72 65 76 2d 6c 2f 63 2d | 64 69 72 2f 66 69 6c 65 |rev-l/c-|dir/file|
|00002e50| 20 63 6f 6d 69 6e 74 2d | 73 65 6e 64 2d 73 74 72 | comint-|send-str|
|00002e60| 69 6e 67 20 69 6e 66 65 | 72 69 6f 72 2d 6c 69 73 |ing infe|rior-lis|
|00002e70| 70 2d 70 72 6f 63 20 22 | 28 63 6f 6d 70 69 6c 65 |p-proc "|(compile|
|00002e80| 2d 66 69 6c 65 20 5c 22 | 22 20 22 5c 22 29 5c 6e |-file \"|" "\")\n|
|00002e90| 22 20 73 77 69 74 63 68 | 2d 74 6f 2d 6c 69 73 70 |" switch|-to-lisp|
|00002ea0| 20 74 5d 20 35 20 22 5c | 0a 43 6f 6d 70 69 6c 65 | t] 5 "\|.Compile|
|00002eb0| 20 61 20 4c 69 73 70 20 | 66 69 6c 65 20 69 6e 20 | a Lisp |file in |
|00002ec0| 74 68 65 20 69 6e 66 65 | 72 69 6f 72 20 4c 69 73 |the infe|rior Lis|
|00002ed0| 70 20 70 72 6f 63 65 73 | 73 2e 22 20 28 63 6f 6d |p proces|s." (com|
|00002ee0| 69 6e 74 2d 67 65 74 2d | 73 6f 75 72 63 65 20 22 |int-get-|source "|
|00002ef0| 43 6f 6d 70 69 6c 65 20 | 4c 69 73 70 20 66 69 6c |Compile |Lisp fil|
|00002f00| 65 3a 20 22 20 6c 69 73 | 70 2d 70 72 65 76 2d 6c |e: " lis|p-prev-l|
|00002f10| 2f 63 2d 64 69 72 2f 66 | 69 6c 65 20 6c 69 73 70 |/c-dir/f|ile lisp|
|00002f20| 2d 73 6f 75 72 63 65 2d | 6d 6f 64 65 73 20 6e 69 |-source-|modes ni|
|00002f30| 6c 29 5d 29 0a 28 64 65 | 66 76 61 72 20 6c 69 73 |l)]).(de|fvar lis|
|00002f40| 70 2d 66 75 6e 63 74 69 | 6f 6e 2d 64 6f 63 2d 63 |p-functi|on-doc-c|
|00002f50| 6f 6d 6d 61 6e 64 20 22 | 28 6c 65 74 20 28 28 66 |ommand "|(let ((f|
|00002f60| 6e 20 27 25 73 29 29 5c | 6e 20 20 20 20 20 28 66 |n '%s))\|n (f|
|00002f70| 6f 72 6d 61 74 20 74 20 | 5c 22 44 6f 63 75 6d 65 |ormat t |\"Docume|
|00002f80| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 7e 61 3a 7e |ntation |for ~a:~|
|00002f90| 26 7e 61 5c 22 5c 6e 09 | 20 20 20 20 20 66 6e 20 |&~a\"\n.| fn |
|00002fa0| 28 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 20 66 |(documen|tation f|
|00002fb0| 6e 20 27 66 75 6e 63 74 | 69 6f 6e 29 29 5c 6e 20 |n 'funct|ion))\n |
|00002fc0| 20 20 20 20 28 76 61 6c | 75 65 73 29 29 5c 6e 22 | (val|ues))\n"|
|00002fd0| 20 22 5c 0a 43 6f 6d 6d | 61 6e 64 20 74 6f 20 71 | "\.Comm|and to q|
|00002fe0| 75 65 72 79 20 69 6e 66 | 65 72 69 6f 72 20 4c 69 |uery inf|erior Li|
|00002ff0| 73 70 20 66 6f 72 20 61 | 20 66 75 6e 63 74 69 6f |sp for a| functio|
|00003000| 6e 27 73 20 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |n's docu|mentatio|
|00003010| 6e 2e 22 29 0a 28 64 65 | 66 76 61 72 20 6c 69 73 |n.").(de|fvar lis|
|00003020| 70 2d 76 61 72 2d 64 6f | 63 2d 63 6f 6d 6d 61 6e |p-var-do|c-comman|
|00003030| 64 20 22 28 6c 65 74 20 | 28 28 76 20 27 25 73 29 |d "(let |((v '%s)|
|00003040| 29 5c 6e 20 20 20 20 20 | 28 66 6f 72 6d 61 74 20 |)\n |(format |
|00003050| 74 20 5c 22 44 6f 63 75 | 6d 65 6e 74 61 74 69 6f |t \"Docu|mentatio|
|00003060| 6e 20 66 6f 72 20 7e 61 | 3a 7e 26 7e 61 5c 22 5c |n for ~a|:~&~a\"\|
|00003070| 6e 09 20 20 20 20 20 76 | 20 28 64 6f 63 75 6d 65 |n. v| (docume|
|00003080| 6e 74 61 74 69 6f 6e 20 | 76 20 27 76 61 72 69 61 |ntation |v 'varia|
|00003090| 62 6c 65 29 29 5c 6e 20 | 20 20 20 20 28 76 61 6c |ble))\n | (val|
|000030a0| 75 65 73 29 29 5c 6e 22 | 20 22 5c 0a 43 6f 6d 6d |ues))\n"| "\.Comm|
|000030b0| 61 6e 64 20 74 6f 20 71 | 75 65 72 79 20 69 6e 66 |and to q|uery inf|
|000030c0| 65 72 69 6f 72 20 4c 69 | 73 70 20 66 6f 72 20 61 |erior Li|sp for a|
|000030d0| 20 76 61 72 69 61 62 6c | 65 27 73 20 64 6f 63 75 | variabl|e's docu|
|000030e0| 6d 65 6e 74 61 74 69 6f | 6e 2e 22 29 0a 28 64 65 |mentatio|n.").(de|
|000030f0| 66 76 61 72 20 6c 69 73 | 70 2d 61 72 67 6c 69 73 |fvar lis|p-arglis|
|00003100| 74 2d 63 6f 6d 6d 61 6e | 64 20 22 28 6c 65 74 20 |t-comman|d "(let |
|00003110| 28 28 66 6e 20 27 25 73 | 29 29 5c 6e 20 20 20 20 |((fn '%s|))\n |
|00003120| 20 28 66 6f 72 6d 61 74 | 20 74 20 5c 22 41 72 67 | (format| t \"Arg|
|00003130| 6c 69 73 74 20 66 6f 72 | 20 7e 61 3a 20 7e 61 5c |list for| ~a: ~a\|
|00003140| 22 20 66 6e 20 28 61 72 | 67 6c 69 73 74 20 66 6e |" fn (ar|glist fn|
|00003150| 29 29 5c 6e 20 20 20 20 | 20 28 76 61 6c 75 65 73 |))\n | (values|
|00003160| 29 29 5c 6e 22 20 22 5c | 0a 43 6f 6d 6d 61 6e 64 |))\n" "\|.Command|
|00003170| 20 74 6f 20 71 75 65 72 | 79 20 69 6e 66 65 72 69 | to quer|y inferi|
|00003180| 6f 72 20 4c 69 73 70 20 | 66 6f 72 20 61 20 66 75 |or Lisp |for a fu|
|00003190| 6e 63 74 69 6f 6e 27 73 | 20 61 72 67 6c 69 73 74 |nction's| arglist|
|000031a0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 6c 69 73 70 |.").(def|var lisp|
|000031b0| 2d 64 65 73 63 72 69 62 | 65 2d 73 79 6d 2d 63 6f |-describ|e-sym-co|
|000031c0| 6d 6d 61 6e 64 20 22 28 | 64 65 73 63 72 69 62 65 |mmand "(|describe|
|000031d0| 20 27 25 73 29 5c 6e 22 | 20 22 5c 0a 43 6f 6d 6d | '%s)\n"| "\.Comm|
|000031e0| 61 6e 64 20 74 6f 20 71 | 75 65 72 79 20 69 6e 66 |and to q|uery inf|
|000031f0| 65 72 69 6f 72 20 4c 69 | 73 70 20 66 6f 72 20 61 |erior Li|sp for a|
|00003200| 20 76 61 72 69 61 62 6c | 65 27 73 20 64 6f 63 75 | variabl|e's docu|
|00003210| 6d 65 6e 74 61 74 69 6f | 6e 2e 22 29 0a 28 64 65 |mentatio|n.").(de|
|00003220| 66 61 6c 69 61 73 20 28 | 71 75 6f 74 65 20 6c 69 |falias (|quote li|
|00003230| 73 70 2d 73 79 6d 70 72 | 6f 6d 70 74 29 20 23 5b |sp-sympr|ompt) #[|
|00003240| 28 70 72 6f 6d 70 74 20 | 64 65 66 61 75 6c 74 29 |(prompt |default)|
|00003250| 20 22 08 83 5c 66 00 c1 | c2 0b 08 23 82 0f 00 0b | "..\f..|...#....|
|00003260| c4 50 1b c5 0b 21 89 1e | 06 47 c7 55 83 20 00 08 |.P...!..|.G.U. ..|
|00003270| 82 5c 22 00 0e 06 2a 43 | 87 22 20 5b 64 65 66 61 |.\"...*C|." [defa|
|00003280| 75 6c 74 20 66 6f 72 6d | 61 74 20 22 25 73 20 28 |ult form|at "%s (|
|00003290| 64 65 66 61 75 6c 74 20 | 25 73 29 3a 20 22 20 70 |default |%s): " p|
|000032a0| 72 6f 6d 70 74 20 22 3a | 20 22 20 72 65 61 64 2d |rompt ":| " read-|
|000032b0| 73 74 72 69 6e 67 20 61 | 6e 73 20 30 5d 20 35 5d |string a|ns 0] 5]|
|000032c0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6c 69 73 |).(defal|ias 'lis|
|000032d0| 70 2d 66 6e 2d 63 61 6c | 6c 65 64 2d 61 74 2d 70 |p-fn-cal|led-at-p|
|000032e0| 74 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 8f 87 22 20 |t #[nil |"....." |
|000032f0| 5b 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |[nil (by|te-code |
|00003300| 22 8a 8c 65 60 c0 5a 5d | 64 7d 88 c1 c2 21 88 c2 |"..e`.Z]|d}...!..|
|00003310| 75 88 c3 70 21 89 1c 39 | 85 1b 00 5c 66 2b 87 22 |u..p!..9|...\f+."|
|00003320| 20 5b 31 30 30 30 20 62 | 61 63 6b 77 61 72 64 2d | [1000 b|ackward-|
|00003330| 75 70 2d 6c 69 73 74 20 | 31 20 72 65 61 64 20 6f |up-list |1 read o|
|00003340| 62 6a 5d 20 34 29 20 28 | 28 65 72 72 6f 72 29 29 |bj] 4) (|(error))|
|00003350| 5d 20 33 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 74 |] 3 "\.R|eturns t|
|00003360| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 66 |he name |of the f|
|00003370| 75 6e 63 74 69 6f 6e 20 | 63 61 6c 6c 65 64 20 69 |unction |called i|
|00003380| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 63 61 |n the cu|rrent ca|
|00003390| 6c 6c 2e 0a 54 68 65 20 | 76 61 6c 75 65 20 69 73 |ll..The |value is|
|000033a0| 20 6e 69 6c 20 69 66 20 | 69 74 20 63 61 6e 27 74 | nil if |it can't|
|000033b0| 20 66 69 6e 64 20 6f 6e | 65 2e 22 5d 29 0a 28 64 | find on|e."]).(d|
|000033c0| 65 66 61 6c 69 61 73 20 | 28 71 75 6f 74 65 20 6c |efalias |(quote l|
|000033d0| 69 73 70 2d 76 61 72 2d | 61 74 2d 70 74 29 20 23 |isp-var-|at-pt) #|
|000033e0| 5b 6e 69 6c 20 22 c0 c1 | c2 8f 87 22 20 5b 6e 69 |[nil "..|..." [ni|
|000033f0| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 8a c0 |l (byte-|code "..|
|00003400| c1 21 88 c2 c3 77 88 c4 | 70 21 89 1d 39 85 13 00 |.!...w..|p!..9...|
|00003410| 0d 2a 87 22 20 5b 66 6f | 72 77 61 72 64 2d 73 65 |.*." [fo|rward-se|
|00003420| 78 70 20 2d 31 20 22 27 | 22 20 6e 69 6c 20 72 65 |xp -1 "'|" nil re|
|00003430| 61 64 20 6f 62 6a 5d 20 | 33 29 20 28 28 65 72 72 |ad obj] |3) ((err|
|00003440| 6f 72 29 29 5d 20 33 5d | 29 0a 28 64 65 66 61 6c |or))] 3]|).(defal|
|00003450| 69 61 73 20 27 6c 69 73 | 70 2d 73 68 6f 77 2d 66 |ias 'lis|p-show-f|
|00003460| 75 6e 63 74 69 6f 6e 2d | 64 6f 63 75 6d 65 6e 74 |unction-|document|
|00003470| 61 74 69 6f 6e 20 23 5b | 28 66 6e 29 20 22 c0 c1 |ation #[|(fn) "..|
|00003480| 20 c2 0b 5c 66 5c 22 5c | 22 87 22 20 5b 63 6f 6d | ..\f\"\|"." [com|
|00003490| 69 6e 74 2d 70 72 6f 63 | 2d 71 75 65 72 79 20 69 |int-proc|-query i|
|000034a0| 6e 66 65 72 69 6f 72 2d | 6c 69 73 70 2d 70 72 6f |nferior-|lisp-pro|
|000034b0| 63 20 66 6f 72 6d 61 74 | 20 6c 69 73 70 2d 66 75 |c format| lisp-fu|
|000034c0| 6e 63 74 69 6f 6e 2d 64 | 6f 63 2d 63 6f 6d 6d 61 |nction-d|oc-comma|
|000034d0| 6e 64 20 66 6e 5d 20 35 | 20 22 5c 0a 53 65 6e 64 |nd fn] 5| "\.Send|
|000034e0| 20 61 20 63 6f 6d 6d 61 | 6e 64 20 74 6f 20 74 68 | a comma|nd to th|
|000034f0| 65 20 69 6e 66 65 72 69 | 6f 72 20 4c 69 73 70 20 |e inferi|or Lisp |
|00003500| 74 6f 20 67 69 76 65 20 | 64 6f 63 75 6d 65 6e 74 |to give |document|
|00003510| 61 74 69 6f 6e 20 66 6f | 72 20 66 75 6e 63 74 69 |ation fo|r functi|
|00003520| 6f 6e 20 46 4e 2e 0a 53 | 65 65 20 76 61 72 69 61 |on FN..S|ee varia|
|00003530| 62 6c 65 20 60 6c 69 73 | 70 2d 66 75 6e 63 74 69 |ble `lis|p-functi|
|00003540| 6f 6e 2d 64 6f 63 2d 63 | 6f 6d 6d 61 6e 64 27 2e |on-doc-c|ommand'.|
|00003550| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |" (byte-|code "..|
|00003560| c2 20 5c 22 87 22 20 5b | 6c 69 73 70 2d 73 79 6d |. \"." [|lisp-sym|
|00003570| 70 72 6f 6d 70 74 20 22 | 46 75 6e 63 74 69 6f 6e |prompt "|Function|
|00003580| 20 64 6f 63 22 20 6c 69 | 73 70 2d 66 6e 2d 63 61 | doc" li|sp-fn-ca|
|00003590| 6c 6c 65 64 2d 61 74 2d | 70 74 5d 20 33 29 5d 29 |lled-at-|pt] 3)])|
|000035a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6c 69 73 70 |.(defali|as 'lisp|
|000035b0| 2d 73 68 6f 77 2d 76 61 | 72 69 61 62 6c 65 2d 64 |-show-va|riable-d|
|000035c0| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 23 5b 28 |ocumenta|tion #[(|
|000035d0| 76 61 72 29 20 22 c0 c1 | 20 c2 0b 5c 66 5c 22 5c |var) "..| ..\f\"\|
|000035e0| 22 87 22 20 5b 63 6f 6d | 69 6e 74 2d 70 72 6f 63 |"." [com|int-proc|
|000035f0| 2d 71 75 65 72 79 20 69 | 6e 66 65 72 69 6f 72 2d |-query i|nferior-|
|00003600| 6c 69 73 70 2d 70 72 6f | 63 20 66 6f 72 6d 61 74 |lisp-pro|c format|
|00003610| 20 6c 69 73 70 2d 76 61 | 72 2d 64 6f 63 2d 63 6f | lisp-va|r-doc-co|
|00003620| 6d 6d 61 6e 64 20 76 61 | 72 5d 20 35 20 22 5c 0a |mmand va|r] 5 "\.|
|00003630| 53 65 6e 64 20 61 20 63 | 6f 6d 6d 61 6e 64 20 74 |Send a c|ommand t|
|00003640| 6f 20 74 68 65 20 69 6e | 66 65 72 69 6f 72 20 4c |o the in|ferior L|
|00003650| 69 73 70 20 74 6f 20 67 | 69 76 65 20 64 6f 63 75 |isp to g|ive docu|
|00003660| 6d 65 6e 74 61 74 69 6f | 6e 20 66 6f 72 20 66 75 |mentatio|n for fu|
|00003670| 6e 63 74 69 6f 6e 20 46 | 4e 2e 0a 53 65 65 20 76 |nction F|N..See v|
|00003680| 61 72 69 61 62 6c 65 20 | 60 6c 69 73 70 2d 76 61 |ariable |`lisp-va|
|00003690| 72 2d 64 6f 63 2d 63 6f | 6d 6d 61 6e 64 27 2e 22 |r-doc-co|mmand'."|
|000036a0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 | (byte-c|ode "...|
|000036b0| 20 5c 22 87 22 20 5b 6c | 69 73 70 2d 73 79 6d 70 | \"." [l|isp-symp|
|000036c0| 72 6f 6d 70 74 20 22 56 | 61 72 69 61 62 6c 65 20 |rompt "V|ariable |
|000036d0| 64 6f 63 22 20 6c 69 73 | 70 2d 76 61 72 2d 61 74 |doc" lis|p-var-at|
|000036e0| 2d 70 74 5d 20 33 29 5d | 29 0a 28 64 65 66 61 6c |-pt] 3)]|).(defal|
|000036f0| 69 61 73 20 27 6c 69 73 | 70 2d 73 68 6f 77 2d 61 |ias 'lis|p-show-a|
|00003700| 72 67 6c 69 73 74 20 23 | 5b 28 66 6e 29 20 22 c0 |rglist #|[(fn) ".|
|00003710| c1 20 c2 0b 5c 66 5c 22 | 5c 22 87 22 20 5b 63 6f |. ..\f\"|\"." [co|
|00003720| 6d 69 6e 74 2d 70 72 6f | 63 2d 71 75 65 72 79 20 |mint-pro|c-query |
|00003730| 69 6e 66 65 72 69 6f 72 | 2d 6c 69 73 70 2d 70 72 |inferior|-lisp-pr|
|00003740| 6f 63 20 66 6f 72 6d 61 | 74 20 6c 69 73 70 2d 61 |oc forma|t lisp-a|
|00003750| 72 67 6c 69 73 74 2d 63 | 6f 6d 6d 61 6e 64 20 66 |rglist-c|ommand f|
|00003760| 6e 5d 20 35 20 22 5c 0a | 53 65 6e 64 20 61 20 71 |n] 5 "\.|Send a q|
|00003770| 75 65 72 79 20 74 6f 20 | 74 68 65 20 69 6e 66 65 |uery to |the infe|
|00003780| 72 69 6f 72 20 4c 69 73 | 70 20 66 6f 72 20 74 68 |rior Lis|p for th|
|00003790| 65 20 61 72 67 6c 69 73 | 74 20 66 6f 72 20 66 75 |e arglis|t for fu|
|000037a0| 6e 63 74 69 6f 6e 20 46 | 4e 2e 0a 53 65 65 20 76 |nction F|N..See v|
|000037b0| 61 72 69 61 62 6c 65 20 | 60 6c 69 73 70 2d 61 72 |ariable |`lisp-ar|
|000037c0| 67 6c 69 73 74 2d 63 6f | 6d 6d 61 6e 64 27 2e 22 |glist-co|mmand'."|
|000037d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 | (byte-c|ode "...|
|000037e0| 20 5c 22 87 22 20 5b 6c | 69 73 70 2d 73 79 6d 70 | \"." [l|isp-symp|
|000037f0| 72 6f 6d 70 74 20 22 41 | 72 67 6c 69 73 74 22 20 |rompt "A|rglist" |
|00003800| 6c 69 73 70 2d 66 6e 2d | 63 61 6c 6c 65 64 2d 61 |lisp-fn-|called-a|
|00003810| 74 2d 70 74 5d 20 33 29 | 5d 29 0a 28 64 65 66 61 |t-pt] 3)|]).(defa|
|00003820| 6c 69 61 73 20 27 6c 69 | 73 70 2d 64 65 73 63 72 |lias 'li|sp-descr|
|00003830| 69 62 65 2d 73 79 6d 20 | 23 5b 28 73 79 6d 29 20 |ibe-sym |#[(sym) |
|00003840| 22 c0 c1 20 c2 0b 5c 66 | 5c 22 5c 22 87 22 20 5b |".. ..\f|\"\"." [|
|00003850| 63 6f 6d 69 6e 74 2d 70 | 72 6f 63 2d 71 75 65 72 |comint-p|roc-quer|
|00003860| 79 20 69 6e 66 65 72 69 | 6f 72 2d 6c 69 73 70 2d |y inferi|or-lisp-|
|00003870| 70 72 6f 63 20 66 6f 72 | 6d 61 74 20 6c 69 73 70 |proc for|mat lisp|
|00003880| 2d 64 65 73 63 72 69 62 | 65 2d 73 79 6d 2d 63 6f |-describ|e-sym-co|
|00003890| 6d 6d 61 6e 64 20 73 79 | 6d 5d 20 35 20 22 5c 0a |mmand sy|m] 5 "\.|
|000038a0| 53 65 6e 64 20 61 20 63 | 6f 6d 6d 61 6e 64 20 74 |Send a c|ommand t|
|000038b0| 6f 20 74 68 65 20 69 6e | 66 65 72 69 6f 72 20 4c |o the in|ferior L|
|000038c0| 69 73 70 20 74 6f 20 64 | 65 73 63 72 69 62 65 20 |isp to d|escribe |
|000038d0| 73 79 6d 62 6f 6c 20 53 | 59 4d 2e 0a 53 65 65 20 |symbol S|YM..See |
|000038e0| 76 61 72 69 61 62 6c 65 | 20 60 6c 69 73 70 2d 64 |variable| `lisp-d|
|000038f0| 65 73 63 72 69 62 65 2d | 73 79 6d 2d 63 6f 6d 6d |escribe-|sym-comm|
|00003900| 61 6e 64 27 2e 22 20 28 | 62 79 74 65 2d 63 6f 64 |and'." (|byte-cod|
|00003910| 65 20 22 c0 c1 c2 20 5c | 22 87 22 20 5b 6c 69 73 |e "... \|"." [lis|
|00003920| 70 2d 73 79 6d 70 72 6f | 6d 70 74 20 22 44 65 73 |p-sympro|mpt "Des|
|00003930| 63 72 69 62 65 22 20 6c | 69 73 70 2d 76 61 72 2d |cribe" l|isp-var-|
|00003940| 61 74 2d 70 74 5d 20 33 | 29 5d 29 0a 28 64 65 66 |at-pt] 3|)]).(def|
|00003950| 61 6c 69 61 73 20 28 71 | 75 6f 74 65 20 69 6e 66 |alias (q|uote inf|
|00003960| 65 72 69 6f 72 2d 6c 69 | 73 70 2d 70 72 6f 63 29 |erior-li|sp-proc)|
|00003970| 20 23 5b 6e 69 6c 20 22 | c0 09 c2 3d 83 0b 00 70 | #[nil "|...=...p|
|00003980| 82 5c 66 00 0b 21 89 1c | 86 15 00 c5 c6 21 29 87 |.\f..!..|.....!).|
|00003990| 22 20 5b 67 65 74 2d 62 | 75 66 66 65 72 2d 70 72 |" [get-b|uffer-pr|
|000039a0| 6f 63 65 73 73 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |ocess ma|jor-mode|
|000039b0| 20 69 6e 66 65 72 69 6f | 72 2d 6c 69 73 70 2d 6d | inferio|r-lisp-m|
|000039c0| 6f 64 65 20 69 6e 66 65 | 72 69 6f 72 2d 6c 69 73 |ode infe|rior-lis|
|000039d0| 70 2d 62 75 66 66 65 72 | 20 70 72 6f 63 20 65 72 |p-buffer| proc er|
|000039e0| 72 6f 72 20 22 4e 6f 20 | 4c 69 73 70 20 73 75 62 |ror "No |Lisp sub|
|000039f0| 70 72 6f 63 65 73 73 3b | 20 73 65 65 20 76 61 72 |process;| see var|
|00003a00| 69 61 62 6c 65 20 60 69 | 6e 66 65 72 69 6f 72 2d |iable `i|nferior-|
|00003a10| 6c 69 73 70 2d 62 75 66 | 66 65 72 27 22 5d 20 34 |lisp-buf|fer'"] 4|
|00003a20| 5d 29 0a 28 64 65 66 76 | 61 72 20 69 6e 66 65 72 |]).(defv|ar infer|
|00003a30| 69 6f 72 2d 6c 69 73 70 | 2d 6c 6f 61 64 2d 68 6f |ior-lisp|-load-ho|
|00003a40| 6f 6b 20 6e 69 6c 20 22 | 5c 0a 54 68 69 73 20 68 |ok nil "|\.This h|
|00003a50| 6f 6f 6b 20 69 73 20 72 | 75 6e 20 77 68 65 6e 20 |ook is r|un when |
|00003a60| 74 68 65 20 6c 69 62 72 | 61 72 79 20 60 69 6e 66 |the libr|ary `inf|
|00003a70| 2d 6c 69 73 70 27 20 69 | 73 20 6c 6f 61 64 65 64 |-lisp' i|s loaded|
|00003a80| 2e 0a 54 68 69 73 20 69 | 73 20 61 20 67 6f 6f 64 |..This i|s a good|
|00003a90| 20 70 6c 61 63 65 20 74 | 6f 20 70 75 74 20 6b 65 | place t|o put ke|
|00003aa0| 79 62 69 6e 64 69 6e 67 | 73 2e 22 29 0a 28 62 79 |ybinding|s.").(by|
|00003ab0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 88 c2 c3 21 |te-code |"..!...!|
|00003ac0| 87 22 20 5b 72 75 6e 2d | 68 6f 6f 6b 73 20 69 6e |." [run-|hooks in|
|00003ad0| 66 65 72 69 6f 72 2d 6c | 69 73 70 2d 6c 6f 61 64 |ferior-l|isp-load|
|00003ae0| 2d 68 6f 6f 6b 20 70 72 | 6f 76 69 64 65 20 69 6e |-hook pr|ovide in|
|00003af0| 66 2d 6c 69 73 70 5d 20 | 32 29 0a |f-lisp] |2). |
+--------+-------------------------+-------------------------+--------+--------+
