/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / thingatpt.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 6b 77 7a 68 40 6d 6f |piled by| kwzh@mo|
|00000020| 6c 65 2e 67 6e 75 2e 61 | 69 2e 6d 69 74 2e 65 64 |le.gnu.a|i.mit.ed|
|00000030| 75 20 6f 6e 20 54 68 75 | 20 46 65 62 20 20 33 20 |u on Thu| Feb  3 |
|00000040| 31 33 3a 31 34 3a 33 33 | 20 31 39 39 34 0a 3b 3b |13:14:33| 1994.;;|
|00000050| 3b 20 66 72 6f 6d 20 66 | 69 6c 65 20 2f 67 64 2f |; from f|ile /gd/|
|00000060| 67 6e 75 2f 65 6d 61 63 | 73 2f 31 39 2e 30 2f 6c |gnu/emac|s/19.0/l|
|00000070| 69 73 70 2f 74 68 69 6e | 67 61 74 70 74 2e 65 6c |isp/thin|gatpt.el|
|00000080| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|00000090| 6f 6e 20 31 39 2e 32 32 | 2e 34 34 2e 0a 3b 3b 3b |on 19.22|.44..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 |  (error| "This f|
|000001a0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001b0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 22 29 29 | for Ema|cs 19"))|
|000001c0| 0a 0a 28 70 72 6f 76 69 | 64 65 20 28 71 75 6f 74 |..(provi|de (quot|
|000001d0| 65 20 74 68 69 6e 67 61 | 74 70 74 29 29 0a 28 64 |e thinga|tpt)).(d|
|000001e0| 65 66 61 6c 69 61 73 20 | 27 66 6f 72 77 61 72 64 |efalias |'forward|
|000001f0| 2d 74 68 69 6e 67 20 23 | 5b 28 54 48 49 4e 47 20 |-thing #|[(THING |
|00000200| 26 6f 70 74 69 6f 6e 61 | 6c 20 4e 29 20 22 08 c1 |&optiona|l N) "..|
|00000210| 4e 86 0c 00 c2 c3 c4 08 | 5c 22 21 19 c5 09 21 83 |N.......|\"!...!.|
|00000220| 1e 00 09 0e 06 86 1a 00 | c7 21 82 5c 22 00 c8 c9 |........|.!.\"...|
|00000230| 08 5c 22 29 87 22 20 5b | 54 48 49 4e 47 20 66 6f |.\")." [|THING fo|
|00000240| 72 77 61 72 64 2d 6f 70 | 20 69 6e 74 65 72 6e 2d |rward-op| intern-|
|00000250| 73 6f 66 74 20 66 6f 72 | 6d 61 74 20 22 66 6f 72 |soft for|mat "for|
|00000260| 77 61 72 64 2d 25 73 22 | 20 66 62 6f 75 6e 64 70 |ward-%s"| fboundp|
|00000270| 20 4e 20 31 20 65 72 72 | 6f 72 20 22 43 61 6e 27 | N 1 err|or "Can'|
|00000280| 74 20 64 65 74 65 72 6d | 69 6e 65 20 68 6f 77 20 |t determ|ine how |
|00000290| 74 6f 20 6d 6f 76 65 20 | 6f 76 65 72 20 25 73 73 |to move |over %ss|
|000002a0| 22 5d 20 34 20 22 5c 0a | 4d 6f 76 65 20 66 6f 72 |"] 4 "\.|Move for|
|000002b0| 77 61 72 64 20 74 6f 20 | 74 68 65 20 65 6e 64 20 |ward to |the end |
|000002c0| 6f 66 20 74 68 65 20 6e | 65 78 74 20 54 48 49 4e |of the n|ext THIN|
|000002d0| 47 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |G."]).(d|efalias |
|000002e0| 27 62 6f 75 6e 64 73 2d | 6f 66 2d 74 68 69 6e 67 |'bounds-|of-thing|
|000002f0| 2d 61 74 2d 70 6f 69 6e | 74 20 23 5b 28 54 48 49 |-at-poin|t #[(THI|
|00000300| 4e 47 29 20 22 60 18 c1 | c2 c3 8f 29 87 22 20 5b |NG) "`..|...)." [|
|00000310| 6f 72 69 67 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |orig nil| (byte-c|
|00000320| 6f 64 65 20 22 8a 08 c1 | 4e 86 08 00 c2 20 88 60 |ode "...|N.... .`|
|00000330| 08 c3 4e 86 12 00 c4 20 | 88 60 1d 1e 06 0d 85 34 |..N.... |.`.....4|
|00000340| 00 0e 06 85 34 00 0d 0e | 07 58 85 34 00 0e 07 0e |....4...|.X.4....|
|00000350| 06 57 85 34 00 0d 0e 06 | 42 2b 87 22 20 5b 54 48 |.W.4....|B+." [TH|
|00000360| 49 4e 47 20 65 6e 64 2d | 6f 70 20 23 5b 6e 69 6c |ING end-|op #[nil|
|00000370| 20 22 c0 09 c2 5c 22 87 | 22 20 5b 66 6f 72 77 61 | "...\".|" [forwa|
|00000380| 72 64 2d 74 68 69 6e 67 | 20 54 48 49 4e 47 20 31 |rd-thing| THING 1|
|00000390| 5d 20 33 5d 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |] 3] beg|inning-o|
|000003a0| 70 20 23 5b 6e 69 6c 20 | 22 c0 09 c2 5c 22 87 22 |p #[nil |"...\"."|
|000003b0| 20 5b 66 6f 72 77 61 72 | 64 2d 74 68 69 6e 67 20 | [forwar|d-thing |
|000003c0| 54 48 49 4e 47 20 2d 31 | 5d 20 33 5d 20 62 65 67 |THING -1|] 3] beg|
|000003d0| 20 65 6e 64 20 6f 72 69 | 67 5d 20 33 29 20 28 28 | end ori|g] 3) ((|
|000003e0| 65 72 72 6f 72 29 29 5d | 20 33 20 22 5c 0a 44 65 |error))]| 3 "\.De|
|000003f0| 74 65 72 6d 69 6e 65 20 | 74 68 65 20 73 74 61 72 |termine |the star|
|00000400| 74 20 61 6e 64 20 65 6e | 64 20 62 75 66 66 65 72 |t and en|d buffer|
|00000410| 20 6c 6f 63 61 74 69 6f | 6e 73 20 66 6f 72 20 74 | locatio|ns for t|
|00000420| 68 65 20 54 48 49 4e 47 | 20 61 74 20 70 6f 69 6e |he THING| at poin|
|00000430| 74 2c 0a 77 68 65 72 65 | 20 54 48 49 4e 47 20 69 |t,.where| THING i|
|00000440| 73 20 61 6e 20 65 6e 74 | 69 74 79 20 66 6f 72 20 |s an ent|ity for |
|00000450| 77 68 69 63 68 20 74 68 | 65 72 65 20 69 73 20 61 |which th|ere is a|
|00000460| 20 65 69 74 68 65 72 20 | 61 20 63 6f 72 72 65 73 | either |a corres|
|00000470| 70 6f 6e 64 69 6e 67 0a | 66 6f 72 77 61 72 64 2d |ponding.|forward-|
|00000480| 54 48 49 4e 47 20 6f 70 | 65 72 61 74 69 6f 6e 2c |THING op|eration,|
|00000490| 20 6f 72 20 63 6f 72 72 | 65 73 70 6f 6e 64 69 6e | or corr|espondin|
|000004a0| 67 20 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 54 |g beginn|ing-of-T|
|000004b0| 48 49 4e 47 20 61 6e 64 | 0a 65 6e 64 2d 6f 66 2d |HING and|.end-of-|
|000004c0| 54 48 49 4e 47 20 6f 70 | 65 72 61 74 69 6f 6e 73 |THING op|erations|
|000004d0| 2c 20 65 67 2e 20 27 77 | 6f 72 64 2c 20 27 73 65 |, eg. 'w|ord, 'se|
|000004e0| 6e 74 65 6e 63 65 2c 20 | 27 64 65 66 75 6e 2e 0a |ntence, |'defun..|
|000004f0| 20 20 52 65 74 75 72 6e | 20 61 20 63 6f 6e 73 20 |  Return| a cons |
|00000500| 63 65 6c 6c 20 27 28 73 | 74 61 72 74 20 2e 20 65 |cell '(s|tart . e|
|00000510| 6e 64 29 20 67 69 76 69 | 6e 67 20 74 68 65 20 73 |nd) givi|ng the s|
|00000520| 74 61 72 74 20 61 6e 64 | 20 65 6e 64 20 70 6f 73 |tart and| end pos|
|00000530| 69 74 69 6f 6e 73 2e 22 | 5d 29 0a 28 64 65 66 61 |itions."|]).(defa|
|00000540| 6c 69 61 73 20 27 74 68 | 69 6e 67 2d 61 74 2d 70 |lias 'th|ing-at-p|
|00000550| 6f 69 6e 74 20 23 5b 28 | 54 48 49 4e 47 29 20 22 |oint #[(|THING) "|
|00000560| c0 09 21 89 1a 85 0d 00 | 5c 6e 40 5c 6e 41 7b 29 |..!.....|\n@\nA{)|
|00000570| 87 22 20 5b 62 6f 75 6e | 64 73 2d 6f 66 2d 74 68 |." [boun|ds-of-th|
|00000580| 69 6e 67 2d 61 74 2d 70 | 6f 69 6e 74 20 54 48 49 |ing-at-p|oint THI|
|00000590| 4e 47 20 62 6f 75 6e 64 | 73 5d 20 33 20 22 5c 0a |NG bound|s] 3 "\.|
|000005a0| 52 65 74 75 72 6e 20 74 | 68 65 20 54 48 49 4e 47 |Return t|he THING|
|000005b0| 20 61 74 20 70 6f 69 6e | 74 2c 20 77 68 65 72 65 | at poin|t, where|
|000005c0| 20 54 48 49 4e 47 20 69 | 73 20 61 6e 20 65 6e 74 | THING i|s an ent|
|000005d0| 69 74 79 20 64 65 66 69 | 6e 65 64 20 62 79 0a 62 |ity defi|ned by.b|
|000005e0| 6f 75 6e 64 73 2d 6f 66 | 2d 74 68 69 6e 67 2d 61 |ounds-of|-thing-a|
|000005f0| 74 2d 70 6f 69 6e 74 2e | 22 5d 29 0a 28 62 79 74 |t-point.|"]).(byt|
|00000600| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c0 c3 |e-code "|...\"...|
|00000610| c4 5c 22 88 c0 c5 c6 5c | 22 88 c0 c7 c8 5c 22 88 |.\"....\|"....\".|
|00000620| c9 ca cb c7 23 88 c9 cc | cb cd 23 88 c9 cc ce cf |....#...|..#.....|
|00000630| 23 87 22 20 5b 64 65 66 | 61 6c 69 61 73 20 62 65 |#." [def|alias be|
|00000640| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 74 68 69 6e 67 |ginning-|of-thing|
|00000650| 20 23 5b 28 54 48 49 4e | 47 29 20 22 c0 09 21 89 | #[(THIN|G) "..!.|
|00000660| 1a 84 0d 00 c3 c4 09 5c | 22 88 5c 6e 40 62 29 87 |.......\|".\n@b).|
|00000670| 22 20 5b 62 6f 75 6e 64 | 73 2d 6f 66 2d 74 68 69 |" [bound|s-of-thi|
|00000680| 6e 67 2d 61 74 2d 70 6f | 69 6e 74 20 54 48 49 4e |ng-at-po|int THIN|
|00000690| 47 20 62 6f 75 6e 64 73 | 20 65 72 72 6f 72 20 22 |G bounds| error "|
|000006a0| 4e 6f 20 25 73 20 68 65 | 72 65 22 5d 20 34 5d 20 |No %s he|re"] 4] |
|000006b0| 65 6e 64 2d 6f 66 2d 74 | 68 69 6e 67 20 23 5b 28 |end-of-t|hing #[(|
|000006c0| 54 48 49 4e 47 29 20 22 | c0 09 21 89 1a 84 0d 00 |THING) "|..!.....|
|000006d0| c3 c4 09 5c 22 88 5c 6e | 41 62 29 87 22 20 5b 62 |...\".\n|Ab)." [b|
|000006e0| 6f 75 6e 64 73 2d 6f 66 | 2d 74 68 69 6e 67 2d 61 |ounds-of|-thing-a|
|000006f0| 74 2d 70 6f 69 6e 74 20 | 54 48 49 4e 47 20 62 6f |t-point |THING bo|
|00000700| 75 6e 64 73 20 65 72 72 | 6f 72 20 22 4e 6f 20 25 |unds err|or "No %|
|00000710| 73 20 68 65 72 65 22 5d | 20 34 5d 20 69 6e 2d 73 |s here"]| 4] in-s|
|00000720| 74 72 69 6e 67 2d 70 20 | 23 5b 6e 69 6c 20 22 60 |tring-p |#[nil "`|
|00000730| 18 8a c1 20 88 c2 c3 60 | 08 5c 22 38 2a 87 22 20 |... ...`|.\"8*." |
|00000740| 5b 6f 72 69 67 20 62 65 | 67 69 6e 6e 69 6e 67 2d |[orig be|ginning-|
|00000750| 6f 66 2d 64 65 66 75 6e | 20 33 20 70 61 72 73 65 |of-defun| 3 parse|
|00000760| 2d 70 61 72 74 69 61 6c | 2d 73 65 78 70 5d 20 34 |-partial|-sexp] 4|
|00000770| 5d 20 65 6e 64 2d 6f 66 | 2d 73 65 78 70 20 23 5b |] end-of|-sexp #[|
|00000780| 6e 69 6c 20 22 60 66 7a | 89 18 c1 3d 84 15 00 08 |nil "`fz|...=....|
|00000790| c2 3d 83 1a 00 c3 20 83 | 1a 00 c4 75 82 1d 00 c5 |.=.... .|...u....|
|000007a0| c4 21 29 87 22 20 5b 63 | 68 61 72 2d 73 79 6e 74 |.!)." [c|har-synt|
|000007b0| 61 78 20 34 31 20 33 34 | 20 69 6e 2d 73 74 72 69 |ax 41 34| in-stri|
|000007c0| 6e 67 2d 70 20 31 20 66 | 6f 72 77 61 72 64 2d 73 |ng-p 1 f|orward-s|
|000007d0| 65 78 70 5d 20 33 5d 20 | 70 75 74 20 73 65 78 70 |exp] 3] |put sexp|
|000007e0| 20 65 6e 64 2d 6f 70 20 | 6c 69 73 74 20 23 5b 6e | end-op |list #[n|
|000007f0| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 75 70 2d 6c 69 |il "..!.|" [up-li|
|00000800| 73 74 20 31 5d 20 32 5d | 20 62 65 67 69 6e 6e 69 |st 1] 2]| beginni|
|00000810| 6e 67 2d 6f 70 20 62 61 | 63 6b 77 61 72 64 2d 73 |ng-op ba|ckward-s|
|00000820| 65 78 70 5d 20 34 29 0a | 28 64 65 66 76 61 72 20 |exp] 4).|(defvar |
|00000830| 66 69 6c 65 2d 6e 61 6d | 65 2d 63 68 61 72 73 20 |file-nam|e-chars |
|00000840| 22 7e 2f 41 2d 5a 61 2d | 7a 30 2d 39 2d 2d 2d 5f |"~/A-Za-|z0-9---_|
|00000850| 2e 24 7b 7d 23 25 2c 22 | 20 22 5c 0a 43 68 61 72 |.${}#%,"| "\.Char|
|00000860| 61 63 74 65 72 73 20 61 | 6c 6c 6f 77 61 62 6c 65 |acters a|llowable|
|00000870| 20 69 6e 20 66 69 6c 65 | 6e 61 6d 65 73 2e 22 29 | in file|names.")|
|00000880| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00000890| c3 23 88 c0 c1 c4 c5 23 | 88 c6 c7 c8 5c 22 88 c0 |.#.....#|....\"..|
|000008a0| c9 c2 ca 23 88 c0 c9 c4 | cb 23 88 c6 cc cd 5c 22 |...#....|.#....\"|
|000008b0| 88 c6 ce cf 5c 22 88 c6 | d0 d1 5c 22 87 22 20 5b |....\"..|..\"." [|
|000008c0| 70 75 74 20 66 69 6c 65 | 6e 61 6d 65 20 65 6e 64 |put file|name end|
|000008d0| 2d 6f 70 20 23 5b 6e 69 | 6c 20 22 08 c1 77 87 22 |-op #[ni|l "..w."|
|000008e0| 20 5b 66 69 6c 65 2d 6e | 61 6d 65 2d 63 68 61 72 | [file-n|ame-char|
|000008f0| 73 20 6e 69 6c 5d 20 32 | 5d 20 62 65 67 69 6e 6e |s nil] 2|] beginn|
|00000900| 69 6e 67 2d 6f 70 20 23 | 5b 6e 69 6c 20 22 08 65 |ing-op #|[nil ".e|
|00000910| 78 87 22 20 5b 66 69 6c | 65 2d 6e 61 6d 65 2d 63 |x." [fil|e-name-c|
|00000920| 68 61 72 73 5d 20 32 5d | 20 64 65 66 61 6c 69 61 |hars] 2]| defalia|
|00000930| 73 20 66 6f 72 77 61 72 | 64 2d 77 68 69 74 65 73 |s forwar|d-whites|
|00000940| 70 61 63 65 20 23 5b 28 | 41 52 47 29 20 22 c0 09 |pace #[(|ARG) "..|
|00000950| 21 83 0d 00 c2 c3 c4 89 | 09 24 87 09 c5 57 85 2e |!.......|.$...W..|
|00000960| 00 c6 c3 c4 89 23 83 27 | 00 c5 94 66 c7 3d 84 27 |.....#.'|...f.=.'|
|00000970| 00 c8 c4 78 88 09 54 89 | 11 82 0e 00 87 22 20 5b |...x..T.|....." [|
|00000980| 6e 61 74 6e 75 6d 70 20 | 41 52 47 20 72 65 2d 73 |natnump |ARG re-s|
|00000990| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5b |earch-fo|rward "[|
|000009a0| 20 09 5d 2b 5c 5c 7c 5c | 6e 22 20 6e 69 6c 20 30 | .]+\\|\|n" nil 0|
|000009b0| 20 72 65 2d 73 65 61 72 | 63 68 2d 62 61 63 6b 77 | re-sear|ch-backw|
|000009c0| 61 72 64 20 31 30 20 22 | 20 09 22 5d 20 36 20 6e |ard 10 "| ."] 6 n|
|000009d0| 69 6c 20 22 70 22 5d 20 | 62 75 66 66 65 72 20 65 |il "p"] |buffer e|
|000009e0| 6e 64 2d 6f 66 2d 62 75 | 66 66 65 72 20 62 65 67 |nd-of-bu|ffer beg|
|000009f0| 69 6e 6e 69 6e 67 2d 6f | 66 2d 62 75 66 66 65 72 |inning-o|f-buffer|
|00000a00| 20 66 6f 72 77 61 72 64 | 2d 73 79 6d 62 6f 6c 20 | forward|-symbol |
|00000a10| 23 5b 28 41 52 47 29 20 | 22 c0 09 21 83 0d 00 c2 |#[(ARG) |"..!....|
|00000a20| c3 c4 89 09 24 87 09 c5 | 57 85 26 00 c6 c3 c4 89 |....$...|W.&.....|
|00000a30| 23 83 1f 00 c7 c8 21 88 | 09 54 89 11 82 0e 00 87 |#.....!.|.T......|
|00000a40| 22 20 5b 6e 61 74 6e 75 | 6d 70 20 41 52 47 20 72 |" [natnu|mp ARG r|
|00000a50| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00000a60| 20 22 5c 5c 28 5c 5c 73 | 77 5c 5c 7c 5c 5c 73 5f | "\\(\\s|w\\|\\s_|
|00000a70| 5c 5c 29 2b 22 20 6e 69 | 6c 20 30 20 72 65 2d 73 |\\)+" ni|l 0 re-s|
|00000a80| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 73 |earch-ba|ckward s|
|00000a90| 6b 69 70 2d 73 79 6e 74 | 61 78 2d 62 61 63 6b 77 |kip-synt|ax-backw|
|00000aa0| 61 72 64 20 22 77 5f 22 | 5d 20 36 20 6e 69 6c 20 |ard "w_"|] 6 nil |
|00000ab0| 22 70 22 5d 20 77 6f 72 | 64 2d 61 74 2d 70 6f 69 |"p"] wor|d-at-poi|
|00000ac0| 6e 74 20 23 5b 6e 69 6c | 20 22 c0 c1 21 87 22 20 |nt #[nil| "..!." |
|00000ad0| 5b 74 68 69 6e 67 2d 61 | 74 2d 70 6f 69 6e 74 20 |[thing-a|t-point |
|00000ae0| 77 6f 72 64 5d 20 32 5d | 20 73 65 6e 74 65 6e 63 |word] 2]| sentenc|
|00000af0| 65 2d 61 74 2d 70 6f 69 | 6e 74 20 23 5b 6e 69 6c |e-at-poi|nt #[nil|
|00000b00| 20 22 c0 c1 21 87 22 20 | 5b 74 68 69 6e 67 2d 61 | "..!." |[thing-a|
|00000b10| 74 2d 70 6f 69 6e 74 20 | 73 65 6e 74 65 6e 63 65 |t-point |sentence|
|00000b20| 5d 20 32 5d 5d 20 34 29 | 0a 28 64 65 66 61 6c 69 |] 2]] 4)|.(defali|
|00000b30| 61 73 20 27 72 65 61 64 | 2d 66 72 6f 6d 2d 77 68 |as 'read|-from-wh|
|00000b40| 6f 6c 65 2d 73 74 72 69 | 6e 67 20 23 5b 28 53 54 |ole-stri|ng #[(ST|
|00000b50| 52 29 20 22 c0 09 21 1a | c3 c4 c5 8f 89 1e 06 83 |R) "..!.|........|
|00000b60| 14 00 c7 c8 21 82 16 00 | 5c 6e 40 2a 87 22 20 5b |....!...|\n@*." [|
|00000b70| 72 65 61 64 2d 66 72 6f | 6d 2d 73 74 72 69 6e 67 |read-fro|m-string|
|00000b80| 20 53 54 52 20 72 65 61 | 64 2d 64 61 74 61 20 6e | STR rea|d-data n|
|00000b90| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |il (byte|-code ".|
|00000ba0| 09 5c 6e 41 c3 4f 21 88 | c4 87 22 20 5b 72 65 61 |.\nA.O!.|.." [rea|
|00000bb0| 64 2d 66 72 6f 6d 2d 73 | 74 72 69 6e 67 20 53 54 |d-from-s|tring ST|
|00000bc0| 52 20 72 65 61 64 2d 64 | 61 74 61 20 6e 69 6c 20 |R read-d|ata nil |
|00000bd0| 74 5d 20 34 29 20 28 28 | 65 6e 64 2d 6f 66 2d 66 |t] 4) ((|end-of-f|
|00000be0| 69 6c 65 29 29 20 6d 6f | 72 65 2d 6c 65 66 74 20 |ile)) mo|re-left |
|00000bf0| 65 72 72 6f 72 20 22 43 | 61 6e 27 74 20 72 65 61 |error "C|an't rea|
|00000c00| 64 20 77 68 6f 6c 65 20 | 73 74 72 69 6e 67 22 5d |d whole |string"]|
|00000c10| 20 34 20 22 5c 0a 52 65 | 61 64 20 61 20 6c 69 73 | 4 "\.Re|ad a lis|
|00000c20| 70 20 65 78 70 72 65 73 | 73 69 6f 6e 20 66 72 6f |p expres|sion fro|
|00000c30| 6d 20 53 54 52 2c 20 73 | 69 67 6e 61 6c 6c 69 6e |m STR, s|ignallin|
|00000c40| 67 20 61 6e 20 65 72 72 | 6f 72 20 69 66 20 74 68 |g an err|or if th|
|00000c50| 65 20 65 6e 74 69 72 65 | 20 73 74 72 69 6e 67 0a |e entire| string.|
|00000c60| 77 61 73 20 6e 6f 74 20 | 75 73 65 64 2e 22 5d 29 |was not |used."])|
|00000c70| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00000c80| 5c 22 88 c0 c3 c4 5c 22 | 88 c0 c5 c6 5c 22 88 c0 |\"....\"|....\"..|
|00000c90| c7 c8 5c 22 88 c0 c9 ca | 5c 22 87 22 20 5b 64 65 |..\"....|\"." [de|
|00000ca0| 66 61 6c 69 61 73 20 66 | 6f 72 6d 2d 61 74 2d 70 |falias f|orm-at-p|
|00000cb0| 6f 69 6e 74 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |oint #[(|&optiona|
|00000cc0| 6c 20 54 48 49 4e 47 20 | 50 52 45 44 29 20 22 c0 |l THING |PRED) ".|
|00000cd0| c1 c2 8f 1b 0c 83 0f 00 | 0c 0b 21 85 10 00 0b 29 |........|..!....)|
|00000ce0| 87 22 20 5b 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |." [nil |(byte-co|
|00000cf0| 64 65 20 22 c0 c1 5c 6e | 86 07 00 c3 21 21 87 22 |de "..\n|....!!."|
|00000d00| 20 5b 72 65 61 64 2d 66 | 72 6f 6d 2d 77 68 6f 6c | [read-f|rom-whol|
|00000d10| 65 2d 73 74 72 69 6e 67 | 20 74 68 69 6e 67 2d 61 |e-string| thing-a|
|00000d20| 74 2d 70 6f 69 6e 74 20 | 54 48 49 4e 47 20 73 65 |t-point |THING se|
|00000d30| 78 70 5d 20 33 29 20 28 | 28 65 72 72 6f 72 29 29 |xp] 3) (|(error))|
|00000d40| 20 73 65 78 70 20 50 52 | 45 44 5d 20 33 5d 20 73 | sexp PR|ED] 3] s|
|00000d50| 65 78 70 2d 61 74 2d 70 | 6f 69 6e 74 20 23 5b 6e |exp-at-p|oint #[n|
|00000d60| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 66 6f 72 6d 2d |il "..!.|" [form-|
|00000d70| 61 74 2d 70 6f 69 6e 74 | 20 73 65 78 70 5d 20 32 |at-point| sexp] 2|
|00000d80| 5d 20 73 79 6d 62 6f 6c | 2d 61 74 2d 70 6f 69 6e |] symbol|-at-poin|
|00000d90| 74 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 5c 22 87 22 |t #[nil |"...\"."|
|00000da0| 20 5b 66 6f 72 6d 2d 61 | 74 2d 70 6f 69 6e 74 20 | [form-a|t-point |
|00000db0| 73 65 78 70 20 73 79 6d | 62 6f 6c 70 5d 20 33 5d |sexp sym|bolp] 3]|
|00000dc0| 20 6e 75 6d 62 65 72 2d | 61 74 2d 70 6f 69 6e 74 | number-|at-point|
|00000dd0| 20 23 5b 6e 69 6c 20 22 | c0 c1 c2 5c 22 87 22 20 | #[nil "|...\"." |
|00000de0| 5b 66 6f 72 6d 2d 61 74 | 2d 70 6f 69 6e 74 20 73 |[form-at|-point s|
|00000df0| 65 78 70 20 6e 75 6d 62 | 65 72 70 5d 20 33 5d 20 |exp numb|erp] 3] |
|00000e00| 6c 69 73 74 2d 61 74 2d | 70 6f 69 6e 74 20 23 5b |list-at-|point #[|
|00000e10| 6e 69 6c 20 22 c0 c1 c2 | 5c 22 87 22 20 5b 66 6f |nil "...|\"." [fo|
|00000e20| 72 6d 2d 61 74 2d 70 6f | 69 6e 74 20 6c 69 73 74 |rm-at-po|int list|
|00000e30| 20 6c 69 73 74 70 5d 20 | 33 5d 5d 20 33 29 0a    | listp] |3]] 3). |
+--------+-------------------------+-------------------------+--------+--------+