$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>BOUNDARY.DCOM!1
0000000 ( F I L E C R E A T E D " 3 1
0000020 - D e c - 8 4 1 3 : 1 9 : 2 8
0000040 " ( " c o m p i l e d o n
0000060 " { D A N T E } < L I S P U S
0000100 E R S > B O U N D A R Y . ; 2 )
0000120 " 2 0 - D e c - 8 4 1 2 : 0
0000140 7 : 2 2 " \r r e c o m p i l e
0000160 d c h a n g e s : n o t h i
0000200 n g i n " I N T E R L I S P
0000220 - D 2 0 - D e c - 8 4 . . .
0000240 " d a t e d " 2 0 - D e c -
0000260 8 4 1 2 : 2 4 : 5 2 " ) \r ( F
0000300 I L E C R E A T E D " 3 1 - D
0000320 e c - 8 4 1 3 : 1 7 : 5 9 "
0000340 { D A N T E } < L I S P U S E R
0000360 S > B O U N D A R Y . ; 2 9 6
0000400 9 5 c h a n g e s t o : (
0000420 M A C R O S \r B O U N D A R Y
0000440 . U N I O N B O U N D A R Y .
0000460 U N I O N * ) p r e v i o u s
0000500 d a t e : " 2 4 - O c t - 8
0000520 4 1 6 : 1 5 : 1 3 " { D A N
0000540 T E } < L I S P U S E R S > B O
0000560 U N D A R Y . ; 1 ) \r B O U N D
0000600 A R Y . C R E A T E D 1 \r ( L
0000620 ( 4 N E X T 3 T O P 2
0000640 R I G H T 1 B O T T O M
0000660 0 L E F T ) ) \0 K \0 \0 \0 005 `
0000700 \0 \0 265 ` \0 \0 037 d @ 024 \0 277 d A 024
0000720 002 277 d B 024 004 277 d C 024 006 277 d D 024 \b
0000740 277 020 d 006 \0 \0 311 \b 027 \0 \0 277 d 006 \0 \0
0000760 @ 024 \0 277 d A 024 002 277 d B 024 004 277 d C
0001000 024 006 277 d D 024 \b 277 020 \0 N I L \r ( 6
0001020 0 Q B O U N D A R Y 5 3 Q
0001040 B O U N D A R Y . F R E E L I S
0001060 T 4 6 Q B O U N D A R Y 7
0001100 004 003 B O U N D A R Y T Y P E #
0001120 2 B O U N D A R Y . F R E E
0001140 L I S T ) \r ( ) \r B O U N D A R
0001160 Y . D I F F E R E N C E D 1 \r
0001200 ( L ( 1 I N N E R 0 O U
0001220 T E R ) ) \0 } \t \0 \0 002 @ 004 ` \0
0001240 \0 360 245 @ \t \0 \0 264 p A 004 ` \0 \0 360 245
0001260 A \t \0 \0 264 c @ 311 \0 @ 311 002 @ 311 004 @
0001300 311 006 A 311 \0 A 311 002 A 311 004 A 311 006 021 030
0001320 \b H L 360 254 H I L K O 020 \r 005 \0 \0 _
0001340 020 277 J N 360 254 N I J K O 020 \r 005 \0 \0
0001360 _ 020 277 I M 360 254 L I N M O 020 \r 005 \0
0001400 \0 _ 020 277 K O 016 360 253 L O 016 N K O 020
0001420 \r 005 \0 \0 020 O 020 020 \0 ( 1 6 7 Q B
0001440 O U N D A R Y . C R E A T E 1
0001460 4 4 Q B O U N D A R Y . C R E
0001500 A T E 1 2 3 Q B O U N D A R
0001520 Y . C R E A T E 1 0 2 Q B O
0001540 U N D A R Y . C R E A T E 2 7
0001560 Q \ I L L E G A L . A R G 1
0001600 2 Q \ I L L E G A L . A R G )
0001620 \r ( 2 1 Q 004 003 B O U N D A R Y
0001640 T Y P E # 4 004 003 B O U N D A
0001660 R Y T Y P E # ) \r ( ) \r B O U N
0001700 D A R Y . M E R G E D 1 \r ( L
0001720 ( 1 N E W . B O U N D A R I
0001740 E S 0 O L D . B O U N D A R
0001760 I E S ) ) 001 036 \v \0 \0 002 A 021 ! 002
0002000 H 265 004 @ 020 004 ` \0 \0 360 242 261 001 004 H 006
0002020 \0 \0 311 \b 271 @ 265 \r H h 024 \b 277 H b \0
0002040 261 \0 363 004 ` \0 \0 360 247 @ \t \0 \0 242 261 \0
0002060 346 H 311 \0 H 311 002 H 311 004 H 311 006 021 004 006
0002100 H 006 \0 \0 @ 024 \b 277 H b \0 277 h 272 @ 311
0002120 \b 262 024 h 272 @ 021 1 \n O 016 311 \b _ 020 265
0002140 \n 023 J 263 353 023 261 \0 256 004 ` \0 \0 360 252 O
0002160 020 d \t \0 \0 242 261 \0 224 277 O 020 311 002 _ 024
0002200 277 K O 020 311 \0 _ 022 360 262 / M O 020 311 004
0002220 360 262 ' N O 024 360 233 H O 020 311 006 ^ 024 006
0002240 277 N 260 G O 020 d 311 006 L 360 262 _ 277 H O
0002260 024 \ 024 002 277 L 260 3 L O 024 360 262 L N O
0002300 020 311 006 360 262 D M O 022 360 233 H O 020 311 004
0002320 ] 024 004 277 M 260 024 O 020 d 311 004 K 360 262 ,
0002340 277 H O 022 [ 024 \0 277 K 262 037 O 016 O 020 006
0002360 \0 \0 311 \b 024 \b 277 O 020 h 024 \b 277 O 020 \t
0002400 \0 \0 277 i 272 261 377 \ O 020 _ 016 261 377 O H
0002420 \t \0 \0 277 I X 261 376 353 \0 ( 4 2 6 Q
0002440 \ I L L E G A L . A R G 4 0 5
0002460 Q B O U N D A R Y . R E L E A
0002500 S E 1 7 0 Q \ I L L E G A L
0002520 . A R G 6 0 Q \ I L L E G A
0002540 L . A R G ) \r ( 3 6 5 Q B O U
0002560 N D A R Y 1 6 0 Q 004 003 B O U
0002600 N D A R Y T Y P E # 1 0 7 Q
0002620 B O U N D A R Y 5 2 Q 004 003 B
0002640 O U N D A R Y T Y P E # 2 5 Q
0002660 B O U N D A R Y 1 4 Q 004 003
0002700 B O U N D A R Y T Y P E # ) \r (
0002720 ) \r B O U N D A R Y . R E L E A
0002740 S E D 1 \r ( L ( 0 B O U N
0002760 D A R I E S ) ) \0 " 002 \0 \0 001 @
0003000 021 021 001 H d 240 020 006 \0 \0 311 \b 271 H 006 \0
0003020 \0 ` \0 \0 024 \b 277 H 027 \0 \0 277 I X 260 346
0003040 \0 N I L \r ( 3 3 Q B O U N D A
0003060 R Y . F R E E L I S T 2 4 Q
0003100 B O U N D A R Y . F R E E L I S
0003120 T 2 1 Q B O U N D A R Y 1
0003140 2 Q B O U N D A R Y ) \r ( ) \r
0003160 ( P R E T T Y C O M P R I N T
0003200 B O U N D A R Y C O M S ) \r ( R
0003220 P A Q Q B O U N D A R Y C O M
0003240 S ( ( R E C O R D S B O U N
0003260 D A R Y ) ( M A C R O S B O
0003300 U N D A R Y . I N T E R S E C T
0003320 I O N B O U N D A R Y . I N T
0003340 E R S E C T I O N * \r B O U N
0003360 D A R Y . I N T E R S E C T I O
0003400 N * * B O U N D A R Y . I N T
0003420 E R S E C T P B O U N D A R Y
0003440 . I N T E R S E C T P * B O U
0003460 N D A R Y . I N T E R S E C T P
0003500 * * B O U N D A R Y . P O P
0003520 \r B O U N D A R Y . P U S H B
0003540 O U N D A R Y . U N I O N B O
0003560 U N D A R Y . U N I O N * B O
0003600 U N D A R Y . U N I O N * * )
0003620 ( P R O P G L O B A L V A R
0003640 B O U N D A R Y . F R E E L I S
0003660 T ) ( \r V A R S ( B O U N D
0003700 A R Y . F R E E L I S T N I L
0003720 ) ) ( F N S B O U N D A R Y
0003740 . C R E A T E B O U N D A R Y
0003760 . D I F F E R E N C E B O U N
0004000 D A R Y . M E R G E B O U N D
0004020 A R Y . R E L E A S E \r ) ) ) \r
0004040 ( D A T A T Y P E B O U N D A
0004060 R Y ( L E F T . B O U N D B
0004100 O T T O M . B O U N D R I G H
0004120 T . B O U N D T O P . B O U N
0004140 D N E X T . B O U N D ) ) \r (
0004160 / D E C L A R E D A T A T Y P E
0004200 ( Q U O T E B O U N D A R Y
0004220 ) ( Q U O T E ( P O I N T E
0004240 R P O I N T E R P O I N T E
*
0004300 R ) ) ) \r ( P U T P R O P S B
0004320 O U N D A R Y . I N T E R S E C
0004340 T I O N M A C R O ( O P E N
0004360 L A M B D A ( X Y ) ( B O
0004400 U N D A R Y . I N T E R S E C T
0004420 I O N * X ( A N D ( O R
0004440 ( t y p e ? \r B O U N D A R Y
0004460 Y ) ( \ I L L E G A L . A R
0004500 G Y ) ) ( f f e t c h L E
0004520 F T . B O U N D o f Y ) )
0004540 ( f f e t c h B O T T O M . B
0004560 O U N D o f Y ) ( f f e t
0004600 c h R I G H T . B O U N D \r
0004620 o f Y ) ( f f e t c h T O
0004640 P . B O U N D o f Y ) ) ) )
0004660 \r ( P U T P R O P S B O U N D
0004700 A R Y . I N T E R S E C T I O N
0004720 * M A C R O ( O P E N L A M
0004740 B D A ( X Y . L E F T Y .
0004760 B O T T O M Y . R I G H T Y
0005000 . T O P ) ( \r B O U N D A R Y
0005020 . I N T E R S E C T I O N * *
0005040 ( A N D ( O R ( t y p e ?
0005060 B O U N D A R Y X ) ( \ I L
0005100 L E G A L . A R G X ) ) ( f
0005120 f e t c h L E F T . B O U N D
0005140 o f X ) ) ( \r f f e t c h
0005160 B O T T O M . B O U N D o f
0005200 X ) ( f f e t c h R I G H
0005220 T . B O U N D o f X ) ( f
0005240 f e t c h T O P . B O U N D
0005260 o f X ) Y . L E F T Y . B
0005300 O T T O M Y . R I G H T \r Y
0005320 . T O P ) ) ) \r ( P U T P R O P
0005340 S B O U N D A R Y . I N T E R
0005360 S E C T I O N * * M A C R O
0005400 ( O P E N L A M B D A ( X . L
0005420 E F T X . B O T T O M X . R
0005440 I G H T X . T O P Y . L E F
0005460 T Y . B O T T O M \r Y . R I
0005500 G H T Y . T O P ) ( * m g
0005520 b : " 2 1 - O c t - 8 4 2 0
0005540 : 2 1 " ) ( A N D ( B O U N
0005560 D A R Y . I N T E R S E C T P *
0005600 * X . L E F T X . B O T T O
0005620 M X . R I G H T X . T O P
0005640 \r Y . L E F T Y . B O T T O M
0005660 Y . R I G H T Y . T O P )
0005700 ( B O U N D A R Y . C R E A T E
0005720 ( I M A X X . L E F T Y .
0005740 L E F T ) ( I M A X X . B O
0005760 T T O M Y . B O T T O M ) (
0006000 I M I N \r X . R I G H T Y .
0006020 R I G H T ) ( I M I N X . T
0006040 O P Y . T O P ) ) ) ) ) \r ( P
0006060 U T P R O P S B O U N D A R Y
0006100 . I N T E R S E C T P M A C R
0006120 O ( O P E N L A M B D A ( X
0006140 Y ) ( B O U N D A R Y . I N
0006160 T E R S E C T P * X ( A N D
0006200 ( O R ( t y p e ? B O U N
0006220 D A R Y \r Y ) ( \ I L L E G
0006240 A L . A R G Y ) ) ( f f e t
0006260 c h L E F T . B O U N D o f
0006300 Y ) ) ( f f e t c h B O T
0006320 T O M . B O U N D o f Y )
0006340 ( f f e t c h R I G H T . B O
0006360 U N D o f Y ) ( \r f f e t
0006400 c h T O P . B O U N D o f
0006420 Y ) ) ) ) \r ( P U T P R O P S
0006440 B O U N D A R Y . I N T E R S E
0006460 C T P * M A C R O ( O P E N
0006500 L A M B D A ( X Y . L E F T
0006520 Y . B O T T O M Y . R I G H
0006540 T Y . T O P ) ( \r B O U N D
0006560 A R Y . I N T E R S E C T P * *
0006600 ( A N D ( O R ( t y p e ?
0006620 B O U N D A R Y X ) ( \ I
0006640 L L E G A L . A R G X ) ) (
0006660 f f e t c h L E F T . B O U N
0006700 D o f X ) ) ( f f e t c h
0006720 \r B O T T O M . B O U N D o
0006740 f X ) ( f f e t c h R I G
0006760 H T . B O U N D o f X ) (
0007000 f f e t c h T O P . B O U N D
0007020 o f X ) Y . L E F T Y .
0007040 B O T T O M Y . R I G H T Y
0007060 . T O P ) ) ) \r ( P U T P R O P
0007100 S B O U N D A R Y . I N T E R
0007120 S E C T P * * M A C R O ( O
0007140 P E N L A M B D A ( X . L E F
0007160 T X . B O T T O M X . R I G
0007200 H T X . T O P Y . L E F T
0007220 Y . B O T T O M \r Y . R I G H
0007240 T Y . T O P ) ( * m g b :
0007260 " 2 1 - O c t - 8 4 2 0 : 2
0007300 1 " ) ( A N D ( I L E S S P
0007320 X . L E F T Y . R I G H T )
0007340 ( I L E S S P X . B O T T O
0007360 M Y . T O P ) ( I L E S S P
0007400 \r Y . L E F T X . R I G H T
0007420 ) ( I L E S S P Y . B O T T
0007440 O M X . T O P ) ) ) ) \r ( P U
0007460 T P R O P S B O U N D A R Y .
0007500 P O P M A C R O ( ( S T A C
0007520 K ) ( P R O G 1 S T A C K
0007540 ( c h a n g e S T A C K ( f
0007560 e t c h N E X T . B O U N D
0007600 o f S T A C K ) ) ) ) ) \r ( P
0007620 U T P R O P S B O U N D A R Y
0007640 . P U S H M A C R O ( ( S T
0007660 A C K I T E M ) ( r e p l a
0007700 c e N E X T . B O U N D o f
0007720 I T E M w i t h S T A C K
0007740 ) ( c h a n g e S T A C K
0007760 I T E M \r ) ) ) \r ( P U T P R O
0010000 P S B O U N D A R Y . U N I O
0010020 N M A C R O ( O P E N L A M
0010040 B D A ( X Y ) ( B O U N D
0010060 A R Y . U N I O N * X ( A N
0010100 D ( O R ( t y p e ? B O U
0010120 N D A R Y Y ) ( \r \ I L L E
0010140 G A L . A R G Y ) ) ( f f e
0010160 t c h L E F T . B O U N D o
0010200 f Y ) ) ( f f e t c h B O
0010220 T T O M . B O U N D o f Y )
0010240 ( f f e t c h R I G H T . B
0010260 O U N D o f Y ) ( \r f f e
0010300 t c h T O P . B O U N D o f
0010320 Y ) ) ) ) \r ( P U T P R O P S
0010340 B O U N D A R Y . U N I O N *
0010360 M A C R O ( O P E N L A M B
0010400 D A ( X Y . L E F T Y . B
0010420 O T T O M Y . R I G H T Y .
0010440 T O P ) ( B O U N D A R Y . U
0010460 N I O N * * ( A N D ( \r O R
0010500 ( t y p e ? B O U N D A R Y
0010520 X ) ( \ I L L E G A L . A R
0010540 G X ) ) ( f f e t c h L E
0010560 F T . B O U N D o f X ) )
0010600 ( f f e t c h B O T T O M . B
0010620 O U N D o f X ) ( f f e t
0010640 c h \r R I G H T . B O U N D
0010660 o f X ) ( f f e t c h T O
0010700 P . B O U N D o f X ) Y .
0010720 L E F T Y . B O T T O M Y .
0010740 R I G H T Y . T O P ) ) ) \r (
0010760 P U T P R O P S B O U N D A R
0011000 Y . U N I O N * * M A C R O
0011020 ( O P E N L A M B D A ( X . L
0011040 E F T X . B O T T O M X . R
0011060 I G H T X . T O P Y . L E F
0011100 T Y . B O T T O M Y . R I G
0011120 H T \r Y . T O P ) ( * m g
0011140 b : " 2 1 - O c t - 8 4 2 0
0011160 : 2 8 " ) ( B O U N D A R Y .
0011200 C R E A T E ( I M I N X . L
0011220 E F T Y . L E F T ) ( I M I
0011240 N X . B O T T O M Y . B O T
0011260 T O M ) ( I M A X \r X . R I
0011300 G H T Y . R I G H T ) ( I M
0011320 A X X . T O P Y . T O P ) )
0011340 ) ) \r ( P U T P R O P S B O U
0011360 N D A R Y . F R E E L I S T G
0011400 L O B A L V A R T ) \r ( R P A
0011420 Q Q B O U N D A R Y . F R E E
0011440 L I S T N I L ) \r ( P U T P R
0011460 O P S B O U N D A R Y C O P
0011500 Y R I G H T ( " X e r o x C
0011520 o r p o r a t i o n " 1 9 8 4
0011540 ) ) \r N I L \r
0011547