$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSEQCOMMON.DCOM!2
0000000 ( F I L E C R E A T E D " 1 7
0000020 - J u l - 8 6 0 0 : 1 2 : 2 3
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 > E V A L > C M L S E Q C O M
0000120 M O N . ; 1 ) \r " 1 5 - J u l
0000140 - 8 6 2 3 : 1 7 : 2 1 " " C
0000160 O M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 1 5 -
0000220 J u l - 8 6 . . . " d a t e
0000240 d " 1 5 - J u l - 8 6 2 3 :
0000260 4 0 : 4 7 " ) \r ( F I L E C R E
0000300 A T E D " 1 6 - J u l - 8 6
0000320 0 1 : 2 4 : 4 4 " { E R I S }
0000340 < L I S P C O R E > E V A L > C
0000360 M L S E Q C O M M O N . ; 1 1
0000400 5 7 8 c h a n g e s t o :
0000420 ( F U N C T I O N S \r M A K E
0000440 - S E Q U E N C E - L I K E )
0000460 p r e v i o u s d a t e : "
0000500 2 - J u l - 8 6 1 8 : 0 1 :
0000520 0 8 " { E R I S } < L I S P C
0000540 O R E > L I B R A R Y > C M L S
0000560 E Q C O M M O N . ; 2 ) \r ( R P
0000600 A Q Q C M L S E Q C O M M O N
0000620 C O M S ( ( F U N C T I O N S
0000640 M A K E - S E Q U E N C E - L
0000660 I K E S E Q - D I S P A T C H
0000700 T Y P E - S P E C I F I E R )
0000720 ( P R O P F I L E T Y P E
0000740 \r C M L S E Q C O M M O N ) ) )
0000760 \r e x p a n d - M A K E - S E Q
0001000 U E N C E - L I K E D 1 \r ( L
0001020 ( 1 $ $ M A C R O - E N V I
0001040 R O N M E N T 0 $ $ M A C R
0001060 O - F O R M ) ) \0 T 003 \0 \0 002 @
0001100 002 021 ! 002 H 001 271 H 002 001 272 g \0 \0 g \0
0001120 \0 I h 032 032 h 032 g \0 \0 g \0 \0 g \0 \0
0001140 g \0 \0 J h 032 032 h 032 032 g \0 \0 g \0 \0
0001160 J h 032 032 h 032 032 g \0 \0 g \0 \0 J o \0
0001200 \0 \0 032 032 h 032 032 h 032 032 032 032 032 h 032 032
0001220 032 020 \0 N I L \r ( 7 5 Q M A K E
0001240 - A R R A Y 7 2 Q A R R A Y
0001260 6 0 Q M A K E - S T R I N G
0001300 5 5 Q S T R I N G 4 3 Q
0001320 M A K E - L I S T 4 0 Q L I
0001340 S T 3 5 Q S E Q 3 2 Q E
0001360 T Y P E C A S E 2 1 Q S E Q
0001400 1 6 Q L E T ) \r ( 1 0 2 Q
0001420 ( : E L E M E N T - T Y P E
0001440 ( A R R A Y - E L E M E N T - T
0001460 Y P E S E Q ) ) ) \r ( S E T F
0001500 - M A C R O - F U N C T I O N
0001520 ( Q U O T E M A K E - S E Q U
0001540 E N C E - L I K E ) ( Q U O T
0001560 E e x p a n d - M A K E - S E
0001600 Q U E N C E - L I K E ) ) \r e x
0001620 p a n d - S E Q - D I S P A T C
0001640 H D 1 \r ( L ( 1 $ $ M A C
0001660 R O - E N V I R O N M E N T 0
0001700 $ $ M A C R O - F O R M ) )
0001720 \0 * 005 \0 \0 002 @ 002 021 A 004 H 001 271 H 002
0001740 Z 001 273 J 002 001 274 g \0 \0 I g \0 \0 K h
0001760 032 032 g \0 \0 L h 032 032 h 032 032 032 032 020 \0
0002000 N I L \r ( 3 6 Q V E C T O R
0002020 2 7 Q L I S T 2 3 Q E T Y
0002040 P E C A S E ) \r ( ) \r ( S E T F
0002060 - M A C R O - F U N C T I O N
0002100 ( Q U O T E S E Q - D I S P A
0002120 T C H ) ( Q U O T E e x p a
0002140 n d - S E Q - D I S P A T C H )
0002160 ) \r e x p a n d - T Y P E - S P
0002200 E C I F I E R D 1 \r ( L ( 1
0002220 $ $ M A C R O - E N V I R O N
0002240 M E N T 0 $ $ M A C R O - F
0002260 O R M ) ) \0 037 001 \0 \0 002 @ 002 001 021
0002300 001 \0 g \0 \0 g \0 \0 H h 032 032 H g \0 \0
0002320 H h 032 032 h 032 032 032 032 020 \0 N I L \r (
0002340 2 3 Q C A R 1 3 Q C L : A
0002360 T O M 1 0 Q C L : I F ) \r (
0002400 ) \r ( S E T F - M A C R O - F U
0002420 N C T I O N ( Q U O T E T Y
0002440 P E - S P E C I F I E R ) ( Q
0002460 U O T E e x p a n d - T Y P E
0002500 - S P E C I F I E R ) ) \r ( P U
0002520 T P R O P S C M L S E Q C O M
0002540 M O N F I L E T Y P E C O M
0002560 P I L E - F I L E ) \r ( P U T P
0002600 R O P S C M L S E Q C O M M O
0002620 N C O P Y R I G H T ( " X e
0002640 r o x C o r p o r a t i o n "
0002660 1 9 8 6 ) ) \r S T O P \r
0002675