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