$ od -c -N 50000 [eris]<Lisp>LIBRARY>BSEARCH.DCOM!1
0000000 ( F I L E C R E A T E D " 1 2
0000020 - M a r - 8 4 2 0 : 2 9 : 3 6
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P >
0000100 L I B R A R Y > B S E A R C H .
0000120 ; 7 ) \r " 2 5 - F e b - 8 4
0000140 1 7 : 1 6 : 3 4 " r e c o m p
0000160 i l e d c h a n g e s : S T
0000200 R P O S i n W O R K d a t
0000220 e d " 7 - M a r - 8 4 1 3
0000240 : 5 6 : 4 5 " ) \r ( F I L E C R
0000260 E A T E D " 1 2 - M a r - 8 4
0000300 2 0 : 2 9 : 2 1 " { P H Y L
0000320 U M } < L I S P > L I B R A R Y
0000340 > B S E A R C H . ; 7 1 1 4 8
0000360 2 c h a n g e s t o : ( F
0000400 N S S T R P O S ) \r p r e v
0000420 i o u s d a t e : " 9 - M
0000440 a r - 8 4 1 9 : 1 7 : 1 9 "
0000460 { P H Y L U M } < L I S P > L I
0000500 B R A R Y > B S E A R C H . ; 6
0000520 ) \r S T R P O S D 1 \r ( P 1
0000540 7 Q J M A X P 1 6 Q J S
0000560 T A R T P 1 5 Q L A S T I
0000600 P 1 4 Q O F F S T . I P
0000620 1 3 Q C A B A S E P 1 2
0000640 Q C A O F F S T P 1 1 Q
0000660 j t h P A T c h a r P 1 0 Q
0000700 1 s t P A T c h a r P 7
0000720 J M A X P 6 M A X I P
0000740 5 S T R I N G O F F S T P
0000760 4 S T R I N G B A S E P 3
0001000 S T R I N G L E N P 2 P
0001020 A T O F F S T P 1 P A T B
0001040 A S E P 0 P A T L E N I
0001060 7 B A C K W A R D S F L G
0001100 I 6 C A S E A R R A Y I
0001120 5 T A I L I 4 A N C H O
0001140 R I 3 S K I P I 2 S
0001160 T A R T I 1 S T R I N G
0001200 I 0 P A T ) 001 234 023 \0 \0 \b 021
0001220 240 \t @ d 004 l 004 360 262 ! 277 ` \0 \0 @ 323
0001240 320 @ 323 320 311 \0 271 k 272 ` \0 \0 @ 323 320 @
0001260 323 320 311 \0 312 \0 \a 260 027 005 \a 246 @ \t \0 \0
0001300 b \0 277 @ 311 \0 271 @ 310 003 272 @ 310 002 270 A
0001320 d 004 l 004 360 262 ! 277 ` \0 \0 A 323 320 A 323
0001340 320 311 \0 274 k 275 ` \0 \0 A 323 320 A 323 320 311
0001360 \0 312 \0 \a 260 027 005 \a 246 A \t \0 \0 b 002 277
0001400 A 311 \0 274 A 310 003 275 A 310 002 [ H 331 k 330
0001420 ^ j 361 264 - B 257 G 016 221 N 200 k b 004 277
0001440 H j 361 263 036 B 020 j B 361 236 B K k 330 330
0001460 b 004 277 k B 361 262 352 h 020 B N 361 262 343 h
0001500 020 C 226 C \t \0 \0 b 006 277 F 265 \t ` \0 \0
0001520 b \f 260 030 005 006 236 F 312 \0 C j 360 227 F 310
0001540 002 n 001 \0 360 244 F \t \0 \0 277 M k 331 ] J
0001560 k 331 Z F 310 003 F 311 \0 M B G 016 221 k 201
0001600 m 377 330 330 M D 221 B 205 G 016 221 k 200 N 330
0001620 J l 002 330 J H 330 021 006 017 O 024 j 360 247 o
0001640 \0 \0 \0 \t \0 \0 277 O 026 I J k 330 302 302 _
0001660 020 277 G 016 232 O 030 k 331 _ 030 O 032 375 361 210
0001700 O 030 k 330 _ 030 O 032 361 222 261 377 u O 020 C
0001720 360 253 O 020 O 026 L O 030 302 302 360 262 326 O 036
0001740 O 034 O 030 k 330 021 003 022 O " O 361 263 ,
0001760 C O 026 I O " 302 302 _ 022 360 255 O 022 O 026
0002000 L O $ 302 302 360 242 h 260 023 O " k 330 _ "
0002020 277 O $ k 330 _ $ 277 260 321 i 022 262 226 E 224
0002040 O 030 H 330 201 O 030 M 331 020 \0 ( 4 2 6 Q
0002060 S H O U L D N T 3 3 2 Q \
0002100 I L L E G A L . A R G 2 6 7 Q
0002120 C H C O N 1 1 5 5 Q M K S
0002140 T R I N G 6 0 Q M K S T R I
0002160 N G ) \r ( 3 0 0 Q \ T R A N S
0002200 P A R E N T 1 3 1 Q \ P N P
0002220 S P A C E 1 1 3 Q \ P N P S
0002240 P A C E 3 4 Q \ P N P S P A
0002260 C E 1 6 Q \ P N P S P A C E
0002300 ) \r ( 4 2 3 Q " N o n Z e r
0002320 o O F F S T f o r a C A
0002340 S E A R R A Y ? " ) \r S T R P O
0002360 S L D 1 \r ( P 5 L A S T I
0002400 P 4 I P 3 L E N P
0002420 2 O F F S T P 1 B A S
0002440 E I 5 B A C K W A R D S F
0002460 L G I 4 C A S E A R R A Y
0002500 I 3 N E G I 2 S T A
0002520 R T I 1 S T R I N G I
0002540 0 A ) 001 \t 006 \0 \0 006 021 020 \0 ` \0
0002560 \0 265 006 ` \0 \0 037 h 027 \0 \0 277 X 021 P 005
0002600 @ 004 ` \0 \0 360 250 @ h H \v \0 \0 b \0 277
0002620 A d 004 l 004 360 262 ! 277 ` \0 \0 A 323 320 A
0002640 323 320 311 \0 271 ` \0 \0 A 323 320 A 323 320 311 \0
0002660 312 \0 \a 273 k 260 027 005 \a 246 A \t \0 \0 b 002
0002700 277 A 311 \0 271 A 310 002 273 A 310 003 272 B 263 024
0002720 E 221 K 200 k b 004 277 J k 331 272 C 262 ! j
0002740 260 037 j B 361 237 B K k 330 330 b 004 277 k B
0002760 361 262 347 h 260 x B K 361 262 337 h 260 p k b
0003000 006 277 D 265 \t ` \0 \0 b \b 260 030 005 006 236 D
0003020 312 \0 C j 360 227 D 310 002 n 001 \0 360 244 D \t
0003040 \0 \0 277 J B 330 274 J E 225 L k 330 274 k 204
0003060 L k 331 274 K 330 275 D 310 003 j 360 247 o \0 \0
0003100 \0 \t \0 \0 277 D 311 \0 b \b 277 E 227 L k 331
0003120 \ M 375 361 205 L k 330 \ M 361 221 h 215 C @
0003140 D I L 302 302 302 360 262 344 L J 331 022 H 027 \0
0003160 \0 277 020 \0 ( 3 3 0 Q S H O U L D
0003200 N T 2 6 6 Q \ I L L E G A L
0003220 . A R G 1 2 2 Q M K S T R I
0003240 N G 4 1 Q M A K E B I T T A
0003260 B L E ) \r ( 4 0 5 Q \ S T R P
0003300 O S L A R R A Y 2 3 4 Q \ T
0003320 R A N S P A R E N T 7 4 Q \
0003340 P N P S P A C E 6 0 Q \ P N
0003360 P S P A C E 3 1 Q 004 003 C H A
0003400 R T A B L E T Y P E # 1 7 Q
0003420 \ S T R P O S L A R R A Y 1 2
0003440 Q 004 003 C H A R T A B L E T Y P
0003460 E # 5 \ S T R P O S L A R R
0003500 A Y ) \r ( 3 2 5 Q " N o n Z
0003520 e r o O F F S T f o r C A
0003540 S E A R R A Y ? " ) \r B F I L E
0003560 P O S A 0 0 0 1 D 1 \r ( N A M
0003600 E E R R O R S E T L ( 2
0003620 E R R O R S E T . W 1 E R R
0003640 O R S E T . V 0 E R R O R S
0003660 E T . U ) P 1 3 Q S T R M
0003700 P 1 2 Q T E M P 1 1 Q
0003720 M A X I P 1 0 Q N E X T
0003740 I P 7 S T A R T I P 6
0003760 Q U A R T E R F L E N P 5
0004000 F L E N P 4 O R I G I N
0004020 A L L Y O P E N P P 3 O F
0004040 P O S P 2 F F P 1 I
0004060 N C R E M E N T P 0 P L E
0004100 N F 1 6 Q L O W I N D E X
0004120 F 1 7 Q H I G H I N D E X
0004140 F 2 0 Q R E S E T V A R S
0004160 L S T F 2 1 Q P A T T E R
0004200 N F 2 2 Q T A I L F 2
0004220 3 Q F I L E F 2 4 Q C A
0004240 S E A R R A Y F 2 5 Q S K
0004260 I P F 2 6 Q R E S E T Y )
0004300 001 v 016 \t \0 003 W " \t \0 \0 l 200 g \0
0004320 \0 j 021 244 \r W & \t \0 \0 _ 024 232 i 274 O
0004340 024 \t \0 \0 _ 026 260 033 o \0 \0 \0 W & g \0
0004360 \0 \n \0 \0 _ 026 h 032 032 W 032 c 277 O
0004400 026 g \0 \0 \n \0 \0 275 j M H 331 _ 022 361 223
0004420 h 261 001 " M 342 342 _ 030 277 l 002 O 030 361 242
0004440 O 030 201 l 002 276 O 026 \t \0 \0 273 W 034 257 K
0004460 c 034 277 W 036 263 . o \0 \0 \0 c 036 260 7 j
0004500 W 034 361 262 025 W 034 O 022 k 330 330 c 034 277 j
0004520 W 034 361 262 340 j 260 332 W 034 O 022 361 262 326 h
0004540 261 \0 323 j W 036 361 231 W 036 O 022 k 330 330 c
0004560 036 201 W 036 O 022 361 222 O 022 201 W 036 c 036 277
0004600 W 034 W 036 361 227 o \0 \0 \0 \t \0 \0 277 L 264
0004620 026 o \0 \0 \0 O 026 K h 032 032 h 032 032 W
0004640 032 c 277 h _ 020 277 W 036 k 330 _ 016 277 W
0004660 $ 221 H 200 j c $ 277 O 020 265 \r O 016 d W
0004700 034 361 247 277 h 260 n _ 016 260 U k 331 _ 022 277
0004720 W 034 O 016 N d I 361 224 277 I d 340 271 331 _
0004740 032 277 d O 032 361 242 277 O 032 _ 016 277 W " O
0004760 026 O 016 O 022 W * h W ( \r \a \0 \0 _ 020
0005000 260 272 W " O 026 O 020 O 022 W * h W ( \r
0005020 \a \0 \0 _ 024 265 # O 020 _ 022 277 O 016 O 022
0005040 O 016 331 342 330 _ 020 O 016 331 j 360 262 326 O 016
0005060 W $ 330 022 c , i 020 _ 016 260 344 \0 ( 5 1
0005100 3 Q F F I L E P O S 4 6 6 Q
0005120 F F I L E P O S 3 0 5 Q E
0005140 R R O R 1 4 3 Q G E T F I L
0005160 E P T R 7 7 Q G E T F I L E
0005200 I N F O 5 4 Q O P E N S T R
0005220 E A M 3 4 Q \ G E T S T R E
0005240 A M 2 2 Q O P E N P 4 N
0005260 C H A R S ) \r ( 7 4 Q L E N G
0005300 T H 5 1 Q I N P U T 1 1 Q
0005320 F I L E P O S ) \r ( 3 1 5 Q
0005340 ( A N D R E S E T S T A T E
0005360 ( A P P L Y ( Q U O T E S
0005400 E T F I L E P T R ) O L D V A
0005420 L U E ) ) 3 0 2 Q " H i g h
0005440 - e n d i n d e x l e s s
0005460 t h a n l o w - e n d " 1 6
0005500 3 Q 1 7 7 7 7 7 7 7 7 7 7 Q
0005520 4 4 Q ( P R O G N ( C L O S
0005540 E F ? O L D V A L U E ) ) ) \r
0005560 B F I L E P O S D 1 \r ( P 2
0005600 R E S E T Z P 1 R E S E
0005620 T Y P 0 L I S P X H I S T
0005640 I 6 C A S E A R R A Y I
0005660 5 T A I L I 4 S K I P
0005700 I 3 H I G H I N D E X I
0005720 2 L O W I N D E X I 1
0005740 F I L E I 0 P A T T E R N
0005760 F 3 L I S P X H I S T F
0006000 4 R E S E T V A R S L S T )
0006020 \0 3 003 002 \0 \a @ 005 \a 254 @ 004 l 004 360
0006040 246 @ \t \0 \0 b \0 277 S 021 ! 002 T o \0 \0
0006060 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0
0006100 \0 J 223 \b \0 \0 020 I 020 \0 ( 5 6 Q E
0006120 R R O R ! 5 1 Q R E S E T R
0006140 E S T O R E 3 7 Q B F I L E
0006160 P O S A 0 0 0 1 1 5 Q M K S
0006200 T R I N G ) \r ( 4 5 Q E R R O
0006220 R 3 4 Q I N T E R N A L ) \r
0006240 ( 3 1 Q ( D U M M Y . F O R
0006260 . E R R O R S E T ) ) \r ( P R E
0006300 T T Y C O M P R I N T B S E A
0006320 R C H C O M S ) \r ( R P A Q Q
0006340 B S E A R C H C O M S ( ( F N
0006360 S S T R P O S S T R P O S L
0006400 B F I L E P O S ) ( G L O B
0006420 A L R E S O U R C E S ( \ S T
0006440 R P O S L A R R A Y ( N C R E
0006460 A T E ( Q U O T E \r C H A R
0006500 T A B L E ) ) ) ) ( V A R S
0006520 \ B F I L E P O S . S H O R T P
0006540 A T T E R N L ) ( D E C L A R
0006560 E : D O N T E V A L @ L O A D
0006600 D O C O P Y ( P ( M O V D
0006620 ? ( Q U O T E S T R P O S )
0006640 ( \r Q U O T E B S T R P O S
0006660 ) ) ( M O V D ? ( Q U O T E
0006700 S T R P O S L ) ( Q U O T E
0006720 B S T R P O S L ) ) ) ) ) ) \r
0006740 ( R P A Q Q \ S T R P O S L A
0006760 R R A Y N I L ) \r ( R P A Q Q
0007000 \ B F I L E P O S . S H O R T
0007020 P A T T E R N L 1 6 ) \r ( M O
0007040 V D ? ( Q U O T E S T R P O
0007060 S ) ( Q U O T E B S T R P O
0007100 S ) ) \r ( M O V D ? ( Q U O T
0007120 E S T R P O S L ) ( Q U O T
0007140 E B S T R P O S L ) ) \r ( P U
0007160 T P R O P S B S E A R C H C
0007200 O P Y R I G H T ( " X e r o x
0007220 C o r p o r a t i o n " 1 9
0007240 8 3 1 9 8 4 ) ) \r N I L \r
0007256