$ od -c -N 50000 [phylum]<3-LISP>DESRIVIERES>PRELIMINARY>3CODE-EXAMPLES.TED!1
0000000 3 - C O D E E x a m p l e s
0000020 \r \r J i m d e s R i v i e r
0000040 e s \r N o v e m b e r 4 t h ,
0000060 1 9 8 3 \r \r F i l e d o n :
0000100 { p h y l u m } < d e s r i v
0000120 i e r e s > n l i s p > 3 c o d
0000140 e - e x a m p l e s . t e d \r \r
0000160 \r ~ ~ s t a r t \r \r ( * T h e
0000200 f o l l o w i n g 3 - L I S
0000220 P e x p r e s s i o n c o m
0000240 p i l e s t o t h e f o l
0000260 l o w i n g \r 3 - C O D E
0000300 , a s s u m i n g t h a t
0000320 t h e c o m p i l e r d o e
0000340 s n ' t t r e a t = , - ,
0000360 a n d \r * a s s p e
0000400 c i a l i n a n y w a y .
0000420 * ) \r \r ( l a m b d a ( &
0000440 x ) \r ( i f ( = x 0
0000460 ) \r 1 \r
0000500 ( * x ( f o o ( - x
0000520 1 ) ) ) ) ) \r \r \r L 1 :
0000540 3 L A M B D A ( 1 (
0000560 x ) ) , L 2 \r
0000600 3 R E T U R N \r \r L 2 :
0000620 3 V A R = \r
0000640 3 P C H E C K L
0000660 3 \r 3 V A R
0000700 X \r 3
0000720 C O N S T 0 \r
0000740 3 C A L L $ F , 2
0000760 ; ( = - - - - ) \r \r
0001000 L 3 : 3 F J U M P
0001020 L 5 \r \r L 4 : 3
0001040 C O N S T 1 \r
0001060 3 R E T U R N \r \r L 5 :
0001100 3 V A R *
0001120 \r 3 P C H E C
0001140 K * C O N T * ; P C H E
0001160 C K c o r r e s p . t o T
0001200 C A L L \r 3 V
0001220 A R X \r
0001240 3 V A R F O O \r
0001260 3 P C H E C K
0001300 L 6 \r 3 V
0001320 A R - \r
0001340 3 P C H E C K L 7 \r
0001360 3 V A R
0001400 X \r 3 C O N S
0001420 T 1 \r 3
0001440 C A L L $ F , 2 ;
0001460 ( - - - - - ) \r \r L 7 :
0001500 3 C A L L $ F
0001520 , 1 ; ( F O O - - ) \r
0001540 \r L 6 : 3 T C A L L
0001560 $ F , 2 ; ( * -
0001600 - - - ) \r \r - - - - - - - - -
0001620 - - - - - - - - - - - - \r \r ( *
0001640 3 - C O D E s e q u e n c e
0001660 f o r a b o v e a s s u m
0001700 i n g c o m p i l e r k n o
0001720 w s a b o u t \r p r i m
0001740 i t i v e s . * ) \r \r L 1 :
0001760 3 L A M B D A ( 1
0002000 ( x ) ) , L 2 \r
0002020 3 R E T U R N \r \r L 2 :
0002040 3 V A R X \r
0002060 3 C O N S T
0002100 0 \r 3 P R I
0002120 M C A L L = , $ F \r \r L 3 :
0002140 3 F J U M P L
0002160 5 \r \r L 4 : 3 C O N
0002200 S T 1 \r
0002220 3 R E T U R N \r \r L 5 :
0002240 3 V A R X \r
0002260 3 V A R
0002300 F O O \r 3 P C
0002320 H E C K L 6 \r \r
0002340 3 V A R X \r
0002360 3 C O N S T
0002400 1 \r 3 P R I
0002420 M C A L L - , $ F ; (
0002440 - - - - - ) \r \r L 7 :
0002460 3 C A L L $ F , 1
0002500 ; ( F O O - - ) \r \r L
0002520 6 : 3 P R I M C A L
0002540 L * , $ F \r
0002560 3 R E T U R N \r \r \r - - - - - -
0002600 - - - - - - - - - - - - - - - \r
0002620 \r ( * I n t e r l i s p v e
0002640 r s i o n . * ) \r \r L 1 :
0002660 I V A R X \r
0002700 C O P Y \r
0002720 ' 0 \r
0002740 F N 2 = \r
0002760 F J U M P
0003000 L 2 \r ' 1 \r
0003020 R E T U R N \r L
0003040 2 : C O P Y \r
0003060 ' 1 \r
0003100 F N 2 - \r
0003120 F N 1 F
0003140 O O \r F N 2
0003160 * \r
0003200 R E T U R N \r \r - - - - - - - -
0003220 - - - - - - - - - - - - - \r \r (
0003240 * I n t e r l i s p v e r s
0003260 i o n w h e r e c o m p i l
0003300 e r k n o w s a b o u t p
0003320 r i m i t i v e s . * ) \r \r L
0003340 1 : I V A R
0003360 X \r C O P Y
0003400 \r ' 0 \r
0003420 F N 2 E
0003440 Q U A L \r F J
0003460 U M P L 2 \r
0003500 ' 1 \r R
0003520 E T U R N \r L 2 : C
0003540 O P Y \r ' 1 \r
0003560 D I F F E R E
0003600 N C E \r F N 1
0003620 F O O \r
0003640 T I M E S 2 \r
0003660 R E T U R N \r \r
0003700 \r \r ~
0003720 ~ e n d \r \0 \0 \0 021 \0 \0 \0 \n T I M
0003740 E S R O M A N \0 016 \0 \0 \0 \0 \0 \0 002
0003760 \0 \0 \0 \0 ` \0 \0 \0 \a C L A S S I C
0004000 \0 \f \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \a d \0 \0
0004020 \0 005 G A C H A \0 \n \0 \0 \0 \0 \0 \0 \0
0004040 \0 \0 \0 \a 325 \0 003 z 267
0004051