$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLPROGV.DCOM!3
0000000 ( F I L E C R E A T E D " 5
0000020 - J u l - 8 6 2 2 : 4 3 : 4 5
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > C M L P R O
0000120 G V . ; 3 ) \r " 3 0 - J u n -
0000140 8 6 1 2 : 0 6 : 2 7 " " C O
0000160 M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 3 0 - J
0000220 u n - 8 6 . . . " d a t e d
0000240 " 3 0 - J u n - 8 6 1 3 : 3
0000260 7 : 0 8 " ) \r ( F I L E C R E A
0000300 T E D " 5 - J u l - 8 6 2
0000320 2 : 4 3 : 2 9 " { E R I S } <
0000340 L I S P C O R E > L I B R A R Y
0000360 > C M L P R O G V . ; 3 4 8 6
0000400 3 c h a n g e s t o : ( M
0000420 A C R O S P R O G V ) \r ( S
0000440 P E C I A L - F O R M S P R O
0000460 G V ) ( V A R S C M L P R O
0000500 G V C O M S ) ( P R O P S (
0000520 C M L P R O G V F I L E T Y P
0000540 E ) ) ( F N S \ D O . P R O
0000560 G V \r \ D O . P R O G V . S E
0000600 T U P . F R A M E . A N D . E X
0000620 E C U T E ) p r e v i o u s
0000640 d a t e : " 5 - J u l - 8 6
0000660 2 2 : 3 2 : 0 2 " \r { E R I
0000700 S } < L I S P C O R E > L I B R
0000720 A R Y > C M L P R O G V . ; 2 )
0000740 \r ( R P A Q Q C M L P R O G V
0000760 C O M S ( ( F N S \ D O . P
0001000 R O G V \ D O . P R O G V . S
0001020 E T U P . F R A M E . A N D . E
0001040 X E C U T E ) ( S P E C I A L
0001060 - F O R M S P R O G V ) ( P
0001100 R O P \r D M A C R O P R O G
0001120 V ) ( P R O P F I L E T Y P
0001140 E C M L P R O G V ) ) ) \r \ D
0001160 O . P R O G V D 1 \r ( L ( 2
0001200 F N T O C A L L 1 V A L U
0001220 E S 0 V A R S ) ) \0 C 004 \0
0001240 \0 003 j 021 1 003 @ 260 026 d 001 [ 277 K \t \0
0001260 \0 225 h \t \0 \0 260 366 H k 324 270 002 003 265 353
0001300 H d l 004 330 m 374 345 Y l 005 330 330 Z 203 h
0001320 375 k 331 d j 361 263 371 277 J H I B @ A \r
0001340 006 \0 \0 020 \0 ( 1 0 0 Q \ D O . P
0001360 R O G V . S E T U P . F R A M E
0001400 . A N D . E X E C U T E 2 3 Q
0001420 A S S E R T - F A I L 1 6 Q
0001440 C O N S T A N T P ) \r N I L \r
0001460 ( ) \r \ D O . P R O G V . S E T
0001500 U P . F R A M E . A N D . E X E
0001520 C U T E D 1 \r ( L ( 5 V A
0001540 L U E S 4 V A R S 3 F N
0001560 T O C A L L 2 N T S I Z E
0001600 1 N V A R S 0 N N I L S )
0001620 ) \0 276 \n \0 \0 006 f 021 1 003 k H 321 312
0001640 003 207 k H 321 310 002 321 k d H 321 310 004 @ 340
0001660 331 Y A 340 l 003 330 330 m 374 345 321 Z D I H
0001700 l \n 330 331 342 l \b B l \b 330 I 021 025 \t L
0001720 003 265 ; 023 J B 315 006 k H 321 j 317 \0 0 277
0001740 J 322 273 k H 321 K 317 \a \a 277 k H 321 K 317
0001760 \a 207 277 k H 321 J 323 315 006 277 k H 321 k 317
0002000 \0 ` 277 k j 360 h 360 j C 016 020 001 _ 022 277
0002020 ` \0 \0 O 020 320 E 001 E 002 b \n 277 316 \0 277
0002040 J N 320 O 022 006 \0 \0 323 315 \0 277 J O 016 320
0002060 M n 200 \0 330 315 \0 277 L 002 274 M k 324 275 N
0002100 k 324 276 O 016 k 324 _ 016 277 O 020 l 002 324 _
0002120 020 277 261 377 } \0 N I L \r ( 2 1 7 Q
0002140 L I T A T O M 1 7 2 Q \ S T
0002160 A C K S P A C E ) \r ( ) \r e v a
0002200 l - P R O G V A 0 0 0 1 D 1 \r
0002220 ( F 0 $ P R O G V - F O R M
0002240 S F 1 $ P R O G V - E N V
0002260 I R O N M E N T ) \0 \a \0 002 \0 \0
0002300 P Q \n \0 \0 020 \0 ( 4 E V A L - P
0002320 R O G N ) \r N I L \r ( ) \r e v a
0002340 l - P R O G V D 1 \r ( L ( 1
0002360 $ $ E N V 0 $ $ T A I L )
0002400 P 4 $ P R O G V - E N V I
0002420 R O N M E N T P 3 $ P R O
0002440 G V - F O R M S F 5 E N V
0002460 ) \0 ! 005 001 \0 002 @ 001 021 A 004 @ 002 Y
0002500 001 272 I 002 273 A 274 H U \n \0 \0 J U \n \0
0002520 \0 g \0 \0 \v \0 \0 020 \0 ( 3 6 Q \ D
0002540 O . P R O G V 3 0 Q C L : E
0002560 V A L 2 3 Q C L : E V A L )
0002600 \r ( 3 3 Q e v a l - P R O G V
0002620 A 0 0 0 1 ) \r ( ) \r ( P U T P R
0002640 O P S P R O G V S P E C I A
0002660 L - F O R M e v a l - P R O G
0002700 V ) \r ( P U T P R O P S P R O
0002720 G V D M A C R O ( ( V A R I
0002740 A B L E S V A L U E S . F
0002760 O R M S ) ( \ D O . P R O G V
0003000 V A R I A B L E S V A L U E
0003020 S ( C L : F U N C T I O N (
0003040 L A M B D A \r N I L . F O
0003060 R M S ) ) ) ) ) \r ( P U T P R O
0003100 P S C M L P R O G V F I L E
0003120 T Y P E C O M P I L E - F I L
0003140 E ) \r ( P U T P R O P S C M L
0003160 P R O G V C O P Y R I G H T
0003200 ( " X e r o x C o r p o r a t
0003220 i o n " 1 9 8 6 ) ) \r S T O P
0003240 \r
0003241