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