$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>PREEMPTIVE.LCOM!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 036 P A C K A G E " I N T E
0000040 R L I S P " 036 R E A D T A B L
0000060 E " X C L " 036 B A S E 1 0
0000100 ) \r ( f i l e c r e a t e d "
0000120 5 - O c t - 8 7 1 4 : 4 6 :
0000140 4 9 " ( " c o m p i l e d o
0000160 n " { e r i n y e s } < l i
0000200 s p u s e r s > l y r i c > p r
0000220 e e m p t i v e . \ ; 4 ) \r "
0000240 2 7 - A p r - 8 7 1 6 : 4 8 :
0000260 4 9 " | b c o m p l ' d | |
0000300 i n | " X e r o x L i s p
0000320 2 4 - A u g - 8 7 . . . " |
0000340 d a t e d | " 2 4 - A u g - 8
0000360 7 1 6 : 1 6 : 1 1 " ) \r ( f i
0000400 l e c r e a t e d " 5 - O c
0000420 t - 8 7 1 4 : 4 5 : 5 1 " {
0000440 e r i n y e s } < l i s p u s e
0000460 r s > l y r i c > p r e e m p t
0000500 i v e . \ ; 4 2 5 9 5 | c h
0000520 a n g e s | | t o : | ( f n
0000540 s \r p r e e m p t i v e . b l
0000560 o c k ) | p r e v i o u s |
0000600 | d a t e : | " 2 9 - S e p -
0000620 8 7 1 1 : 0 3 : 3 1 " { p h
0000640 y l u m } < l i s p u s e r s >
0000660 l y r i c > p r e e m p t i v e
0000700 . \ ; 1 ) \r p r e e m p t i v e
0000720 . b l o c k : d 4 \r ( p 2
0000740 n a m e p 1 n p 0 \
0000760 \ i n t e r r u p t a b l e f
0001000 3 \ \ i n t e r r u p t a b
0001020 l e ) \0 324 003 001 \0 \0 S 264 003 202 261 \0
0001040 316 021 020 \0 \b \0 \0 006 \0 \0 312 \b 0 j 360 h
0001060 360 h 360 264 003 202 261 \0 260 m 377 021 021 002 I \t
0001100 \0 \0 Z g \0 \0 360 263 $ J g \0 \0 360 263 035
0001120 J g \0 \0 360 263 026 J g \0 \0 360 255 J g \0
0001140 \0 360 247 J d g \0 \0 360 226 277 I k 331 Y 260
0001160 320 g \0 \0 360 255 J g \0 \0 360 247 J d g \0
0001200 \0 360 223 277 h 260 N g \0 \0 360 263 @ J g \0
0001220 \0 360 263 9 J g \0 \0 360 263 2 J g \0 \0 360
0001240 263 + J g \0 \0 360 263 $ J g \0 \0 360 263 035
0001260 J g \0 \0 360 263 026 J g \0 \0 360 255 J g \0
0001300 \0 360 247 J d g \0 \0 360 222 277 h 205 \t \0 \0
0001320 263 233 i 022 264 022 ` \0 \0 j 360 265 \v \b \0 \0
0001340 277 ` \0 \0 j 360 022 264 005 \b \0 \0 020 \0 ( 2
0001360 0 9 b l o c k 1 9 7 g e t
0001400 m o u s e s t a t e 1 8 1 g
0001420 e n s y m ? 3 9 s t k n a m
0001440 e 1 2 t h i s . p r o c e s
0001460 s ) \r ( 2 0 1 l a s t m o u s
0001500 e b u t t o n s 1 9 0 l a s
0001520 t m o u s e b u t t o n s 1 7
0001540 3 \ \ b i t b l t s u b 1 6
0001560 6 \ \ t o t o p w d s 1 6 0
0001600 \ \ b l t s h a d e . b i t m
0001620 a p 1 5 3 \ \ b i t b l t .
0001640 b i t m a p 1 4 6 \ \ b i t
0001660 b l t . d i s p l a y 1 3 9
0001700 \ \ b l t s h a d e . d i s p l
0001720 a y 1 3 2 m e n u . h a n d
0001740 l e r 1 2 5 g e t m o u s e
0001760 s t a t e 1 1 8 t t w a i t
0002000 f o r i n p u t 1 1 1 g e t
0002020 k e y 1 0 2 \ \ i n t e r r
0002040 u p t f r a m e 9 5 \ \ i n
0002060 t e r r u p t e d 8 9 i n t
0002100 e r r u p t 7 7 i m o d 7
0002120 0 d s p d e s t i n a t i o n
0002140 6 4 t y p e n a m e 5 7
0002160 \ \ p e r i o d i c . i n t e r
0002200 r u p t f r a m e 5 0 s i :
0002220 : * u n w i n d - p r o t e c t
0002240 * 4 3 p r e e m p t i v e .
0002260 b l o c k 1 5 p r o c e s s
0002300 ) \r ( ) \r p r e e m p t i v e
0002320 : d 4 \r ( l ( 0 s t a t e )
0002340 f 0 \ \ p e r i o d i c .
0002360 i n t e r r u p t f 1 \ \
0002400 p e r i o d i c . i n t e r r u
0002420 p t . f r e q u e n c y ) \0 B
0002440 \0 002 \0 001 P g \0 \0 360 223 g \0 \0 202 g \0
0002460 \0 @ 262 2 @ \t \0 \0 g \0 \0 \n \0 \0 d g
0002500 \0 \0 360 234 277 l 016 c 002 277 g \0 \0 c \0 277
0002520 020 g \0 \0 360 224 h c \0 277 020 @ o \0 \0 \0
0002540 \n \0 \0 277 020 \0 ( 6 2 e r r o r
0002560 2 5 c l : i n t e r n 1 9
0002600 s t r i n g ) \r ( 4 7 : o f f
0002620 4 0 p r e e m p t i v e . b
0002640 l o c k 2 9 : o n 2 2 k
0002660 e y w o r d 1 2 : o f f 8
0002700 : o n 3 p r e e m p t i v
0002720 e . b l o c k ) \r ( 5 9 " n
0002740 o t v a l i d a r g u m e n
0002760 t " ) \r ( p r e t t y c o m p r
0003000 i n t p r e e m p t i v e c o
0003020 m s ) \r ( r p a q q p r e e m
0003040 p t i v e c o m s ( ( f n s
0003060 p r e e m p t i v e . b l o c k
0003100 p r e e m p t i v e ) ( d e
0003120 c l a r e \ : d o n t e v a l
0003140 @ l o a d d o c o p y ( p
0003160 ( \r p r e e m p t i v e ( q u
0003200 o t e : o n ) ) ) ) ( d e c
0003220 l a r e \ : e v a l @ c o m p
0003240 i l e d o n t c o p y ( p
0003260 ( o r ( h a s d e f ( q u o
0003300 t e p r o c e s s ) ( q u o
0003320 t e \r r e c o r d s ) ) ( e
0003340 v a l ( s y s r e c l o o k 1
0003360 ( q u o t e p r o c e s s )
0003400 ) ) ) ) ) ( a d v i s e m e
0003420 s s a g e d i s p l a y e r )
0003440 ( d e c l a r e \ : d o n t e
0003460 v a l @ l o a d \r d o e v a l
0003500 @ c o m p i l e d o n t c o p
0003520 y c o m p i l e r v a r s (
0003540 a d d v a r s ( n l a m a )
0003560 ( n l a m l ) ( l a m a p r
0003600 e e m p t i v e ) ) ) ) ) \r ( p
0003620 r e e m p t i v e ( q u o t e
0003640 : o n ) ) \r ( x c l : r e i n
0003660 s t a l l - a d v i c e ( q u
0003700 o t e m e s s a g e d i s p l
0003720 a y e r ) : b e f o r e ( q
0003740 u o t e ( ( : l a s t ( a l
0003760 l o w . b u t t o n . e v e n t
0004000 s ) ) ( : l a s t ( \r a l l
0004020 o w . b u t t o n . e v e n t s
0004040 ) ) ) ) ) \r ( r e a d v i s e
0004060 m e s s a g e d i s p l a y e r
0004100 ) \r ( p u t p r o p s p r e e
0004120 m p t i v e c o p y r i g h t
0004140 ( " X e r o x C o r p o r a
0004160 t i o n " 1 9 8 7 ) ) \r n i l
0004200 \r
0004201