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