$ od -c -N 50000 [eris]<Lisp>Carol>LISPUSERS>NOBOX.DCOM!1
0000000 ( F I L E C R E A T E D " 1 3
0000020 - F E B - 8 3 1 9 : 0 9 : 2 9
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P U
0000100 S E R S > N O B O X . ; 6 ) "
0000120 1 9 - J A N - 8 3 1 8 : 4 2 :
0000140 1 6 " \r r e c o m p i l e d
0000160 e x p r s : n o t h i n g i
0000200 n W O R K d a t e d " 1 9
0000220 - J A N - 8 3 1 8 : 4 9 : 2 2
0000240 " ) \r ( F I L E C R E A T E D
0000260 " 1 3 - F E B - 8 3 1 9 : 0 9
0000300 : 1 7 " { P H Y L U M } < L I
0000320 S P U S E R S > N O B O X . ; 6
0000340 5 6 4 4 c h a n g e s t o
0000360 : ( M A C R O S F B O X I
0000400 B O X ) \r p r e v i o u s d
0000420 a t e : " 9 - F E B - 8 3
0000440 2 1 : 4 1 : 4 3 " { P H Y L U
0000460 M } < L I S P U S E R S > N O B
0000500 O X . ; 5 ) \r I B O X D 1 \r (
0000520 I 0 I V A L F 0 \ F I
0000540 X P ) \0 020 \0 001 \0 001 P 037 d @ 265 006
0000560 o \0 \0 \0 \n \0 \0 277 020 \0 ( 1 4 Q P
0000600 u t U n b o x e d ) \r N I L \r (
0000620 1 1 Q 3 0 3 2 4 0 Q ) \r F B O
0000640 X D 1 \r ( I 0 F V A L F
0000660 0 \ F L O A T P ) \0 020 \0 001
0000700 \0 001 P 037 d @ 265 006 o \0 \0 \0 \n \0 \0 277
0000720 020 \0 ( 1 4 Q P u t F l o a t )
0000740 \r N I L \r ( 1 1 Q 0 . 0 ) \r N
0000760 B O X D 1 \r ( I 0 N V A L
0001000 F 0 \ F L O A T P F 1
0001020 \ F I X P ) \0 027 \0 002 \0 001 @ 005
0001040 003 230 P 037 d @ \n \0 \0 277 020 Q 037 d @ \n
0001060 \0 \0 277 020 \0 ( 2 3 Q P u t U n b
0001100 o x e d 1 2 Q P u t F l o a
0001120 t ) \r N I L \r N I L \r ( P R E T
0001140 T Y C O M P R I N T N O B O X
0001160 C O M S ) \r ( R P A Q Q N O B
0001200 O X C O M S ( ( * u s e o
0001220 f t h i s p a c k a g e i
0001240 s n o t r e c o m m e n d e
0001260 d f o r i n t e r l i s p -
0001300 d . i t i s s u p p l i e
0001320 d f o r \r c o m p a t i b i
0001340 l i t y w i t h o l d c o
0001360 d e ) ( F N S I B O X F B
0001400 O X N B O X ) ( P ( M O V
0001420 D ? ( Q U O T E L I S T )
0001440 ( Q U O T E L B O X ) ) ( M
0001460 O V D ? ( Q U O T E \r C O N
0001500 S ) ( Q U O T E C B O X ) )
0001520 ) ( D E C L A R E : E V A L
0001540 @ C O M P I L E ( R E C O R D
0001560 S F B O X I B O X ) ( M A
0001600 C R O S N O B O X . M A K E F
0001620 L O A T \r N O B O X . M A K E
0001640 L A R G E ) ( M A C R O S I
0001660 B O X F B O X N B O X ) (
0001700 M A C R O S C B O X L B O X
0001720 ) ( I . S . O P R S s c r a
0001740 t c h c o l l e c t ) ( A D D
0001760 V A R S ( \r S Y S L O C A L V
0002000 A R S $ $ S C C O N S $ $ S
0002020 C P T R ) ( I N V I S I B L E
0002040 V A R S $ $ S C C O N S $ $
0002060 S C P T R ) ) ) ) ) \r ( M O V D
0002100 ? ( Q U O T E L I S T ) (
0002120 Q U O T E L B O X ) ) \r ( M O
0002140 V D ? ( Q U O T E C O N S )
0002160 ( Q U O T E C B O X ) ) \r (
0002200 D E C L A R E : E V A L @ C O
0002220 M P I L E ( B L O C K R E C O
0002240 R D F B O X ( ( F F L O A
0002260 T I N G ) ) ( C R E A T E (
0002300 N O B O X . M A K E F L O A T )
0002320 ) ) ( B L O C K R E C O R D
0002340 I B O X \r ( ( I I N T E G E
0002360 R ) ) ( C R E A T E ( N O B
0002400 O X . M A K E L A R G E ) ) ) )
0002420 \r ( D E C L A R E : E V A L @
0002440 C O M P I L E ( P U T P R O P
0002460 S N O B O X . M A K E F L O A
0002500 T 1 0 M A C R O ( N I L (
0002520 F P L U S 0 . 0 ) ) ) ( P U
0002540 T P R O P S N O B O X . M A K
0002560 E F L O A T \r D M A C R O (
0002600 N I L ( C R E A T E C E L L
0002620 ( C O N S T A N T \ F L O A T
0002640 P ) ) ) ) ( P U T P R O P S
0002660 N O B O X . M A K E L A R G E
0002700 1 0 M A C R O ( N I L ( I P
0002720 L U S 1 0 0 0 0 0 0 ) ) ) \r
0002740 ( P U T P R O P S N O B O X .
0002760 M A K E L A R G E D M A C R O
0003000 ( N I L ( C R E A T E C E L
0003020 L ( C O N S T A N T \ F I X
0003040 P ) ) ) ) ) \r ( D E C L A R E :
0003060 E V A L @ C O M P I L E ( P
0003100 U T P R O P S I B O X 1 0 M
0003120 A C R O ( A R G S ( C O N D
0003140 ( ( C A R A R G S ) ( L I
0003160 S T ( Q U O T E A S S E M B
0003200 L E ) N I L ( L I S T \r (
0003220 Q U O T E C Q ) ( L I S T
0003240 ( Q U O T E V A G ) ( L I S
0003260 T ( Q U O T E F I X ) ( C
0003300 A R A R G S ) ) ) ) ( Q U O
0003320 T E ( M O V E 2 , 1 ) )
0003340 ( L I S T ( Q U O T E C Q
0003360 ) ( \r c r e a t e I B O X )
0003400 ) ( Q U O T E ( M O V E M
0003420 2 , 0 ( 1 ) ) ) ) ) ( T
0003440 ( Q U O T E ( c r e a t e
0003460 I B O X ) ) ) ) ) ) ( P U T P
0003500 R O P S I B O X D M A C R O
0003520 ( A R G S ( \r C O N D ( A
0003540 R G S ( A P P E N D ( Q U O
0003560 T E ( c r e a t e I B O X
0003600 s m a s h i n g ( C O N S T A
0003620 N T ( c r e a t e I B O X )
0003640 ) I _ ) ) A R G S ) ) (
0003660 T ( Q U O T E ( \r c r e a t
0003700 e I B O X ) ) ) ) ) ) ( P U
0003720 T P R O P S F B O X 1 0 M A
0003740 C R O ( A R G S ( C O N D
0003760 ( ( C A R A R G S ) ( L I S
0004000 T ( Q U O T E A S S E M B L
0004020 E ) N I L ( L I S T ( \r Q
0004040 U O T E C Q ) ( L I S T (
0004060 Q U O T E V A G ) ( L I S T
0004100 ( Q U O T E F L O A T ) (
0004120 C A R A R G S ) ) ) ) ( Q U
0004140 O T E ( M O V E 2 , 1 )
0004160 ) ( L I S T ( Q U O T E C
0004200 Q ) ( \r c r e a t e F B O X
0004220 ) ) ( Q U O T E ( M O V E M
0004240 2 , 0 ( 1 ) ) ) ) ) (
0004260 T ( Q U O T E ( c r e a t e
0004300 F B O X ) ) ) ) ) ) ( P U T
0004320 P R O P S F B O X D M A C R
0004340 O ( A R G S ( \r C O N D (
0004360 A R G S ( A P P E N D ( Q U
0004400 O T E ( c r e a t e F B O X
0004420 s m a s h i n g ( C O N S T
0004440 A N T ( c r e a t e F B O X
0004460 ) ) F _ ) ) A R G S ) )
0004500 ( T ( Q U O T E ( \r c r e a
0004520 t e F B O X ) ) ) ) ) ) ( P
0004540 U T P R O P S N B O X 1 0 M
0004560 A C R O ( A R G S ( S U B P
0004600 A I R ( Q U O T E ( N V A L
0004620 F B O X ) ) ( L I S T ( C
0004640 A R A R G S ) ( c r e a t e
0004660 \r F B O X ) ) ( Q U O T E
0004700 ( A S S E M B L E N I L ( C
0004720 Q N V A L ) ( C Q ( C O N
0004740 D ( ( F L O A T P ( A C ) )
0004760 ( A S S E M B L E N I L (
0005000 M O V E 2 , 0 ( 1 ) )
0005020 ( C Q F B O X \r ) ( M O V E
0005040 M 2 , 0 ( 1 ) ) ) ) (
0005060 T ( I B O X ( A C ) ) ) ) )
0005100 ) ) ) ) ) ( P U T P R O P S
0005120 N B O X D M A C R O ( O P E
0005140 N L A M B D A ( N V A L ) (
0005160 C O N D ( ( F L O A T P \r N
0005200 V A L ) ( F B O X N V A L )
0005220 ) ( T ( I B O X N V A L )
0005240 ) ) ) ) ) \r ( D E C L A R E :
0005260 E V A L @ C O M P I L E ( P U
0005300 T P R O P S C B O X M A C R
0005320 O ( ( X Y ) ( F R P L N O
0005340 D E ( C O N S T A N T ( C O
0005360 N S ) ) X Y ) ) ) ( P U T
0005400 P R O P S C B O X \r D M A C
0005420 R O ( = . C O N S ) ) (
0005440 P U T P R O P S L B O X M A
0005460 C R O ( A R G L I S T ( P R
0005500 O G ( N I L I S T ( F O R M
0005520 ( Q U O T E $ X $ ) ) ) (
0005540 M A P A R G L I S T ( \r F U
0005560 N C T I O N ( L A M B D A (
0005600 A R G ) ( S E T Q N I L I S
0005620 T ( C O N S N I L N I L I
0005640 S T ) ) ( S E T Q F O R M
0005660 ( L I S T ( Q U O T E F R P
0005700 L A C A ) F O R M ( C A R
0005720 A R G ) \r ) ) ( A N D ( C D
0005740 R A R G ) ( S E T Q F O R
0005760 M ( L I S T ( Q U O T E C
0006000 D R ) F O R M ) ) ) ) ) ) (
0006020 R E T U R N ( L I S T ( L I
0006040 S T ( Q U O T E L A M B D A
0006060 ) ( Q U O T E ( \r $ X $ ) )
0006100 ( Q U O T E ( D E C L A R E
0006120 ( L O C A L V A R S $ X $ )
0006140 ) ) F O R M ( Q U O T E $
0006160 X $ ) ) ( K W O T E N I L I
0006200 S T ) ) ) ) ) ) ( P U T P R O
0006220 P S L B O X D M A C R O (
0006240 = \r . L I S T ) ) ) \r ( D E
0006260 C L A R E : E V A L @ C O M P
0006300 I L E ( I . S . O P R ( Q U
0006320 O T E s c r a t c h c o l l e
0006340 c t ) ( Q U O T E ( S E T Q
0006360 $ $ S C P T R ( F R P L A C
0006400 A ( O R ( C D R $ $ S C P
0006420 T R ) \r ( C D R ( F R P L A
0006440 C D $ $ S C P T R ( C A R
0006460 ( F R P L A C A $ $ S C C O N
0006500 S ( C O N S ) ) ) ) ) ) B O
0006520 D Y ) ) ) ( Q U O T E ( B I
0006540 N D $ $ S C P T R $ $ S C C
0006560 O N S _ ( \r C O N S T A N T
0006600 ( C O N S ) ) F I R S T (
0006620 S E T Q $ $ S C P T R $ $ S
0006640 C C O N S ) F I N A L L Y (
0006660 S E T Q $ $ V A L ( A N D
0006700 ( N E Q $ $ S C P T R $ $ S
0006720 C C O N S ) ( P R O G 1 \r (
0006740 C D R $ $ S C C O N S ) ( C
0006760 O N D ( ( C D R $ $ S C P T
0007000 R ) ( F R P L A C D $ $ S C
0007020 C O N S ( P R O G 1 ( C D R
0007040 $ $ S C P T R ) ( F R P L A
0007060 C D $ $ S C P T R N I L )
0007100 ( \r F R P L A C D ( P R O G 1
0007120 ( C A R $ $ S C C O N S )
0007140 ( F R P L A C A $ $ S C C O N
0007160 S $ $ S C P T R ) ) ( C D R
0007200 $ $ S C C O N S ) ) ) ) ) ) )
0007220 ) ) ) ) ) ) \r ( A D D T O V A R
0007240 S Y S L O C A L V A R S $ $
0007260 S C C O N S $ $ S C P T R ) \r
0007300 ( A D D T O V A R I N V I S I
0007320 B L E V A R S $ $ S C C O N S
0007340 $ $ S C P T R ) \r ( P U T P R
0007360 O P S N O B O X C O P Y R I
0007400 G H T ( " X e r o x C o r p
0007420 o r a t i o n " 1 9 8 3 ) ) \r
0007440 N I L \r
0007444