$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>ADD-SEDIT-COMMANDS.DFASL!1
0000000 221 \0 005 X C L C o m p i l e r
0000020 o u t p u t f o r s o u r c
0000040 e f i l e { D S K } < L I S
0000060 P F I L E S > A D D - S E D I T
0000100 - C O M M A N D S . ; 2 \r S o u
0000120 r c e f i l e c r e a t e d
0000140 T u e s d a y , 1 0 N o v
0000160 e m b e r 1 9 8 7 , 8 : 4 9
0000200 : 2 2 . \r F A S L f i l e c
0000220 r e a t e d T u e s d a y ,
0000240 1 0 N o v e m b e r 1 9 8 7
0000260 , 8 : 5 1 : 0 8 . \r 377 235 226 002 031
0000300 o \0 \0 \0 g \0 \0 g \0 \0 \v \0 \0 021 021 001
0000320 o \0 \0 \0 \t \0 \0 020 \0 002 001 230 225 214 016 F
0000340 I L E C R E A T E D L O C 002 \0 230
0000360 217 214 020 * S T A N D A R D - I N P
0000400 U T * 230 214 020 1 t o p - l e v e
0000420 l f o r m 002 \0 \0 \0 230 220 214 \b F U
0000440 N C T I O N 230 223 001 200 002 025 230 225 214 020
0000460 D E F I N E - F I L E - I N F O
0000500 \v 230 217 214 004 O P E N 002 \b 230 220 214 006 O
0000520 U T P U T 005 230 220 214 \t D I R E C T
0000540 I O N 002 021 230 223 004 230 220 214 \t R E A D
0000560 T A B L E 230 214 \t I N T E R L I S
0000600 P 230 220 214 \a P A C K A G E 230 214 \t I
0000620 N T E R L I S P 001 230 214 006 { N u l
0000640 l } \0 235 226 \0 017 g \0 \0 g \0 \0 o \0 \0
0000660 \0 \v \0 \0 020 \0 230 214 020 1 t o p - l
0000700 e v e l f o r m \0 \0 \0 \0 231 003 230
0000720 223 001 200 001 \v 230 225 214 \a P U T P R O P
0000740 002 004 230 225 214 \t F I L E D A T E S 001
0000760 230 225 214 022 A D D - S E D I T - C O
0001000 M M A N D S 001 \a 230 223 001 230 224 002 230 214
0001020 022 1 0 - N o v - 8 7 0 8 : 4 9
0001040 : 2 2 225 214 % { D S K } < L I S P
0001060 F I L E S > A D D - S E D I T -
0001100 C O M M A N D S . ; 2 \0 234 230 225 214
0001120 \v A D D - C O M M A N D 226 \0 % e
0001140 l 002 363 246 l 003 h \n \0 \0 277 h e # 004 270
0001160 @ 006 \0 \0 311 * 271 A \t \0 \0 B H 032 I \v
0001200 \0 \0 020 \0 231 027 002 \0 002 202 377 377 377 377 231 003
0001220 230 223 001 230 223 005 230 214 006 T h e E N V 230
0001240 214 \b C H A R C O D E 230 214 \t C O M
0001260 M A N D F N 230 217 214 005 & R E S T 230
0001300 214 024 E X T R A - C O M M A N D F
0001320 N - A R G S 003 ! 230 225 214 \a P U T H
0001340 A S H 032 230 225 214 \n \ \ c h a r c o
0001360 d e \t 230 222 214 016 A R G U M E N T -
0001400 E R R O R 230 221 230 214 006 S Y S T E M
0001420 001 023 230 225 214 \a E d i t E N V \0 \0 234
0001440 230 225 214 \f C O P Y - E d i t E N V
0001460 226 \0 202 \0 \0 001 210 n \0 \0 037 X 277 ` \0 \0
0001500 037 271 h 272 h H 375 024 \0 277 I 006 \0 \0 @ 006
0001520 \0 \0 311 \0 024 \0 277 I 006 \0 \0 @ 006 \0 \0 311
0001540 002 024 002 277 I 006 \0 \0 @ 006 \0 \0 311 004 024 004
0001560 277 I 006 \0 \0 @ 006 \0 \0 311 006 024 006 277 I 006
0001600 \0 \0 @ 006 \0 \0 311 \b 024 \b 277 I 006 \0 \0 @
0001620 006 \0 \0 311 \n 024 \n 277 I 006 \0 \0 @ 006 \0 \0
0001640 311 \f 024 \f 277 I 006 \0 \0 @ 006 \0 \0 311 016 024
0001660 016 277 I 006 \0 \0 @ 006 \0 \0 311 020 024 020 277 I
0001700 006 \0 \0 @ 006 \0 \0 311 022 024 022 277 I 006 \0 \0
0001720 @ 006 \0 \0 311 024 024 024 277 I 006 \0 \0 @ 006 \0
0001740 \0 311 026 024 026 277 I 006 \0 \0 @ 006 \0 \0 311 030
0001760 024 030 277 I 006 \0 \0 @ 006 \0 \0 311 032 024 032 277
0002000 I 006 \0 \0 @ 006 \0 \0 311 034 024 034 277 I 006 \0
0002020 \0 @ 006 \0 \0 311 036 024 036 277 I 006 \0 \0 @ 006
0002040 \0 \0 311 024 277 I 006 \0 \0 @ 006 \0 \0 311
0002060 " 024 " 277 I 006 \0 \0 @ 006 \0 \0 311 $ 024 $
0002100 277 I 006 \0 \0 @ 006 \0 \0 311 & 024 & 277 I 006
0002120 \0 \0 @ 006 \0 \0 311 ( 024 ( 277 I 006 \0 \0 @
0002140 006 \0 \0 311 , 024 , 277 I 006 \0 \0 @ 006 \0 \0
0002160 311 . 024 . 277 @ 006 \0 \0 311 * 272 J g \0 \0
0002200 \n \0 \0 J g \0 \0 \n \0 \0 J g \0 \0 \n \0
0002220 \0 J g \0 \0 \n \0 \0 \f \0 \0 H 375 024 \0 277
0002240 J n \0 \0 037 o \0 \0 \0 024 \0 H 024 002 \n \0
0002260 \0 277 I 006 \0 \0 H 311 \0 024 * 277 I 020 \0 231
0002300 % 003 \0 \0 001 231 003 230 223 001 230 223 001 230 214 \n
0002320 S O U R C E - E N V 006 202 \0 \0 001 x
0002340 230 225 214 \a M A P H A S H 202 \0 \0 001 b
0002360 230 225 214 \t H A S H A R R A Y 202 \0 \0
0002400 001 _ 230 225 214 \n H A R R A Y P R O P
0002420 202 \0 \0 001 X 231 + 202 \0 \0 001 Q 231 + 202 \0
0002440 \0 001 J 231 + 5 202 \0 \0 001 } 231 $ 202 \0 \0
0002460 001 \ 230 225 214 \a E Q U I V F N 202 \0 \0
0002500 001 U 230 225 214 \n H A S H B I T S F N
0002520 202 \0 \0 001 N 230 225 214 \b O V E R F L O
0002540 W 202 \0 \0 001 G 230 225 214 004 S I Z E 202 \0
0002560 \0 001 @ 231 $ 202 \0 \0 001 7 231 $ 202 \0 \0 001
0002600 3 231 $ 202 \0 \0 001 * 231 $ 202 \0 \0 001 & 231
0002620 $ 202 \0 \0 001 035 231 $ 202 \0 \0 001 031 231 $ 202
0002640 \0 \0 001 020 231 $ 202 \0 \0 001 \f 231 $ 202 \0 \0
0002660 001 003 231 $ 202 \0 \0 \0 377 231 $ 202 \0 \0 \0 366
0002700 231 $ 202 \0 \0 \0 362 231 $ 202 \0 \0 \0 351 231 $
0002720 202 \0 \0 \0 345 231 $ 202 \0 \0 \0 334 231 $ 202 \0
0002740 \0 \0 330 231 $ 202 \0 \0 \0 317 231 $ 202 \0 \0 \0
0002760 313 231 $ 202 \0 \0 \0 302 231 $ 202 \0 \0 \0 276 231
0003000 $ 202 \0 \0 \0 265 231 $ 202 \0 \0 \0 261 231 $ 202
0003020 \0 \0 \0 250 231 $ 202 \0 \0 \0 244 231 $ 202 \0 \0
0003040 \0 233 231 $ 202 \0 \0 \0 227 231 $ 202 \0 \0 \0 216
0003060 231 $ 202 \0 \0 \0 212 231 $ 202 \0 \0 \0 201 231 $
0003100 } 231 $ t 231 $ p 231 $ g 231 $ c 231 $ Z
0003120 231 $ V 231 $ M 231 $ I 231 $ @ 231 $ < 231
0003140 $ 3 231 $ / 231 $ & 231 $ " 231 $ 031 231 $
0003160 025 231 $ \a 230 225 214 016 004 003 E d i t E N
0003200 V T Y P E # 001 202 \0 \0 001 o 226 \0 \n A
0003220 @ H 311 \0 \v \0 \0 020 \0 230 214 026 l a m b
0003240 d a i n C O P Y - E d i t E
0003260 N V 001 \0 \0 002 230 220 214 \a C L O S U R
0003300 E 230 223 001 230 223 002 230 214 003 V A L 230 214 003
0003320 K E Y 001 006 231 037 \0 \0 \0 002 202 \0 \0 001 k
0003340 230 225 214 020 C O M P I L E D - C L O
0003360 S U R E 001 230 225 214 \t \ P T R H U N
0003400 K 2 234 230 225 214 033 E X A M P L E - N
0003420 E W - S E D I T - C O M M A N D
0003440 F N 226 004 202 \0 \0 \0 321 n \0 \0 037 Z 277 @
0003460 006 \0 \0 311 032 \t \0 \0 273 h 274 h 275 h 276 h
0003500 _ 016 277 @ \t \0 \0 \t \0 \0 _ 020 277 O 020 001
0003520 274 O 020 002 001 275 K \t \0 \0 277 o \0 \0 \0 h
0003540 h K h h o \0 \0 \0 \r \a \0 \0 _ 016 277 h
0003560 J 375 024 \0 277 g \0 \0 271 n \0 261 _ 022 277 g
0003600 \0 \0 n \0 \0 037 o \0 \0 \0 024 \0 J 024 002 032
0003620 W 026 032 021 001 \n O 016 g \0 \0 \n \0 \0 \t \0
0003640 \0 \t \0 \0 022 202 \a 016 001 h 271 _ 020 277 J 311
0003660 \0 221 h 202 O 020 001 _ 016 376 277 O 016 262 1 O
0003700 016 \t \0 \0 262 036 L \t \0 \0 276 N O 016 \t \0
0003720 \0 \t \0 \0 031 277 @ M N @ \n \0 \0 \v \0 \0
0003740 277 212 K o \0 \0 \0 O 016 \v \0 \0 277 210 o \0
0003760 \0 \0 K \n \0 \0 277 i 020 \0 002 \n 230 225 214 034
0004000 * C O N D I T I O N - H A N D L
0004020 E R - B I N D I N G S * 002 \t 230 222
0004040 214 021 * C A T C H - R E T U R N -
0004060 P C * 231 " 002 001 230 222 214 021 * C A T C
0004100 H - R E T U R N - T O * 231 " 003 \v
0004120 231 : 231 9 \v 001 \0 002 231 003 230 223 001 230 223 002
0004140 230 214 \a c o n t e x t 230 214 \b c h a
0004160 r c o d e 020 202 \0 \0 \0 313 230 217 214 005 P
0004200 R I N C 202 \0 \0 \0 301 230 217 214 006 F O R
0004220 M A T 202 \0 \0 \0 265 230 225 214 016 \ \ r e
0004240 p l a c e . n o d e 202 \0 \0 \0 262 230
0004260 225 214 \v \ \ p a r s e . n e w 202 \0
0004300 \0 \0 251 230 217 214 \t C O P Y - T R E E
0004320 202 \0 \0 \0 246 230 217 214 \f S Y M B O L -
0004340 V A L U E 202 \0 \0 \0 237 231 E 202 \0 \0 \0
0004360 231 230 217 214 006 B O U N D P y 230 225 214 \a
0004400 \ M V L I S T v 230 225 214 004 R E A D
0004420 s 230 225 214 020 O P E N S T R I N G S
0004440 T R E A M A 230 225 214 \r P R O M P T
0004460 F O R W O R D / 230 225 214 006 T E R P
0004500 R I 037 231 H 034 230 225 214 030 G E T - S E
0004520 D I T - R O O T - S T R U C T U
0004540 R E \r 230 225 214 017 G E T P R O M P T
0004560 W I N D O W 004 p 230 225 214 005 I N P U
0004600 T W 230 217 214 005 E R R O R M 230 225 214 022
0004620 C O N D I T I O N - C A S E 0 1
0004640 3 6 \b 230 225 214 \v E d i t C o n t e
0004660 x t 005 202 \0 \0 \0 306 230 214 \n . . . a b
0004700 o r t e d 202 \0 \0 \0 273 230 214 033 ~ & E
0004720 r r o r : U n b o u n d S Y
0004740 M B O L : ~ S ^ 226 \0 021 @ H 375 024
0004760 \0 277 g \0 \0 h h 032 \n \0 \0 020 \0 230 214 %
0005000 l a m b d a i n E X A M P L
0005020 E - N E W - S E D I T - C O M M
0005040 A N D F N 001 \0 \0 001 231 2 230 223 001 230 223
0005060 001 230 214 001 C 001 \r 230 222 214 025 I N T E R
0005100 N A L - T H R O W - V A L U E S
0005120 231 " 001 \a 231 Q \0 \0 < 230 223 002 \r 030 3 230
0005140 214 * R P L A C D o f e n t i
0005160 r e s t r u c t u r e w i t
0005200 h v a l u e o f : 002 Z 231 7
0005220 001 231 8 234 230 225 214 034 E X A M P L E 2
0005240 - N E W - S E D I T - C O M M A
0005260 N D F N 226 004 202 \0 \0 \0 341 n \0 \0 037 Z
0005300 277 @ 006 \0 \0 311 032 \t \0 \0 273 h 274 h J 375
0005320 024 \0 277 @ 006 \0 \0 311 @ 006 \0 \0 311 \0 274 L
0005340 242 261 \0 257 K \t \0 \0 277 o \0 \0 \0 h h K
0005360 h h o \0 \0 \0 \r \a \0 \0 J 375 024 \0 277 h
0005400 J 375 024 002 277 g \0 \0 271 n \0 256 275 g \0 \0
0005420 n \0 \0 037 o \0 \0 \0 024 \0 J 024 002 032 W 020
0005440 032 021 001 006 J 311 \0 g \0 \0 \n \0 \0 \t \0 \0
0005460 \t \0 \0 022 202 \a \f 001 h 271 _ 016 277 J 311 002
0005500 221 h 202 O 016 001 d J 375 024 \0 277 376 277 J 311
0005520 \0 262 5 J 311 \0 \t \0 \0 262 @ L n \0 \0
0005540 037 o \0 \0 \0 024 \0 J 024 002 \v \0 \0 220 210 K
0005560 o \0 \0 \0 \n \0 \0 277 213 K o \0 \0 \0 J 311
0005600 \0 \v \0 \0 277 210 o \0 \0 \0 K \n \0 \0 277 210
0005620 K o \0 \0 \0 \n \0 \0 277 i 020 \0 002 006 231 :
0005640 002 005 231 ; 002 001 231 < 003 \b 231 : 231 \ \b 001
0005660 \0 002 231 003 230 223 001 230 223 002 230 214 \a c o n
0005700 t e x t 230 214 \b c h a r c o d e \f
0005720 202 \0 \0 \0 333 231 B 202 \0 \0 \0 321 231 A 202 \0
0005740 \0 \0 307 231 B 202 \0 \0 \0 272 231 B 202 \0 \0 \0
0005760 260 230 225 214 \r \ \ d o . m u t a t i
0006000 o n 202 \0 \0 \0 234 231 G v 231 H s 231 I p
0006020 231 J = 231 K + 231 L \r 231 N 006 m 231 O S
0006040 231 P K 230 225 214 022 C O N D I T I O N
0006060 - C A S E 0 1 4 2 037 230 225 214 \r E d
0006100 i t S e l e c t i o n 032 231 R \b 231
0006120 R \b 202 \0 \0 \0 327 230 214 # ~ & S e l e
0006140 c t w h o l e s t r u c t u
0006160 r e t o R P L A C D . 202 \0 \0
0006200 \0 314 230 214 \n . . . a b o r t e d 202
0006220 \0 \0 \0 300 230 214 033 ~ & E r r o r :
0006240 U n b o u n d S Y M B O L :
0006260 ~ S 202 \0 \0 \0 266 230 214 = ~ & E r r o
0006300 r d u r i n g R P L A C D
0006320 o f c u r r e n t s e l e c
0006340 t i o n . N o c h a n g e
0006360 s m a d e . 202 \0 \0 \0 247 226 \0 \v @
0006400 H 311 \0 \t \0 \0 031 002 020 \0 230 214 & l a m
0006420 b d a i n E X A M P L E 2 -
0006440 N E W - S E D I T - C O M M A N
0006460 D F N 001 \0 \0 001 231 2 230 223 001 230 223 001 230
0006500 214 001 X 001 005 231 F \0 \0 \0 Z 226 \0 021 @ H
0006520 375 024 002 277 g \0 \0 h h 032 \n \0 \0 020 \0 230
0006540 214 & l a m b d a i n E X A M
0006560 P L E 2 - N E W - S E D I T - C
0006600 O M M A N D F N 001 \0 \0 001 231 2 230 223
0006620 001 230 223 001 230 214 001 C 001 \r 231 Y 001 \a 231 b
0006640 \0 \0 8 230 223 002 \r 030 / 230 214 + R P L A
0006660 C D o f c u r r e n t s e
0006700 l e c t i o n w i t h v a l
0006720 u e o f : 003 202 \0 \0 \0 243 231 7 V
0006740 231 7 001 231 8 234 231 M 226 \0 034 h 270 @ 006 \0
0006760 \0 311 $ 006 \0 \0 311 022 002 001 270 H 006 \0 \0 311
0007000 \n H \n \0 \0 020 \0 231 M 001 \0 \0 001 231 003 230
0007020 223 001 230 223 001 230 214 \a c o n t e x t 001
0007040 030 230 217 214 006 V A L U E S 003 022 230 225 214
0007060 \b E d i t N o d e \t 231 v 004 231 R \0
0007100 \0 234 230 225 214 035 G E T - S E D I T -
0007120 S E L E C T I O N - S T R U C T
0007140 U R E 226 \0 036 h 270 @ 006 \0 \0 311 @ 006 \0
0007160 \0 311 \0 270 H 232 H 006 \0 \0 311 \n H \n \0 \0
0007200 020 h 020 \0 231 w 001 \0 \0 001 231 003 230 223 001 230
0007220 223 001 230 214 \a c o n t e x t 001 030 231 u
0007240 003 022 231 v \t 231 c 004 231 R \0 \0 235 226 \0 (
0007260 o \0 \0 \0 270 H 220 200 215 H 001 \t \0 \0 \t \0
0007300 \0 277 H 002 270 260 360 o \0 \0 \0 \t \0 \0 277 o
0007320 \0 \0 \0 \t \0 \0 020 \0 230 214 021 3 t o p
0007340 - l e v e l f o r m s 001 \0 \0 \0
0007360 231 003 230 223 001 200 004 $ 230 225 214 \b P U T P
0007400 R O P S 034 231 } 017 230 225 214 004 E V A L
0007420 \f 230 225 214 \v S Y S R E C L O O K 1
0007440 \0 003 230 223 003 231 023 230 225 214 \t C O P Y
0007460 R I G H T 230 223 002 230 214 030 B e c k m
0007500 a n I n s t r u m e n t s ,
0007520 I n c 202 \0 \0 \a 303 030 230 223 003 231 023 230 225
0007540 214 024 M A K E F I L E - E N V I R
0007560 O N M E N T 230 223 004 231 \t 230 214 \t I N
0007600 T E R L I S P 231 \v 230 214 \t I N T E
0007620 R L I S P 001 230 223 004 231 R 231 $ 231 v 231
0007640 c \0 232 202 \0 \0 \0 212 377 377
0007652