$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLDEBUG.DCOM!6
0000000 ( F I L E C R E A T E D " 8
0000020 - A u g - 8 6 1 3 : 5 4 : 2 9
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 D E B
0000120 U G . ; 6 ) \r " 6 - A u g -
0000140 8 6 2 2 : 5 6 : 2 7 " r e c
0000160 o m p i l e d c h a n g e s :
0000200 C O M M O N L I S P - B R E A
0000220 K L O O P i n " X e r o x
0000240 L i s p 6 - A u g - 8 6 .
0000260 . . " d a t e d \r " 6 - A
0000300 u g - 8 6 2 3 : 1 3 : 1 6 " )
0000320 \r ( F I L E C R E A T E D "
0000340 8 - A u g - 8 6 1 3 : 5 3 : 4
0000360 1 " { E R I S } < L I S P C O
0000400 R E > L I B R A R Y > C M L D E
0000420 B U G . ; 6 1 2 3 4 3 c h a
0000440 n g e s t o : ( V A R S \r
0000460 C M L D E B U G C O M S ) ( F
0000500 N S C O M M O N L I S P - B R
0000520 E A K L O O P ) ( C O M M A N
0000540 D S O K S T O P ^ ~ )
0000560 p r e v i o u s d a t e : "
0000600 7 - A u g - 8 6 1 8 : 4 4 :
0000620 5 7 " \r { E R I S } < L I S P
0000640 C O R E > L I B R A R Y > C M L
0000660 D E B U G . ; 5 ) \r B R E A K L
0000700 O O P 2 D 1 \r ( I 0 N B R
0000720 E A K S F 0 * C U R R E N
0000740 T - E X E C U T I V E - T Y P E
0000760 * ) \0 030 \0 001 \0 001 g \0 \0 \t \0 \0 232
0001000 P g \0 \0 360 224 @ \t \0 \0 020 @ \t \0 \0 020
0001020 \0 ( 2 5 Q I N T E R L I S P -
0001040 B R E A K L O O P 2 0 Q C O
0001060 M M O N L I S P - B R E A K L O
0001100 O P 5 B O U N D P ) \r ( 1 2
0001120 Q C O M M O N - L I S P 2
0001140 * C U R R E N T - E X E C U T I
0001160 V E - T Y P E * ) \r ( ) \r C O M
0001200 M O N L I S P - B R E A K L O O
0001220 P A 0 0 0 1 D 1 \r ( P 0 N
0001240 B R E A K S I 1 E N V I
0001260 0 I N P U T F 1 N B R
0001300 E A K S ) \0 \r 001 001 \0 002 j Q 325 021
0001320 001 \0 @ A \n \0 \0 020 \0 ( 1 2 Q E V
0001340 A L - I N P U T ) \r N I L \r ( )
0001360 \r C O M M O N L I S P - B R E A
0001400 K L O O P D 1 \r ( P 1 5 Q
0001420 \ U S E B R E A K R E S E T F O
0001440 R M S P 1 4 Q ! V A L U E
0001460 S P 1 3 Q B R K L I N E
0001500 P 1 2 Q B R K L I S P X H I
0001520 S T P 1 1 Q B R K O R I G
0001540 F L G P 1 0 Q \ B R E A K
0001560 R E S E T E X P R P 7 B R
0001600 E A K R E S E T V A L S P 6
0001620 B R K B U F S P 5 B R K
0001640 R D B U F P 4 L A S T P O
0001660 S P 3 B R K V A L U E S
0001700 P 2 B R K I D P 1 H E
0001720 L P F L A G P 0 T Y P E -
0001740 I N I 0 N B R E A K S F
0001760 1 6 Q B R K T Y P E F 1
0002000 7 Q E R R O R N F 2 0 Q
0002020 B R K F N F 2 1 Q * T E R
0002040 M I N A L - I O * F 2 2 Q
0002060 R E A D B U F F 2 3 Q B R
0002100 K C O M S F 2 4 Q B R E A
0002120 K H E L P F L A G F 2 5 Q
0002140 B R E A K - C O M M A N D S )
0002160 \0 317 016 \b \0 001 W & h 360 W ( 021 302 \r i
0002200 _ 032 g \0 \0 \t \0 \0 W 034 d g \0 \0 360 262
0002220 032 277 L \t \0 \0 003 262 < W 004 l 004 360 262
0002240 4 L W \n \0 \0 260 + 262 * W $ 275 W 034
0002260 g \0 \0 360 \t \0 \0 276 h c $ 277 W 034 g \0
0002300 \0 360 237 W 036 d l 002 360 232 277 m 377 L \n \0
0002320 \0 \ 277 W 036 262 $ W 036 d 001 3 020 234 d 002
0002340 002 001 g \0 \0 360 243 \t \0 \0 214 001 W 036 002 001
0002360 W 036 002 002 001 \v \0 \0 277 W 034 g \0 \0 360 227
0002400 W " o \0 \0 \0 260 031 W 255 W 034 003 251 W
0002420 " o \0 \0 \0 \n \0 \0 212 W " o \0 \0 \0 W
0002440 \v \0 \0 277 g \0 \0 o \0 \0 \0 g \0 \0 W
0002460 * g \0 \0 L \t \0 \0 g \0 \0 g \0 \0 \r \b
0002500 \0 \0 h 020 \0 ( 3 1 3 Q C M L E X
0002520 E C 3 0 1 Q F I N D - C O M
0002540 M O N L I S P - E N V 2 5 5 Q
0002560 F O R M A T 2 4 1 Q F O R
0002600 M A T 2 0 1 Q E R R O R M E
0002620 S S 1 1 6 3 Q E R R O R M E
0002640 S S 1 3 2 Q S T K N T H 1
0002660 0 0 Q C L B U F S 6 0 Q S
0002700 E T S T K N A M E 3 7 Q S T
0002720 K N A M E 2 1 Q B R E A K R
0002740 E S E T F N ) \r ( 3 0 7 Q C O
0002760 M M O N L I S P - B R E A K L O
0003000 O P A 0 0 0 1 3 0 4 Q : F U
0003020 N C T I O N 2 7 5 Q : E N V
0003040 I R O N M E N T 2 7 0 Q : C
0003060 O M M A N D S 2 6 1 Q : P R
0003100 O M P T 2 0 7 Q I N T E R R
0003120 U P T 1 5 6 Q h e l p ! 1
0003140 1 2 Q E R R O R X 7 4 Q I
0003160 N T E R R U P T 2 7 Q R E V
0003200 E R T 1 6 Q E N T E R I N G
0003220 ) \r ( 2 6 5 Q " : " 2 5
0003240 0 Q " ~ % % B r e a k p o i n
0003260 t a t ~ S ~ 2 % % " 2 3 6
0003300 Q " ~ % % B r e a k p o i n t
0003320 ~ 2 % % " 2 1 7 Q " ~ % % I
0003340 n t e r r u p t e d b e l o w
0003360 ~ S ~ 2 % % " ) \r F I N D - C
0003400 O M M O N L I S P - E N V D 1
0003420 \r ( P 0 P O S I 0 S T
0003440 A C K P O S F 1 L A S T P
0003460 O S ) \0 031 001 001 \0 001 g \0 \0 h @ 265
0003500 003 Q \v \0 \0 021 001 \0 H 264 \b l 002 H \n \0
0003520 \0 020 \0 ( 2 6 Q S T K A R G 1
0003540 2 Q S T K P O S ) \r ( 2 C L
0003560 : E V A L ) \r ( ) \r ( P R E T T
0003600 Y C O M P R I N T C M L D E B
0003620 U G C O M S ) \r ( R P A Q Q C
0003640 M L D E B U G C O M S ( ( *
0003660 * " C M L D e b u g - a
0003700 C o m m o n L i s p d e b u g
0003720 g e r " ) ( F I L E S C M L
0003740 E X E C ) ( P ( M O V D (
0003760 Q U O T E \r B R E A K L O O P
0004000 ) ( Q U O T E I N T E R L I
0004020 S P - B R E A K L O O P ) ) )
0004040 ( F N S B R E A K L O O P 2
0004060 C O M M O N L I S P - B R E A K
0004100 L O O P F I N D - C O M M O N
0004120 L I S P - E N V ) ( P \r ( M
0004140 O V D ( Q U O T E B R E A K
0004160 L O O P ) ( Q U O T E \ S A
0004200 V E D . B R E A K L O O P ) ) )
0004220 ( F U N C T I O N S D E B U
0004240 G - O N D E B U G - O F F )
0004260 ( C O M M A N D S ? = @ B
0004300 T \r B T ! B T V B T V !
0004320 C L : E V A L D B T D B T !
0004340 O K P R R E T U R N R E
0004360 V E R T S T O P U B ^ ~
0004400 ) ( V A R S B R E A K - C O
0004420 M M A N D S ) ( P R O P F I
0004440 L E - T Y P E \r C M L D E B U
0004460 G ) ) ) \r ( F I L E S L O A D
0004500 C M L E X E C ) \r ( M O V D (
0004520 Q U O T E B R E A K L O O P )
0004540 ( Q U O T E I N T E R L I S
0004560 P - B R E A K L O O P ) ) \r ( M
0004600 O V D ( Q U O T E B R E A K
0004620 L O O P ) ( Q U O T E \ S A
0004640 V E D . B R E A K L O O P ) ) \r
0004660 ( D E F U N D E B U G - O N
0004700 N I L ( / M O V D ( Q U O T
0004720 E B R E A K L O O P 2 ) ( Q
0004740 U O T E B R E A K L O O P ) )
0004760 ) \r ( D E F U N D E B U G - O
0005000 F F N I L ( / M O V D ( Q
0005020 U O T E \ S A V E D . B R E A
0005040 K L O O P ) ( Q U O T E B R
0005060 E A K L O O P ) ) ) \r ( D E F C
0005100 O M M A N D ( ? = : B R E A
0005120 K ) ( & R E S T P L A C E )
0005140 ( S T K P O Z P L A C E )
0005160 ( P R I N T - A R G L I S T (
0005200 S M A R T A R G L I S T ( S T
0005220 K N A M E L A S T P O S ) T
0005240 ) \r ( S T K A R G S L A S T
0005260 P O S ) T 0 ) ( V A L U E
0005300 S ) ) \r ( D E F C O M M A N D
0005320 ( @ : B R E A K ) ( & R E S
0005340 T P L A C E ) ( L E T ( (
0005360 N A M E ( S T K N A M E ( S
0005400 T K P O Z P L A C E ) ) ) )
0005420 ( P R I N T O U T T " @ =
0005440 " N A M E T ) \r ) ( V A
0005460 L U E S ) ) \r ( D E F C O M M A
0005500 N D ( B T : B R E A K ) (
0005520 & O P T I O N A L F O O ) (
0005540 B A K T R A C E L A S T P O S
0005560 N I L ( Q U O T E ( D U M
0005600 M Y F R A M E P ) ) 0 T )
0005620 ( V A L U E S ) ) \r ( D E F C O
0005640 M M A N D ( B T ! : B R E A
0005660 K ) ( & O P T I O N A L F O
0005700 O ) ( B A K T R A C E L A S
0005720 T P O S N I L N I L 0 T
0005740 ) ( V A L U E S ) ) \r ( D E F
0005760 C O M M A N D ( B T V : B R
0006000 E A K ) N I L ( B A K T R A
0006020 C E L A S T P O S N I L N
0006040 I L 1 T ) ( V A L U E S )
0006060 ) \r ( D E F C O M M A N D ( B
0006100 T V ! : B R E A K ) N I L
0006120 ( B A K T R A C E L A S T P O
0006140 S N I L N I L 3 9 T )
0006160 ( V A L U E S ) ) \r ( D E F C O
0006200 M M A N D ( C L : E V A L :
0006220 B R E A K ) ( & E N V I R O N
0006240 M E N T E N V ) ( U N W I N
0006260 D - P R O T E C T ( P R O G N
0006300 ( B R E A K R E S E T F N (
0006320 Q U O T E E V A L U A T I N G
0006340 \r ) ) ( S E T Q ! V A L U E
0006360 S ( C L : E V A L B R K E X
0006400 P E N V ) ) ) ( B R E A K R
0006420 E S E T F N ( Q U O T E R E
0006440 E N T E R I N G ) ) ) ) \r ( D E
0006460 F C O M M A N D ( D B T : B
0006500 R E A K ) N I L ( D I S P B
0006520 A K T R A C E ( W I N D O W P
0006540 R O P ( T T Y D I S P L A Y S
0006560 T R E A M ) ( Q U O T E B R
0006600 E A K P O S ) ) N I L ( Q U
0006620 O T E \r ( D U M M Y F R A M E
0006640 P ) ) ) ( V A L U E S ) ) \r (
0006660 D E F C O M M A N D ( D B T !
0006700 : B R E A K ) N I L ( D I
0006720 S P B A K T R A C E ( W I N D
0006740 O W P R O P ( T T Y D I S P L
0006760 A Y S T R E A M ) ( Q U O T E
0007000 B R E A K P O S ) ) N I L
0007020 N I L ) \r ( V A L U E S ) ) \r
0007040 ( D E F C O M M A N D ( O K
0007060 : B R E A K : Q U I E T ) (
0007100 & E N V I R O N M E N T E N V
0007120 ) ( D E C L A R E ( S P E C
0007140 I A L N B R E A K S B R K E
0007160 X P ! V A L U E S ) ) ( \r B
0007200 R E A K R E S E T F N ( Q U O
0007220 T E L E A V I N G ) ) ( L E
0007240 T ( ( N B R E A K S ( - N
0007260 B R E A K S ) ) ) ( S E T Q
0007300 ! V A L U E S ( M U L T I P L
0007320 E - V A L U E - L I S T ( C L
0007340 : E V A L \r B R K E X P E N
0007360 V ) ) ) ) ( R E T A P P L Y
0007400 ( Q U O T E B R E A K 1 A )
0007420 ( F U N C T I O N V A L U E S
0007440 - L I S T ) ( L I S T ! V A
0007460 L U E S ) ) ) \r ( D E F C O M M
0007500 A N D ( P R : B R E A K )
0007520 N I L ( P R O C E E D - F R O
0007540 M - B R E A K ) ) \r ( D E F C O
0007560 M M A N D ( R E T U R N : B
0007600 R E A K ) ( & O P T I O N A L
0007620 ( E X P R E S S I O N N I L
0007640 ) & E N V I R O N M E N T E
0007660 N V ) ( D E C L A R E ( S P
0007700 E C I A L N B R E A K S ) )
0007720 \r ( B R E A K R E S E T F N (
0007740 Q U O T E L E A V I N G ) )
0007760 ( L E T ( ( V A L U E S ( M
0010000 U L T I P L E - V A L U E - L I
0010020 S T ( C L : E V A L E X P R
0010040 E S S I O N E N V ) ) ) ) (
0010060 \r R E T A P P L Y ( Q U O T E
0010100 B R E A K 1 A ) ( F U N C T
0010120 I O N V A L U E S - L I S T )
0010140 ( L I S T V A L U E S ) ) )
0010160 ) \r ( D E F C O M M A N D ( R
0010200 E V E R T : B R E A K ) ( &
0010220 R E S T P L A C E ) ( L E T
0010240 ( ( P L A C E - S P E C ( O
0010260 R P L A C E ( Q U O T E (
0010300 @ ) ) ) ) ) ( S T K P O Z \r
0010320 P L A C E - S P E C ) ( R E S
0010340 E T F O R M ( P R I N T L E V
0010360 E L ( Q U O T E ( 2 . 3
0010400 ) ) ) ( P R I N T ( S T K N
0010420 A M E L A S T P O S ) T T
0010440 ) ) ( B R E A K R E S E T F N
0010460 ( \r Q U O T E R E V E R T I
0010500 N G ) ) ( B R E A K R E V E R
0010520 T L A S T P O S ) ) ) \r ( D E
0010540 F C O M M A N D ( S T O P :
0010560 B R E A K : Q U I E T ) N I
0010600 L ( R E L S T K L A S T P O
0010620 S ) ( A N D ( S T A C K P
0010640 B R K T Y P E ) ( R E L S T K
0010660 B R K T Y P E ) ) ( \r B R E
0010700 A K R E S E T F N ( Q U O T E
0010720 L E A V I N G ) ) ( R E T E
0010740 V A L ( Q U O T E B R E A K
0010760 1 A ) ( Q U O T E ( E R R O
0011000 R ! ) ) ) ) \r ( D E F C O M M A
0011020 N D ( U B : B R E A K ) (
0011040 & O P T I O N A L ( F N B R
0011060 K F N ) ) ( D E C L A R E (
0011100 S P E C I A L B R K F N ) )
0011120 ( A P P L Y ( F U N C T I O N
0011140 U N B R E A K ) F N ) \r ) \r
0011160 ( D E F C O M M A N D ( ^ :
0011200 B R E A K : Q U I E T ) N I
0011220 L ( R E L S T K L A S T P O
0011240 S ) ( A N D ( S T A C K P
0011260 B R K T Y P E ) ( R E L S T K
0011300 B R K T Y P E ) ) ( \r B R E
0011320 A K R E S E T F N ( Q U O T E
0011340 L E A V I N G ) ) ( R E T E
0011360 V A L ( Q U O T E B R E A K
0011400 1 A ) ( Q U O T E ( E R R O
0011420 R ! ) ) ) ) \r ( D E F C O M M A
0011440 N D ( ~ : B R E A K : Q U
0011460 I E T ) N I L ( R E L S T K
0011500 L A S T P O S ) ( A N D (
0011520 S T A C K P B R K T Y P E )
0011540 ( R E L S T K B R K T Y P E )
0011560 ) ( \r B R E A K R E S E T F N
0011600 ( Q U O T E L E A V I N G )
0011620 ) ( R E T E V A L ( Q U O T
0011640 E B R E A K 1 A ) ( Q U O T
0011660 E ( E R R O R ! ) ) ) ) \r ( R
0011700 P A Q Q B R E A K - C O M M A
0011720 N D S ( ( ^ b r e a k - ^
0011740 : Q U I E T N I L ) ( ^ b
0011760 r e a k - ^ : E V A L N I L
0012000 ) ( O K b r e a k - O K :
0012020 Q U I E T N I L ) ( ~ \r b
0012040 r e a k - ~ : Q U I E T N I
0012060 L ) ( ^ b r e a k - ^ : Q
0012100 U I E T N I L ) ( S T O P
0012120 b r e a k - S T O P : Q U I E
0012140 T N I L ) ( @ b r e a k -
0012160 @ : E V A L N I L ) ( @
0012200 \r b r e a k - @ : E V A L N
0012220 I L ) ( ? = b r e a k - ? =
0012240 : E V A L N I L ) ( ? =
0012260 b r e a k - ? = : E V A L N
0012300 I L ) ( ? = b r e a k - ? =
0012320 : E V A L N I L ) ( ? =
0012340 \r b r e a k - ? = : E V A L
0012360 N I L ) ( @ b r e a k - @
0012400 : E V A L N I L ) ( B T b
0012420 r e a k - B T : E V A L N I
0012440 L ) ( B T ! b r e a k - B T
0012460 ! : E V A L N I L ) ( B T
0012500 V \r b r e a k - B T V : E V
0012520 A L N I L ) ( B T V ! b r
0012540 e a k - B T V ! : E V A L N
0012560 I L ) ( C L : E V A L b r e
0012600 a k - C L : E V A L : E V A L
0012620 N I L ) ( D B T b r e a k
0012640 - D B T \r : E V A L N I L )
0012660 ( D B T ! b r e a k - D B T
0012700 ! : E V A L N I L ) ( O K
0012720 b r e a k - O K : E V A L
0012740 N I L ) ( P R b r e a k - P
0012760 R : E V A L N I L ) ( R E
0013000 T U R N \r b r e a k - R E T U
0013020 R N : E V A L N I L ) ( R
0013040 E V E R T b r e a k - R E V E
0013060 R T : E V A L N I L ) ( S
0013100 T O P b r e a k - S T O P :
0013120 E V A L N I L ) ( U B b r
0013140 e a k - U B : E V A L \r N I
0013160 L ) ( ^ b r e a k - ^ : E
0013200 V A L N I L ) ( ~ b r e a
0013220 k - ~ : E V A L N I L ) ) )
0013240 \r ( P U T P R O P S C M L D E
0013260 B U G F I L E - T Y P E C O
0013300 M P I L E - F I L E ) \r ( P U T
0013320 P R O P S C M L D E B U G C
0013340 O P Y R I G H T ( " X e r o x
0013360 C o r p o r a t i o n " 1 9
0013400 8 6 ) ) \r N I L \r
0013411