$ od -c -N 50000 [_CDCSL_93-16_]<1>emacs>local>tioga-scheme.elc 0000000 \n ( r e q u i r e ( q u o t e 0000020 t i o g a ) ) \n \n ( d e f v a 0000040 r t s c h e m e - i n d e n t 0000060 - s t a c k ) \n \n ( d e f u n 0000100 t s c h e m e - s t a r t - n o 0000120 d e ( f o r m a t - n a m e 0000140 l e v e l ) ( b y t e - c o d 0000160 e " \b 304 W 203 016 \0 305 \t B 211 021 202 ) 0000200 \0 \t @ 032 \n 306 307 \v \ " 203 \ " \0 310 \v 0000220 311 312 O ! 202 # \0 313 \ \ \t B 211 021 ) 207 0000240 " [ l e v e l t s c h e m e 0000260 - i n d e n t - s t a c k p a 0000300 r e n t - i n d e n t f o r m 0000320 a t - n a m e 2 0 s t r i 0000340 n g - m a t c h " ^ s c h e m 0000360 e \ \ ( [ 0 - 9 ] + \ \ ) $ " 0000400 s t r i n g - t o - i n t 6 0000420 n i l 3 ] 6 ) ) \n \n ( d e f 0000440 u n t s c h e m e - h a n d l 0000460 e - p r o p ( p r o p - n a m 0000500 e s t r ) ( b y t e - c o d 0000520 e " 305 \b 306 \ " 205 \v \0 307 310 \t \ " 0000540 205 # \0 \v @ 311 \t 312 313 314 ! O ! 034 032 \n 0000560 \f \ \ \v A B 211 023 * 207 " [ p r o 0000600 p - n a m e s t r o l d - i 0000620 n d e n t t s c h e m e - i n 0000640 d e n t - s t a c k i n c r e 0000660 m e n t s t r i n g = " p o 0000700 s t f i x " s t r i n g - m a 0000720 t c h " \ \ ( [ - 0 - 9 ] + \ 0000740 \ ) s p b i g g e r l e f 0000760 t I n d e n t " s t r i n g - 0001000 t o - i n t 0 m a t c h - e 0001020 n d 1 ] 8 ) ) \n \n ( d e f u 0001040 n t s c h e m e - a d d - l o 0001060 o k s ( l o o k s s t a r t 0001100 l e n ) ( b y t e - c o d e 0001120 " 300 207 " [ n i l ] 1 ) ) \n 0001140 \n ( d e f u n t s c h e m e - 0001160 i n s e r t - t e x t ( t e x 0001200 t c o m m e n t p l e v e l 0001220 ) ( b y t e - c o d e " \b 306 0001240 V 205 ' \0 \n @ 031 307 \t 310 \ " 033 311 \v ! 0001260 210 \f 205 034 \0 312 \r 306 H 313 \ " 205 \ " \0 0001300 311 314 ! 210 311 \r ! * 207 " [ l e v e 0001320 l i n d e n t t s c h e m e 0001340 - i n d e n t - s t a c k s p 0001360 a c e c o m m e n t p t e x 0001400 t 0 m a k e - s t r i n g 0001420 3 2 t s c h e m e - o u t s 0001440 / = 5 9 " ; ; " ] 6 ) ) 0001460 \n \n ( d e f u n t s c h e m e 0001500 - e n d - n o d e ( l e v e l 0001520 ) ( b y t e - c o d e " \b A 0001540 211 020 207 " [ t s c h e m e - i n 0001560 d e n t - s t a c k ] 2 ) ) \n 0001600 \n ( d e f v a r t s c h e m e 0001620 - o u t p u t - b u f f e r n 0001640 i l ) \n \n ( d e f u n t s c h 0001660 e m e - c o n v e r t - b u f f 0001700 e r n i l ( i n t e r a c t 0001720 i v e ) ( b y t e - c o d e 0001740 " 302 210 304 205 \n \0 305 306 ! 210 307 210 310 0001760 311 ! 211 020 210 302 031 312 216 313 314 315 316 317 320 0002000 % 210 212 \b q 210 321 e d 322 323 $ ) 210 324 0002020 210 325 \b ! 210 e b 210 326 327 302 303 # 205 G \0 0002040 330 331 303 \ " 210 202 7 \0 210 e b ) ) 207 " 0002060 [ t s c h e m e - o u t p u t 0002100 - b u f f e r t s c h e m e - 0002120 i n d e n t - s t a c k n i l 0002140 t b u f f e r - m o d i f i 0002160 e d - p e r r o r " I r e 0002200 f u s e t o T i o g a - C o 0002220 n v e r t a m o d i f i e d 0002240 b u f f e r . . . " b a r f 0002260 - i f - b u f f e r - r e a d - 0002300 o n l y g e n e r a t e - n e 0002320 w - b u f f e r b u f f e r - 0002340 n a m e ( ( b y t e - c o d e 0002360 " 302 \b ! 210 301 211 020 207 " [ t s c 0002400 h e m e - o u t p u t - b u f f 0002420 e r n i l k i l l - b u f f 0002440 e r ] 3 ) ) t i o g a - w a 0002460 l k - b u f f e r t s c h e m 0002500 e - s t a r t - n o d e t s c 0002520 h e m e - h a n d l e - p r o p 0002540 t s c h e m e - a d d - l o o 0002560 k s t s c h e m e - i n s e r 0002600 t - t e x t t s c h e m e - e 0002620 n d - n o d e s u b s t - c h 0002640 a r - i n - r e g i o n 1 3 0002660 1 0 e r a s e - b u f f e r 0002700 i n s e r t - b u f f e r s e 0002720 a r c h - f o r w a r d " 323 " 0002740 r e p l a c e - m a t c h " 0002760 ( C ) " ] 1 4 ) ) \n \n ( d e f 0003000 u n t s c h e m e - o u t s 0003020 ( s t r ) ( b y t e - c o d e 0003040 " 212 \b q 210 \t c ) 207 " [ t s c 0003060 h e m e - o u t p u t - b u f f 0003100 e r s t r ] 1 ) ) \n 0003114