$ od -c -N 50000 [eris]<LispCore>withdrawn>Library>XEROX-LOW.DCOM!2
0000000 ( F I L E C R E A T E D " 7
0000020 - A u g - 8 6 1 9 : 3 9 : 5 4
0000040 " ( " c o m p i l e d o n
0000060 " { E R I N Y E S } < N U Y E
0000100 N S > N E W P C L > X E R O X -
0000120 L O W . L I S P ; 2 ) \r " 3 0
0000140 - J u l - 8 6 0 9 : 0 2 : 4 9
0000160 " " C O M P I L E - F I L E d
0000200 " i n " X e r o x L i s p
0000220 3 0 - J u l - 8 6 . . . "
0000240 d a t e d " 3 0 - J u l - 8 6
0000260 0 9 : 1 6 : 1 7 " ) \r ( I N -
0000300 P A C K A G E " U S E R " ) \r
0000320 ( I N - P A C K A G E ( Q U O
0000340 T E P C L ) ) \r e x p a n d -
0000360 L O A D - T I M E - E V A L D
0000400 1 \r ( L ( 1 $ $ M A C R O -
0000420 E N V I R O N M E N T 0 $ $
0000440 M A C R O - F O R M ) ) \0 017 001
0000460 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 H h 032 032
0000500 020 \0 N I L \r ( 1 0 Q L O A D T
0000520 I M E C O N S T A N T ) \r ( ) \r
0000540 ( S E T F - M A C R O - F U N C
0000560 T I O N ( Q U O T E L O A D
0000600 - T I M E - E V A L ) ( Q U O
0000620 T E e x p a n d - L O A D - T
0000640 I M E - E V A L ) ) \r e x p a n
0000660 d - M A K E - M E M O R Y - B L
0000700 O C K D 1 \r ( L ( 1 $ $ M
0000720 A C R O - E N V I R O N M E N T
0000740 0 $ $ M A C R O - F O R M )
0000760 ) \0 022 001 \0 \0 002 @ 002 001 021 001 \0 g \0
0001000 \0 H o \0 \0 \0 032 032 020 \0 N I L \r ( 1
0001020 0 Q \ A L L O C B L O C K ) \r
0001040 ( 1 5 Q ( T ) ) \r ( S E T F
0001060 - M A C R O - F U N C T I O N
0001100 ( Q U O T E M A K E - M E M O
0001120 R Y - B L O C K ) ( Q U O T E
0001140 e x p a n d - M A K E - M E M
0001160 O R Y - B L O C K ) ) \r e x p a
0001200 n d - M E M O R Y - B L O C K -
0001220 R E F D 1 \r ( L ( 1 $ $ M
0001240 A C R O - E N V I R O N M E N T
0001260 0 $ $ M A C R O - F O R M )
0001300 ) \0 003 \0 \0 002 @ 002 021 ! 002 H 001 271
0001320 H 002 001 272 g \0 \0 I g \0 \0 l 002 J h 032
0001340 032 032 h 032 032 032 020 \0 N I L \r ( 2 2 Q
0001360 C L : * 1 6 Q \ G E T B A
0001400 S E P T R ) \r ( ) \r ( S E T F -
0001420 M A C R O - F U N C T I O N (
0001440 Q U O T E M E M O R Y - B L O
0001460 C K - R E F ) ( Q U O T E e
0001500 x p a n d - M E M O R Y - B L O
0001520 C K - R E F ) ) \r ( R E M P R O
0001540 P ( Q U O T E M E M O R Y -
0001560 B L O C K - R E F ) ( Q U O T
0001600 E S E T F - M E T H O D - E X
0001620 P A N D E R ) ) \r ( P U T P R O
0001640 P S M E M O R Y - B L O C K -
0001660 R E F S E T F - I N V E R S E
0001700 S E T F - M E M O R Y - B L O
0001720 C K - R E F ) \r e x p a n d - M
0001740 E M O R Y - B L O C K - S I Z E
0001760 D 1 \r ( L ( 1 $ $ M A C R
0002000 O - E N V I R O N M E N T 0
0002020 $ $ M A C R O - F O R M ) ) \0
0002040 017 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 H h
0002060 032 032 020 \0 N I L \r ( 1 0 Q \ # B
0002100 L O C K D A T A C E L L S ) \r (
0002120 ) \r ( S E T F - M A C R O - F U
0002140 N C T I O N ( Q U O T E M E
0002160 M O R Y - B L O C K - S I Z E )
0002200 ( Q U O T E e x p a n d - M
0002220 E M O R Y - B L O C K - S I Z E
0002240 ) ) \r e x p a n d - C L E A R -
0002260 M E M O R Y - B L O C K D 1 \r
0002300 ( L ( 1 $ $ M A C R O - E N
0002320 V I R O N M E N T 0 $ $ M A
0002340 C R O - F O R M ) ) \0 223 \b \0 \0
0002360 002 @ 002 021 q \a H 001 271 H 002 001 272 I d 004
0002400 l 004 360 263 031 d 3 020 263 024 d 262 a 003 265 ^
0002420 \b \0 \0 ] K 032 273 I L 032 274 M 276 g \0 \0
0002440 g \0 \0 g \0 \0 N h 032 032 h 032 032 g \0 \0
0002460 J o \0 \0 \0 032 032 h 032 032 o \0 \0 \0 g \0
0002500 \0 g \0 \0 N o \0 \0 \0 032 032 o \0 \0 \0 032
0002520 032 h 032 032 032 032 _ 016 277 g \0 \0 K \t \0 \0
0002540 O 016 h 032 032 032 L \t \0 \0 032 020 001 d g \0
0002560 \0 360 245 d g \0 \0 360 222 277 i 201 277 h 262 222
0002600 I 260 233 \0 ( 1 7 0 Q C L : N R E
0002620 V E R S E 1 5 6 Q C L : N R
0002640 E V E R S E 4 1 Q G E N S Y
0002660 M ) \r ( 2 0 5 Q C L : F U N C
0002700 T I O N 1 7 7 Q Q U O T E
0002720 1 5 2 Q C L : L A M B D A 1
0002740 2 2 Q M E M O R Y - B L O C K
0002760 - R E F 1 1 7 Q S E T F 7
0003000 6 Q I N D E X 6 4 Q M E M
0003020 O R Y - B L O C K - S I Z E 6
0003040 1 Q E N D 5 6 Q C L : D O
0003060 ) \r ( 1 3 5 Q ( N I L ) 1
0003100 2 7 Q ( I N D E X ) 1 1 4 Q
0003120 ( ( = I N D E X E N D ) )
0003140 1 0 3 Q ( ( + I N D E X
0003160 1 ) ) ) \r ( S E T F - M A C R O
0003200 - F U N C T I O N ( Q U O T E
0003220 C L E A R - M E M O R Y - B L
0003240 O C K ) ( Q U O T E e x p a
0003260 n d - C L E A R - M E M O R Y -
0003300 B L O C K ) ) \r e x p a n d - %
0003320 % A L L O C A T E - S T A T I C
0003340 - S L O T - S T O R A G E - - C
0003360 L A S S D 1 \r ( L ( 1 $ $
0003400 M A C R O - E N V I R O N M E N
0003420 T 0 $ $ M A C R O - F O R M
0003440 ) ) \0 022 001 \0 \0 002 @ 002 001 021 001 \0 g
0003460 \0 \0 H o \0 \0 \0 032 032 020 \0 N I L \r (
0003500 1 0 Q \ A L L O C B L O C K )
0003520 \r ( 1 5 Q ( T ) ) \r ( S E T
0003540 F - M A C R O - F U N C T I O N
0003560 ( Q U O T E % % A L L O C A
0003600 T E - S T A T I C - S L O T - S
0003620 T O R A G E - - C L A S S ) (
0003640 Q U O T E \r e x p a n d - % %
0003660 A L L O C A T E - S T A T I C -
0003700 S L O T - S T O R A G E - - C L
0003720 A S S ) ) \r e x p a n d - % % S
0003740 T A T I C - S L O T - S T O R A
0003760 G E - G E T - S L O T - - C L A
0004000 S S D 1 \r ( L ( 1 $ $ M A
0004020 C R O - E N V I R O N M E N T
0004040 0 $ $ M A C R O - F O R M ) )
0004060 \0 003 \0 \0 002 @ 002 021 ! 002 H 001 271 H
0004100 002 001 272 g \0 \0 I g \0 \0 l 002 J h 032 032
0004120 032 h 032 032 032 020 \0 N I L \r ( 2 2 Q
0004140 C L : * 1 6 Q \ G E T B A S
0004160 E P T R ) \r ( ) \r ( S E T F - M
0004200 A C R O - F U N C T I O N ( Q
0004220 U O T E % % S T A T I C - S L
0004240 O T - S T O R A G E - G E T - S
0004260 L O T - - C L A S S ) ( Q U O
0004300 T E \r e x p a n d - % % S T A
0004320 T I C - S L O T - S T O R A G E
0004340 - G E T - S L O T - - C L A S S
0004360 ) ) \r ( R E M P R O P ( Q U O
0004400 T E % % S T A T I C - S L O T
0004420 - S T O R A G E - G E T - S L O
0004440 T - - C L A S S ) ( Q U O T E
0004460 S E T F - M E T H O D - E X P
0004500 A N D E R ) ) \r ( P U T P R O P
0004520 S % % S T A T I C - S L O T -
0004540 S T O R A G E - G E T - S L O T
0004560 - - C L A S S S E T F - I N V
0004600 E R S E S E T F - M E M O R Y
0004620 - B L O C K - R E F ) \r e x p a
0004640 n d - S E T F - M E M O R Y - B
0004660 L O C K - R E F D 1 \r ( L (
0004700 1 $ $ M A C R O - E N V I R O
0004720 N M E N T 0 $ $ M A C R O -
0004740 F O R M ) ) \0 ' 005 \0 \0 002 @ 002 021
0004760 A 004 H 001 271 H 002 Z 001 273 J 002 001 274 g \0
0005000 \0 I g \0 \0 l 002 K h 032 032 032 L h 032 032
0005020 032 032 020 \0 N I L \r ( 2 7 Q C L :
0005040 * 2 3 Q \ R P L P T R ) \r (
0005060 ) \r ( S E T F - M A C R O - F U
0005100 N C T I O N ( Q U O T E S E
0005120 T F - M E M O R Y - B L O C K -
0005140 R E F ) ( Q U O T E e x p a
0005160 n d - S E T F - M E M O R Y - B
0005200 L O C K - R E F ) ) \r ( M O V D
0005220 ( Q U O T E A R G L I S T )
0005240 ( Q U O T E F U N C T I O N
0005260 - A R G L I S T ) ) \r ( S E T Q
0005300 M A X N T Y P X 2 5 6 ) \r (
0005320 P U T H A S H ( Q U O T E M
0005340 A X N T Y P X ) ( Q U O T E
0005360 ( C O N S T A N T M A X N T Y
0005400 P X ) ) C O M P V A R M A C R
0005420 O H A S H ) \r ( O R ( B O U N
0005440 D P ( Q U O T E * L I S P -
0005460 C L A S S - T A B L E * ) ) (
0005500 S E T Q * L I S P - C L A S S
0005520 - T A B L E * ( \ A L L O C B
0005540 L O C K M A X N T Y P X T )
0005560 ) ) \r ( P R O C L A I M ( Q U
0005600 O T E ( S P E C I A L * L I
0005620 S P - C L A S S - T A B L E * )
0005640 ) ) \r e x p a n d - L I S P - C
0005660 L A S S - T A B L E - E N T R Y
0005700 D 1 \r ( L ( 1 $ $ M A C R
0005720 O - E N V I R O N M E N T 0
0005740 $ $ M A C R O - F O R M ) ) \0
0005760 034 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 g \0
0006000 \0 g \0 \0 H o \0 \0 \0 032 032 h 032 032 032 020
0006020 \0 N I L \r ( 1 6 Q L L S H 1
0006040 3 Q * L I S P - C L A S S - T
0006060 A B L E * 1 0 Q \ G E T B A
0006100 S E P T R ) \r ( 2 3 Q ( 1 )
0006120 ) \r ( S E T F - M A C R O - F U
0006140 N C T I O N ( Q U O T E L I
0006160 S P - C L A S S - T A B L E - E
0006200 N T R Y ) ( Q U O T E e x p
0006220 a n d - L I S P - C L A S S - T
0006240 A B L E - E N T R Y ) ) \r ( L E
0006260 T ( ( A 0 0 4 7 ( - M A X
0006300 N T Y P X 1 ) ) ) ( P R O G
0006320 N ( P R O G ( ( T Y P E - N
0006340 O 0 ) ) ( P R O G N ) R E
0006360 S T A R T ( A N D ( O R (
0006400 > T Y P E - N O A 0 0 4 7 )
0006420 ) ( \r G O . I T E R A T E _
0006440 R E T U R N . ) ) ( P R O G N
0006460 ) ( P R O G N ( L E T * (
0006500 ( A 0 0 5 0 * L I S P - C L A
0006520 S S - T A B L E * ) ( A 0 0 4
0006540 9 ( L L S H T Y P E - N O
0006560 1 ) ) ( A 0 0 4 8 \r ( Q U O
0006600 T E N O - C L A S S - I N D I
0006620 C A T O R ) ) ) ( \ P U T B A
0006640 S E P T R A 0 0 5 0 A 0 0 4
0006660 9 A 0 0 4 8 ) ) ) ( P R O G
0006700 N ) ( O R ( P R O G N ( C
0006720 L : S E T Q T Y P E - N O (
0006740 \r 1 + T Y P E - N O ) ) ( G
0006760 O R E S T A R T ) ) ) . I T
0007000 E R A T E _ R E T U R N . ( P
0007020 R O G N ) ( R E T U R N N I
0007040 L ) ) ) ) \r ( L E T * ( ( A 0
0007060 0 5 3 * L I S P - C L A S S -
0007100 T A B L E * ) ( A 0 0 5 2 (
0007120 L L S H ( \ T Y P E N U M B E
0007140 R F R O M N A M E ( Q U O T E
0007160 I W M C - C L A S S ) ) 1 )
0007200 ) ( A 0 0 5 1 N I L \r ) )
0007220 ( \ P U T B A S E P T R A 0 0
0007240 5 3 A 0 0 5 2 A 0 0 5 1 ) )
0007260 \r N O - C L A S S - I N D I C A
0007300 T O R D 1 \r ( L ( 0 O B J
0007320 ) F 3 * L I S P - C L A S
0007340 S - T A B L E * ) \0 037 003 001 \0 001
0007360 S 021 ! 002 @ 004 340 271 @ \t \0 \0 \t \0 \0 265
0007400 006 i \t \0 \0 272 H I 320 J 316 \0 J 020 \0 (
0007420 2 4 Q C L A S S - N A M E D
0007440 1 6 Q C L A S S - N A M E D
0007460 1 3 Q T Y P E - O F ) \r N I L
0007500 \r ( ) \r C L A S S - O F D 1 \r
0007520 ( L ( 0 X ) F 1 * L I
0007540 S P - C L A S S - T A B L E * )
0007560 \0 ! 001 001 \0 001 Q @ 004 340 320 311 \0 021 001
0007600 \0 H 265 \t @ \t \0 \0 311 \0 020 004 l 004 360 224
0007620 @ k H 016 020 H 020 \0 ( 2 0 Q I W M
0007640 C - C L A S S - C L A S S - W R
0007660 A P P E R ) \r N I L \r ( ) \r e x
0007700 p a n d - S Y M B O L - C A C H
0007720 E - N O D 1 \r ( L ( 1 $ $
0007740 M A C R O - E N V I R O N M E N
0007760 T 0 $ $ M A C R O - F O R M
0010000 ) ) \0 0 003 \0 \0 002 @ 002 021 ! 002 H 001
0010020 271 H 002 001 272 g \0 \0 g \0 \0 g \0 \0 n 037
0010040 377 g \0 \0 I h 032 032 h 032 032 032 o \0 \0 \0
0010060 032 032 J h 032 032 032 020 \0 N I L \r ( 3 2
0010100 Q \ L O L O C 2 4 Q L O G
0010120 A N D 2 1 Q L L S H 1 6 Q
0010140 L O G A N D ) \r ( 4 6 Q (
0010160 2 ) ) \r ( S E T F - M A C R O -
0010200 F U N C T I O N ( Q U O T E
0010220 S Y M B O L - C A C H E - N O )
0010240 ( Q U O T E e x p a n d - S
0010260 Y M B O L - C A C H E - N O ) )
0010300 \r e x p a n d - O B J E C T - C
0010320 A C H E - N O D 1 \r ( L ( 1
0010340 $ $ M A C R O - E N V I R O N
0010360 M E N T 0 $ $ M A C R O - F
0010400 O R M ) ) \0 035 003 \0 \0 002 @ 002 021 !
0010420 002 H 001 271 H 002 001 272 g \0 \0 g \0 \0 I h
0010440 032 032 J h 032 032 032 020 \0 N I L \r ( 2 1
0010460 Q \ L O L O C 1 6 Q L O G
0010500 A N D ) \r ( ) \r ( S E T F - M A
0010520 C R O - F U N C T I O N ( Q U
0010540 O T E O B J E C T - C A C H E
0010560 - N O ) ( Q U O T E e x p a
0010600 n d - O B J E C T - C A C H E -
0010620 N O ) ) \r P R I N T I N G - R A
0010640 N D O M - T H I N G - I N T E R
0010660 N A L D 1 \r ( L ( 1 S T R
0010700 E A M 0 T H I N G ) ) \0 026
0010720 \0 \0 \0 002 @ 322 A \n \0 \0 o \0 \0 \0 A \n
0010740 \0 \0 @ 323 A \n \0 \0 020 \0 ( 2 3 Q P
0010760 R I N C 1 5 Q P R I N C 5
0011000 P R I N C ) \r N I L \r ( 1 1
0011020 Q " , " ) \r e x p a n d - P R
0011040 E - M A K E - T E M P L A T E D
0011060 - F U N C T I O N - C O N S T R
0011100 U C T O R D 1 \r ( L ( 1 $
0011120 $ M A C R O - E N V I R O N M E
0011140 N T 0 $ $ M A C R O - F O R
0011160 M ) ) \0 003 \0 \0 \0 002 h 020 \0 N I L
0011200 \r N I L \r ( ) \r ( S E T F - M A
0011220 C R O - F U N C T I O N ( Q U
0011240 O T E P R E - M A K E - T E M
0011260 P L A T E D - F U N C T I O N -
0011300 C O N S T R U C T O R ) ( Q U
0011320 O T E \r e x p a n d - P R E -
0011340 M A K E - T E M P L A T E D - F
0011360 U N C T I O N - C O N S T R U C
0011400 T O R ) ) \r M A K E - T E M P L
0011420 A T E D - F U N C T I O N - C O
0011440 N S T R U C T O R - C O N S T R
0011460 U C T O R D 1 \r ( L ( 2 B
0011500 O D Y 1 I N S T A N C E - P
0011520 A R A M S 0 T E M P L A T E
0011540 - P A R A M S ) ) \0 K \0 \0 \0 003
0011560 g \0 \0 g \0 \0 h g \0 \0 g \0 \0 @ g \0
0011600 \0 g \0 \0 @ 032 h 032 032 g \0 \0 g \0 \0 A
0011620 h 032 032 g \0 \0 g \0 \0 B 032 h 032 032 o \0
0011640 \0 \0 032 032 o \0 \0 \0 032 032 h 032 032 032 032 h
0011660 032 032 h 032 032 032 h 032 032 020 \0 N I L \r (
0011700 5 0 Q P R O G N 4 5 Q P R
0011720 O T O T Y P E 3 6 Q I N S T
0011740 A N C E - P A R A M S 3 3 Q
0011760 L E T * 2 3 Q S P E C V A R
0012000 S 2 0 Q D E C L A R E 1 4
0012020 Q C L : L A M B D A 1 1 Q
0012040 Q U O T E 5 C L : C O M P I
0012060 L E 2 D E F E R R E D C O N
0012100 S T A N T ) \r ( 6 7 Q ( ( A
0012120 N D ( C L : L I S T P P R O
0012140 T O T Y P E ) ( E Q ( C A R
0012160 P R O T O T Y P E ) ( Q U O
0012200 T E C L : F U N C T I O N ) )
0012220 ( C L : S E T Q P R O T O T
0012240 Y P E ( C A D R P R O T O T
0012260 Y P E ) ) ) ( C L : S E T Q
0012300 P R O T O T Y P E ( C L : C O
0012320 M P I L E N I L ( C H A N G
0012340 E - V A R S - T O - C O N S T A
0012360 N T S P R O T O T Y P E I N
0012400 S T A N C E - P A R A M S C O
0012420 N S T A N T S ) ) ) ( C L : C
0012440 O M P I L E N I L ( B Q U O
0012460 T E ( C L : L A M B D A ( \
0012500 , I N S T A N C E - P A R A M
0012520 S ) ( L E T ( ( N E W - F N
0012540 ( C O P Y - C O M P I L E D -
0012560 C O D E ( Q U O T E ( \ ,
0012600 P R O T O T Y P E ) ) ) ) ) (
0012620 \ , @ ( I T E R A T E ( ( P
0012640 A R A M I N I N S T A N C E
0012660 - P A R A M S ) ( C O N S T A
0012700 N T I N C O N S T A N T S )
0012720 ) ( C L : C O L L E C T ( B
0012740 Q U O T E ( C H A N G E - C O
0012760 N S T A N T - I N - C O M P I L
0013000 E D - C O D E N E W - F N (
0013020 \ , C O N S T A N T ) ( \ ,
0013040 P A R A M ) ) ) ) ) ) N E W
0013060 - F N ) ) ) ) ) \r 6 1 Q ( (
0013100 C O N S T A N T S ( I T E R A
0013120 T E ( ( P A R A M I N I N
0013140 S T A N C E - P A R A M S ) )
0013160 ( C L : C O L L E C T ( L I S
0013200 T ( Q U O T E Q U O T E )
0013220 ( L I S T P A R A M ) ) ) ) )
0013240 ) ) \r M A K E - L E X I C A L -
0013260 E N V I R O N M E N T D 1 \r (
0013300 L ( 1 E N V I R O N M E N T
0013320 0 M A C R O L E T / F L E T
0013340 / L A B E L S - F O R M ) ) \0
0013360 003 \0 \0 \0 002 h 020 \0 N I L \r N I L \r
0013400 ( ) \r G E T - I M P L E M E N T
0013420 A T I O N - D E P E N D E N T -
0013440 W A L K E R - T E M P L A T E
0013460 D 1 \r ( L ( 0 X ) F 1
0013500 U S E R T E M P L A T E S F
0013520 2 M S T E M P L A T E S ) \0
0013540 P 001 002 \0 001 @ o \0 \0 \0 021 001 \0 H d 002
0013560 253 o \0 \0 \0 \t \0 \0 030 i 031 277 H 022 001 360
0013600 221 h 020 @ g \0 \0 \n \0 \0 265 & @ Q \n \0
0013620 \0 265 037 @ R \n \0 \0 265 030 @ \t \0 \0 264 022
0013640 @ \t \0 \0 h 360 264 \n @ o \0 \0 \0 \n \0 \0
0013660 \t \0 \0 020 \0 ( 1 1 5 Q G E T - P
0013700 C L - T E M P L A T E 1 1 2 Q
0013720 C L : E R R O R 7 6 Q M A
0013740 C R O - F U N C T I O N 7 0 Q
0013760 N L A M B D A F N P 6 2 Q
0014000 C L : G E T H A S H 5 3 Q C
0014020 L : G E T H A S H 4 4 Q G E
0014040 T P R O P 2 2 Q P A C K * )
0014060 \r ( 4 1 Q C O D E - W A L K -
0014100 T E M P L A T E ) \r ( 1 0 7 Q
0014120 " N L A M B D A w i t h n
0014140 o t e m p l a t e " 1 7 Q
0014160 " * " 4 ( N I L ) ) \r G E T
0014200 - P C L - T E M P L A T E D 1
0014220 \r ( L ( 0 T E M P L A T E )
0014240 ) \0 q \0 \0 \0 001 @ d 004 l 004 360 262 C
0014260 d g \0 \0 360 263 8 g \0 \0 360 247 @ d g \0
0014300 \0 360 231 277 o \0 \0 \0 @ \n \0 \0 020 g \0 \0
0014320 360 223 g \0 \0 020 @ d g \0 \0 360 223 g \0 \0
0014340 020 g \0 \0 360 246 @ d g \0 \0 360 222 g \0 \0
0014360 020 001 g \0 \0 360 262 026 g \0 \0 @ 002 001 \t \0
0014400 \0 h 032 @ 002 002 \t \0 \0 032 032 020 @ 001 \t \0
0014420 \0 @ 002 \t \0 \0 032 020 \0 ( 1 5 5 Q G
0014440 E T - P C L - T E M P L A T E
0014460 1 5 0 Q G E T - P C L - T E M
0014500 P L A T E 1 4 0 Q G E T - P
0014520 C L - T E M P L A T E 1 3 0 Q
0014540 G E T - P C L - T E M P L A T
0014560 E 4 3 Q C L : E R R O R ) \r
0014600 ( 1 2 2 Q R E P E A T 1 1 4
0014620 Q . . 1 0 7 Q C L : E V A
0014640 L 1 0 2 Q E V A L Q T 7 3
0014660 Q S M A S H 6 7 Q C L : F
0014700 U N C T I O N 6 2 Q F U N C
0014720 T I O N A L 5 4 Q R E T U R
0014740 N 4 7 Q T E S T R E T U R N
0014760 3 0 Q B O T H 2 1 Q @
0015000 1 3 Q P R O P ) \r ( 3 7 Q
0015020 " C A N ' T H A N D L E T H
0015040 E S E I N T E R L I S P C O
0015060 N S T R U C T S ~ S " ) \r R E
0015100 C O R D - D E F I N I T I O N
0015120 D 1 \r ( L ( 3 P A R E N T -
0015140 T Y P E 2 P A R E N T - N A
0015160 M E 1 T Y P E 0 N A M E
0015200 ) ) \0 020 \0 \0 \0 004 C g \0 \0 360 264 \t
0015220 @ g \0 \0 \n \0 \0 020 \0 ( 1 5 Q A D
0015240 D T O F I L E ) \r ( 1 2 Q F N
0015260 S 3 D E F M E T H ) \r ( ) \r
0015300 S T O P \r
0015305