$ od -c -N 50000 [eris]<LispCore>SOURCES>AERROR!4
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 " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r 006 001 ( f i l e
0000100 c r e a t e d " 1 6 - O c t -
0000120 8 6 1 8 : 1 5 : 4 8 " 006 004 {
0000140 e r i s } < l i s p c o r e > s
0000160 o u r c e s > a e r r o r . \ ;
0000200 4 006 001 7 0 1 1 \r \r
0000220 | p r e v i o u s | | d
0000240 a t e : | " 1 5 - S e p - 8 6
0000260 1 8 : 1 7 : 0 3 " { e r i s
0000300 } < l i s p c o r e > s o u r c
0000320 e s > a e r r o r . \ ; 3 ) \r \r
0000340 \r ; C o p y r i g h t ( c )
0000360 1 9 8 2 , 1 9 8 3 , 1 9 8
0000400 6 b y X e r o x C o r p o
0000420 r a t i o n . A l l r i g
0000440 h t s r e s e r v e d . \r \r (
0000460 p r e t t y c o m p r i n t a
0000500 e r r o r c o m s ) \r \r ( r p a
0000520 q q 006 002 a e r r o r c o m s 006
0000540 001 ( ( f n s e r r o r m e
0000560 r r o r n e r r o r s t r i n
0000600 g s e t e r r o r n l i s p
0000620 e r r o r \ \ l i s p e r r o
0000640 r \ \ i l l e g a l . a r g
0000660 \r
0000700 \ \ a r g . n
0000720 o t . l i t a t o m ) \r
0000740 (
0000760 e x p o r t ( d e c l a r e \
0001000 : e v a l @ c o m p i l e (
0001020 v a r s \ \ e r r o r m e s s
0001040 a g e l i s t ) \r
0001060
0001100 d o n t c
0001120 o p y \r
0001140
0001160 ( o p t i m i z e r
0001200 s l i s p e r r o r ) ) ) \r
0001220
0001240 ( v a r i a b l e s * l a
0001260 s t - c o n d i t i o n * ) \r
0001300
0001320 ( g l o b a l v a r s \ \
0001340 e r r o r m e s s a g e l i s t
0001360 ) \r
0001400 ( f u n c t i o n s
0001420 c o n d i t i o n - t o - e r r
0001440 n e r r m - t o - c o n d i t
0001460 i o n ) \r
0001500 ( p r o p f i
0001520 l e t y p e a e r r o r ) \r
0001540
0001560 ( l o c a l v a r s . t
0001600 ) ) ) \r ( d e f i n e q \r \r ( 006
0001620 004 e r r o r m 006 001 \r ( l a m
0001640 b d a ( x ) 006 003 006 001
0001660
*
0001720 006 003 ( *
0001740 | a m d | " 3 0 - J u l - 8 6
0001760 1 5 : 3 1 " ) 006 001 \r (
0002000 c l : u n l e s s ( o r ( c
0002020 o n d i t i o n - t y p e p x
0002040 ' c o n d i t i o n ) \r
0002060
0002100 ( c l : l i s t p x ) ) \r
0002120 ( c l : s e t
0002140 q x ( l i s t 1 7 x ) )
0002160 ) \r ( c o n d \r
0002200 ( ( c o n d i t i o n - t
0002220 y p e p x ' c o n d i t i o
0002240 n ) \r ( c l : t
0002260 e r p r i t ) \r
0002300 ( r e p o r t - c o n d i t i
0002320 o n x t ) \r
0002340 ( c l : t e r p r i t ) ) \r
0002360 ( t ( p r o g n
0002400 i l \r
0002420 ( t e r p r i t ) \r
0002440 ( p
0002460 r i n 1 ( o r ( c a r ( n
0002500 t h \ \ e r r o r m e s s a g
0002520 e l i s t ( a d d 1 ( o r
0002540 ( n u m b e r p ( c a r x )
0002560 ) \r
0002600
*
0002660 1 7 ) ) ) ) \r
0002700
0002720 ' " E R R O R " ) \r
0002740
0002760 t t ) \r
0003000 ( t e r
0003020 p r i t ) \r
0003040 ( r e t u r n (
0003060 p r i n t ( c a r ( o r (
0003100 l i s t p ( c d r x ) ) \r
0003120
*
0003160 ( r e t u r n ) )
0003200 ) \r
0003220
0003240 t t ) ) ) ) ) ) ) \r \r ( 006 004
0003260 e r r o r n 006 001 \r ( l a m b
0003300 d a n i l 006 003 006 001
0003320
*
0003360 006 003 ( * |
0003400 a m d | " 3 0 - J u l - 8 6
0003420 1 7 : 5 8 " ) 006 001 \r
0003440
*
0003520 006 003 ( * | l m m
0003540 : | 2 6 j u n 7 5 6 5 5
0003560 ) 006 001 \r ( c o n d \r
0003600 ( ( n u l l * l a s
0003620 t - c o n d i t i o n * ) \r
0003640 n i l ) \r
0003660 ( ( c o n d i t i o n - t y
0003700 p e p * l a s t - c o n d i t
0003720 i o n * ' o l d - i n t e r l
0003740 i s p - e r r o r ) \r
0003760 ( c o n s ( o l d - i n
0004000 t e r l i s p - e r r o r - n u
0004020 m b e r * l a s t - c o n d i
0004040 t i o n * ) \r
0004060 ( c o n d \r
0004100 ( ( o l
0004120 d - i n t e r l i s p - e r r o
0004140 r - m e s s a g e * l a s t -
0004160 c o n d i t i o n * ) \r
0004200 ( l
0004220 i s t ( o l d - i n t e r l i
0004240 s p - e r r o r - m e s s a g e
0004260 * l a s t - c o n d i t i o n
0004300 * ) ) ) \r
0004320 ( t n i l ) ) ) )
0004340 \r ( t * l a s t
0004360 - c o n d i t i o n * ) ) ) ) \r
0004400 \r ( 006 004 e r r o r s t r i n g 006
0004420 001 \r ( l a m b d a ( x ) 006
0004440 003 006 001
0004460
*
0004520 006 003 ( * | l m m | " 2
0004540 1 - A P R - 8 0 1 5 : 4 6 " )
0004560 006 001 \r ( c a r ( n t h
0004600 \ \ e r r o r m e s s a g e l
0004620 i s t ( a d d 1 ( o r ( n
0004640 u m b e r p x ) \r
0004660
*
0004720 1 7 ) ) ) ) ) ) \r \r (
0004740 006 004 s e t e r r o r n 006 001 \r
0004760 ( l a m b d a ( n u m m e s
0005000 s ) 006 003 006 001
0005020
0005040 006
0005060 003 ( * | a m d | " 3 0 - J u
0005100 l - 8 6 1 7 : 0 0 " ) 006 001 \r
0005120 ( c l : s e t q * l a s
0005140 t - c o n d i t i o n * ( e r
0005160 r m - t o - c o n d i t i o n
0005200 n u m m e s s ) ) ) ) \r \r ( 006
0005220 004 l i s p e r r o r 006 001 \r (
0005240 l a m b d a ( n x c o n t
0005260 i n u e o k f l g ) 006 003 006 001
0005300
0005320 006 003
0005340 ( * | l m m | " 6 - M A Y
0005360 - 8 0 2 1 : 3 0 " ) 006 001 \r
0005400
*
0005460 006 003 ( *
0005500 | c o m p i l e s | | o p e n
0005520 | | a s | | c a l l | | t
0005540 o | \r 006 001
0005560
*
0005640 006 003 \ \ l i s p e r r o r
0005660 ) 006 001 \r ( 006 002 \ \ l i s
0005700 p e r r o r 006 001 x n c o n
0005720 t i n u e o k f l g ) ) ) \r \r (
0005740 006 004 \ \ l i s p e r r o r 006 001 \r
0005760 ( l a m b d a ( x n c
0006000 o n t i n u e o k f l g ) 006 003 006
0006020 001
0006040
0006060 006 003 ( * | h d j | " 1 5 -
0006100 S e p - 8 6 1 7 : 3 9 " ) 006 001
0006120 \r ( d e c l a r e ( u
0006140 s e d f r e e \ \ i n t e r r
0006160 u p t a b l e ) ) \r ( p
0006200 r o g n i l \r
0006220 ( s e l e c t q n \r
0006240 ( ( 5 2
0006260 2 ) \r \r
0006300 006 003 ( * | F
0006320 i l e | | e r r o r s | | t
0006340 h a t | | c a n | | h a p p
0006360 e n | | t o | | f i l e s |
0006400 | o p e n | | f o r | | o
0006420 u t p u t | ) 006 001 \r \r
0006440 \r
0006460 \r
0006500 006 003 ( * * ( \ \ s t
0006520 o p . d r i b b l e ? x ) ) 006
0006540 001 \r ) \r
0006560 n i l ) \r
0006600 ( o r \ \ i n t e r r u p t
0006620 a b l e ( \ \ m p . e r r o r
0006640 \ \ m p . u n i n t e r r u p
0006660 t a b l e \r
0006700
0006720 " E r r o r i n u n i n t
0006740 e r r u p t a b l e s y s t e
0006760 m c o d e - - ^ N t o
0007000 c o n t i n u e i n t o e r
0007020 r o r h a n d l e r " \r
0007040
*
0007100 x ) ) \r r e t
0007120 ( r e t u r n ( p r o g 1
0007140 ( c o n d \r
0007160
0007200 ( ( s m a l l p n ) \r
0007220
0007240 ( e r r o
0007260 r x ( l i s t n x ) ) ) \r
0007300
0007320 ( t (
0007340 e r r o r n x ) ) ) \r
0007360
0007400 ( o r c o n t i n
0007420 u e o k f l g ( g o r e t )
0007440 ) ) ) ) ) ) \r \r ( 006 004 \ \ i l l
0007460 e g a l . a r g 006 001 \r ( l a
0007500 m b d a ( x ) 006 003 006 001
0007520
*
0007560 006 003 ( *
0007600 | l m m | " 2 5 - A P R - 8
0007620 0 1 8 : 0 2 " ) 006 001 \r
0007640 ( 006 002 l i s p e r r o r 006 001 "
0007660 I L L E G A L A R G " x ) )
0007700 ) \r \r ( 006 004 \ \ a r g . n o t .
0007720 l i t a t o m 006 001 \r ( l a m
0007740 b d a ( x ) 006 003 006 001
0007760
*
0010020 006 003 ( *
0010040 | l m m | " 2 5 - A P R - 8 0
0010060 1 8 : 0 2 " ) 006 001 \r (
0010100 006 002 l i s p e r r o r 006 001 " A
0010120 R G N O T L I T A T O M "
0010140 x ) ) ) \r ) \r ( * F O L L O W
0010160 I N G D E F I N I T I O N S
0010200 E X P O R T E D ) \r \r \r ( d e c
0010220 l a r e \ : e v a l @ c o m p
0010240 i l e \r \r ( r p a q q 006 002 \
0010260 \ e r r o r m e s s a g e l i s
0010300 t 006 001 \r ( " S Y
0010320 S T E M E R R O R " " "
0010340 " S T A C K O V E R F L O W "
0010360 " I L L E G A L R E T U R N
0010400 " " A R G N O T L I S T "
0010420 " H A R D D I S K E R R O
0010440 R " \r
0010460 " A T T E M P T T O S E
0010500 T N I L O R T " " A T T
0010520 E M P T T O R P L A C N I
0010540 L " " U N D E F I N E D O R
0010560 I L L E G A L G O " \r
0010600 " F I L
0010620 E W O N ' T O P E N " " N
0010640 O N - N U M E R I C A R G "
0010660 " A T O M T O O L O N G "
0010700 " A T O M H A S H T A B L E
0010720 F U L L " \r
0010740 " F I L E N O T
0010760 O P E N " " A R G N O T L
0011000 I T A T O M " " ! t o o m
0011020 a n y f i l e s o p e n "
0011040 " E N D O F F I L E " " E
0011060 R R O R " " B R E A K " \r
0011100 " I L
0011120 L E G A L S T A C K A R G "
0011140 " F A U L T I N E V A L "
0011160 " A R R A Y S F U L L " "
0011200 F I L E S Y S T E M R E S O
0011220 U R C E S E X C E E D E D "
0011240 \r "
0011260 F I L E N O T F O U N D "
0011300 " B A D S Y S O U T F I L E
0011320 " " U N U S U A L C D R A
0011340 R G L I S T " " H A S H T
0011360 A B L E F U L L " \r
0011400 " I L L E G
0011420 A L A R G " " A R G N O T
0011440 A R R A Y " " I L L E G A L
0011460 O R I M P O S S I B L E B
0011500 L O C K " \r
0011520 " S T A C K P T R
0011540 H A S B E E N R E L E A S E
0011560 D " " S T O R A G E F U L L
0011600 " " A T T E M P T T O U S
0011620 E I T E M O F I N C O R R
0011640 E C T T Y P E " \r
0011660 " I L L E G A
0011700 L D A T A T Y P E N U M B
0011720 E R " " D A T A T Y P E S
0011740 F U L L " " A T T E M P T T
0011760 O B I N D N I L O R T "
0012000 \r
0012020 " ! t o o m a n y u s e r
0012040 i n t e r r u p t c h a r a
0012060 c t e r s " " ! r e a d - m
0012100 a c r o c o n t e x t e r r
0012120 o r " " I L L E G A L R E A
0012140 D T A B L E " \r
0012160 " I L L E G A L
0012200 T E R M I N A L T A B L E "
0012220 " ! s w a p b l o c k t o o
0012240 b i g f o r b u f f e r "
0012260 " P R O T E C T I O N V I O
0012300 L A T I O N " \r
0012320 " B A D F I L E
0012340 N A M E " " U S E R B R E
0012360 A K " " U N B O U N D A T O
0012400 M " " U N D E F I N E D C A
0012420 R O F F O R M " \r
0012440 " U N D E F
0012460 I N E D F U N C T I O N " "
0012500 C O N T R O L - E " " F L O A
0012520 T I N G U N D E R F L O W "
0012540 " F L O A T I N G O V E R F L
0012560 O W " " O V E R F L O W " \r
0012600 " A
0012620 R G N O T H A R R A Y " "
0012640 T O O M A N Y A R G U M E N
0012660 T S " ) ) \r d o n t c o p y \r
0012700 ( d e f o p t i m i z e r 006 002
0012720 l i s p e r r o r 006 001 ( m e s
0012740 s a g e a r g ) \r ` ( \
0012760 \ l i s p e r r o r , a r g
0013000 , ( c l : i f ( c l : s t r i
0013020 n g p m e s s a g e ) \r
0013040
0013060 ( f o r
0013100 x i n \ \ e r r o r m e s s
0013120 a g e l i s t a s i f r o
0013140 m 0 w h e n ( c l : e q u
0013160 a l x m e s s a g e ) \r
0013200
*
0013240 d o \r
0013260
0013300 ( r e t u r n i
0013320 ) \r
0013340
0013360 f i n a l l y \r
0013400
*
0013440 ( r e t u r n ( h e l p " U
0013460 n k n o w n e r r o r m e s
0013500 s a g e " ( l i s t m e s s
0013520 a g e a r g ) ) ) ) \r
0013540
0013560 m e s s a g
0013600 e ) ) ) \r \r ) \r \r \r ( * E N D
0013620 E X P O R T E D D E F I N I
0013640 T I O N S ) \r \r ( c l : d e f v
0013660 a r 006 002 * l a s t - c o n d i
0013700 t i o n * 006 001 n i l \r
0013720
0013740 " L a s t
0013760 c o n d i t i o n s i g n a l
0014000 l e d . T h i s g e t s r
0014020 e b o u n d t o i t s e l f
0014040 i n n e s t e d e x e c s
0014060 . " ) \r \r ( d e c l a r e \ :
0014100 d o e v a l @ c o m p i l e d
0014120 o n t c o p y \r \r ( g l o b a l
0014140 v a r s \ \ e r r o r m e s s
0014160 a g e l i s t ) \r ) \r ( c l : d
0014200 e f u n 006 002 c o n d i t i o n
0014220 - t o - e r r n 006 001 ( c o n d
0014240 i t i o n ) ( c l : i f ( c
0014260 o n d i t i o n - t y p e p c
0014300 o n d i t i o n ' o l d - i n
0014320 t e r l i s p - e r r o r ) \r
0014340
*
0014400 ( o
0014420 l d - i n t e r l i s p - e r r
0014440 o r - n u m b e r c o n d i t
0014460 i o n ) \r
0014500
*
0014540 n i l ) ) \r \r ( c l : d
0014560 e f u n 006 002 e r r m - t o - c
0014600 o n d i t i o n 006 001 ( n u m
0014620 m e s s a g e ) ( c l : i f
0014640 ( c o n d i t i o n - t y p e p
0014660 n u m ' c o n d i t i o n )
0014700 \r
0014720
*
0014760 n u m \r
0015000
*
0015040 ( m a k e - c o n
0015060 d i t i o n ' o l d - i n t e
0015100 r l i s p - e r r o r : n u m
0015120 b e r n u m \r
0015140
*
0015220 : m e s s a g e m e s s a g
0015240 e ) ) ) \r \r \r ( p u t p r o p s
0015260 006 002 a e r r o r f i l e t y
0015300 p e 006 001 c l : c o m p i l e -
0015320 f i l e ) \r ( d e c l a r e \ :
0015340 d o e v a l @ c o m p i l e
0015360 d o n t c o p y \r \r ( l o c a l
0015400 v a r s . t ) \r ) \r ( p u t
0015420 p r o p s a e r r o r c o p
0015440 y r i g h t ( " X e r o x C
0015460 o r p o r a t i o n " 1 9 8 2
0015500 1 9 8 3 1 9 8 6 ) ) \r ( d e
0015520 c l a r e \ : d o n t c o p y
0015540 \r ( f i l e m a p ( n i l
0015560 ( 9 0 0 4 1 9 8 ( e r r o
0015600 r m 9 1 0 . 1 7 0 7 ) (
0015620 e r r o r n 1 7 0 9 . 2 3
0015640 0 3 ) ( e r r o r s t r i n g
0015660 2 3 0 5 . 2 5 2 5 ) ( s
0015700 e t e r r o r n \r 2 5 2 7 .
0015720 2 7 0 0 ) ( l i s p e r r o
0015740 r 2 7 0 2 . 3 0 3 7 ) (
0015760 \ \ l i s p e r r o r 3 0 3 9
0016000 . 3 8 7 8 ) ( \ \ i l l e
0016020 g a l . a r g 3 8 8 0 . 4
0016040 0 3 3 ) ( \r \ \ a r g . n o t
0016060 . l i t a t o m 4 0 3 5 .
0016100 4 1 9 6 ) ) ) ) ) \r s t o p \r
0016117