$ od -c -N 50000 [qv]<lispcourse>OUTLINE34.TED!3
0000000 F . G . H .
0000020 6 / 6 / 8 5 \r L i s p C o u r s
0000040 e # 3 4 : V a r i a b l e
0000060 B i n d i n g a n d t h e
0000100 I n t e r l i s p S t a c k
0000120 \r L i s p C o u r s e # 3 4 :
0000140 V a r i a b l e B i n d i
0000160 n g a n d t h e I n t e r
0000200 l i s p S t a c k \r V a r i a
0000220 b l e R e f e r e n c e I n
0000240 s i d e F u n c t i o n s :
0000260 B o u n d a n d F r e e
0000300 V a r i a b l e s \r C o n s i d
0000320 e r t h e f o l l o w i n g
0000340 f u n c t i o n d e f i n i
0000360 t i o n f r o m t h e s o
0000400 l u t i o n t o H o m e w o
0000420 r k # 3 0 : \r ( D E F I N E Q
0000440 \r ( L C . P a r s e N
0000460 a m e S t r i n g \r ( L A M
0000500 B D A ( S t r i n g ) \r ( S E
0000520 T Q S t r i n g ( C O N C A
0000540 T S t r i n g ) ) \r ( S E T Q
0000560 C o m m a ( S T R P O S "
0000600 , " S t r i n g ) ) \r ( S E T
0000620 Q S p a c e ( S T R P O S
0000640 " " S t r i n g C o m m a
0000660 ) ) \r ( c r e a t e L C . N a
0000700 m e \r L a s t _ \r ( M K A T O
0000720 M \r ( S U B S T R I N G
0000740 S t r i n g 1 ( S U B 1
0000760 C o m m a ) ) ) \r F i r s t _
0001000 \r ( M K A T O M \r ( S U B
0001020 S T R I N G S t r i n g ( A
0001040 D D 1 C o m m a ) ( S U B
0001060 1 S p a c e ) ) ) \r M i d d l
0001100 e _ \r ( M K A T O M \r (
0001120 S U B S T R I N G S t r i n g
0001140 ( A D D 1 S p a c e ) ) ) )
0001160 \r I n t h i s f u n c t i o
0001200 n , t h e r e a r e t h r
0001220 e e v a r i a b l e s : S t
0001240 r i n g , C o m m a , a n d
0001260 S p a c e . \r S t r i n g d
0001300 i f f e r s f r o m C o m m
0001320 a a n d S p a c e i n t
0001340 h a t b e f o r e t h e f
0001360 u n c t i o n i s e n t e r
0001400 e d d u r i n g a f u n c
0001420 t i o n c a l l e v a l u a
0001440 t i o n , t h e v a l u e
0001460 o f S t r i n g i s t e m
0001500 p o r a r i l y s e t ( i .
0001520 e . , b o u n d ) t o t h
0001540 e v a l u e o f t h e a
0001560 r g u m e n t i n t h e f
0001600 u n c t i o n c a l l . \r M o
0001620 r e o v e r , t h e o l d
0001640 v a l u e o f S t r i n g
0001660 i s r e s e t t o i t s
0001700 p r e v i o u s v a l u e w
0001720 h e n t h e f u n c t i o n
0001740 i s e x i t e d , d e s p
0001760 i t e t h e n e w v a l u
0002000 e a s s i g n e d t o S t
0002020 r i n g b y t h e S E T Q
0002040 i n t h e f u n c t i o n
0002060 . \r I n c o n t r a s t , C
0002100 o m m a a n d S p a c e h
0002120 a v e u n k n o w n v a l u
0002140 e s w h e n t h e f u n c
0002160 t i o n i s e n t e r e d
0002200 a n d t h e S E T Q o p e
0002220 r a t i o n s o n C o m m a
0002240 a n d S p a c e p e r m a
0002260 n e n t l y c h a n g e t h
0002300 e v a l u e o f t h e s e
0002320 v a r i a b l e s . \r S t r i
0002340 n g i s k n o w n a s a
0002360 b o u n d v a r i a b l e
0002400 w i t h i n t h e f u n c t
0002420 i o n L C . P a r s e N a m e
0002440 S t r i n g . \r A b o u n d
0002460 v a r i a b l e i s o n e
0002500 w h o s e v a l u e i s s
0002520 e t w h e n t h e f u n c
0002540 t i o n i s e n t e r e d
0002560 a n d r e s e t t o t h e
0002600 p r e v i o u s v a l u e
0002620 w h e n t h e f u n c t i o
0002640 n i s e x i t e d . \r I n
0002660 p a r t i c u l a r , a b o
0002700 u n d v a r i a b l e h a s
0002720 t h e f o l l o w i n g p
0002740 r o p e r t y : Y o u c a
0002760 n c h a n g e t h e n a m
0003000 e o f t h e v a r i a b l
0003020 e , a n d t h e o p e r a
0003040 t i o n o f t h e f u n c
0003060 t i o n w i l l n o t c h
0003100 a n g e . \r S u b s t i t u t i
0003120 n g N a m e S t r i n g f o
0003140 r S t r i n g t h r o u g h
0003160 o u t t h e d e f i n i t i
0003200 o n o f L C . P a r s e N a
0003220 m e S t r i n g w o u l d n
0003240 o t c h a n g e h o w t h
0003260 e f u n c t i o n w o r k e
0003300 d . \r C o m m a a n d S p a
0003320 c e a r e k n o w n a s
0003340 f r e e v a r i a b l e s w
0003360 i t h i n t h e f u n c t i
0003400 o n L C . P a r s e N a m e S
0003420 t r i n g . \r A v a r i a b l
0003440 e i s a f r e e v a r i
0003460 a b l e i n a f u n c t i
0003500 o n d e f i n i t i o n i f
0003520 i t i s n o t b o u n d
0003540 w i t h i n t h a t f u n
0003560 c t i o n d e f i n i t i o n
0003600 . \r T h e v a l u e o f a
0003620 f r e e v a r i a b l e w
0003640 h e n t h e f u n c t i o n
0003660 i s e n t e r e d c a n n
0003700 o t b e s p e c i f i e d
0003720 a p r i o r i . T h e f
0003740 r e e v a r i a b l e m a y
0003760 h a v e a v a l u e o r
0004000 i t m a y n o t . \r M o r
0004020 e o v e r , w h e n t h e
0004040 f u n c t i o n i s e x i t
0004060 e d , t h e f r e e v a r
0004100 i a b l e i s n o t r e s
0004120 e t t o i t s p r e v i o
0004140 u s v a l u e . \r I n p a r
0004160 t i c u l a r , a f r e e
0004200 v a r i a b l e h a s t h e
0004220 f o l l o w i n g p r o p e
0004240 r t y : I f y o u c h a
0004260 n g e t h e n a m e o f
0004300 t h e v a r i a b l e , a n
0004320 d t h e o p e r a t i o n
0004340 o f t h e f u n c t i o n
0004360 m a y c h a n g e , d e p e
0004400 n d i n g o n t h e c o n
0004420 t e x t o f t h e e v a l
0004440 u a t i o n . \r F o r e x a m
0004460 p l e , i f t h e v a r
0004500 i a b l e s L i s t S i z e
0004520 a n d S t r i n g S i z e w
0004540 e r e u s e d b y t h e
0004560 L i s p E x e c t o h o l
0004600 d i m p o r t a n t i n f o
0004620 r m a t i o n , t h e n c h
0004640 a n g i n g C o m m a t o
0004660 L i s t S i z e a n d S p a
0004700 c e t o S t r i n g S i z e
0004720 i n t h e d e f i n i t i
0004740 o n o f L C . P a r s e N a
0004760 m e S t r i n g m i g h t h
0005000 a v e s e r i o u s s i d e
0005020 - e f f e c t s o n t h e
0005040 L i s p E x e c , s i n c e
0005060 e v a l u a t i n g a c a
0005100 l l t o L C . P a r s e N a
0005120 m e S t r i n g w o u l d c
0005140 h a n g e t h e v a l u e
0005160 o f t h e s e v a r i a b l
0005200 e s . \r T h e p r o b l e m
0005220 w i t h f r e e v a r i a b
0005240 l e s i n a f u n c t i o
0005260 n d e f i n i t i o n i s
0005300 t h a t t h e r e i s s o
0005320 m e a m b i g u i t y a s
0005340 t o w h a t i s b e i n g
0005360 r e f e r e d t o b y t
0005400 h e f r e e v a r i a b l e
0005420 . I n t e r p r e t i n g
0005440 t h e f r e e v a r i a b
0005460 l e r e f e r e n c e d e p
0005500 e n d s o n s o m e c o n
0005520 t e x t o u t s i d e o f
0005540 t h e f u n c t i o n i t s
0005560 e l f . \r C o n s i d e r t h
0005600 e f o l l o w i n g e x a m
0005620 p l e : \r 1 _ ( D E F I N E Q
0005640 \r ( L C . F i n d C o m m a \r (
0005660 L A M B D A ( S t r i n g S
0005700 e a r c h L e t t e r ) \r ( S E
0005720 T Q S e a r c h L e t t e r
0005740 " , " ) \r ( L C . F i n d L e t
0005760 t e r S t r i n g ) ) ) \r ( L
0006000 C . F i n d L e t t e r \r ( L A
0006020 M B D A ( S t r i n g ) \r ( S
0006040 T R P O S S e a r c h L e t t
0006060 e r S t r i n g ) ) ) ) \r ( L
0006100 C . F i n d C o m m a L C . F
0006120 i n d L e t t e r ) \r 2 _ ( S
0006140 E T Q S e a r c h L e t t e r
0006160 " + " ) \r " + " \r 3 _ ( L C
0006200 . F i n d L e t t e r " A B ,
0006220 C D + E F " ) \r 6 \r 4 _ ( L C .
0006240 F i n d C o m m a " A B , C D
0006260 + E F " ) \r ? ? ? ? \r P r o b l
0006300 e m : W h a t i s t h e
0006320 v a l u e o f t h i s f
0006340 u n c t i o n c a l l ? \r T h
0006360 e r e a r e t w o p o s s
0006400 i b l e a n s w e r s , d e
0006420 p e n d i n g o n h o w t
0006440 h e f r e e v a r i a b l e
0006460 S e a r c h L e t t e r i s
0006500 r e s o l v e d i n t h e
0006520 c a l l t o L C . F i n d
0006540 L e t t e r . \r 1 . \t I f S e
0006560 a r c h L e t t e r i n L C
0006600 . F i n d L e t t e r r e f e
0006620 r s t o t h e g l o b a l
0006640 v a l u e i n t h e E x
0006660 e c e n v i r o n m e n t ,
0006700 t h e n t h e r e s u l t
0006720 w o u l d b e 6 s i n c e
0006740 L C . F i n d L e t t e r w
0006760 o u l d b e s e a r c h i n
0007000 g f o r a " + " a s d
0007020 e t e r m i n e d b y e v e
0007040 n t 2 . \r 2 . \t I f S e a r
0007060 c h L e t t e r i n L C . F
0007100 i n d L e t t e r r e f e r s
0007120 t o t h e m o s t r e c
0007140 e n t b i n d i n g o f S
0007160 e a r c h L e t t e r a n y w
0007200 h e r e , t h e n t h e r
0007220 e s u l t w o u l d b e 3
0007240 s i n c e L C . F i n d L e
0007260 t t e r w o u l d b e s e
0007300 a r c h i n g f o r a " ,
0007320 " a s d e t e r m i n e d
0007340 b y t h e b i n d i n g a
0007360 n d S E T Q s t a t e m e n
0007400 t s i n L C . F i n d C o m
0007420 m a . \r I n f a c t , i n
0007440 I n t e r l i s p t h e v a
0007460 l u e r e t u r n e d b y
0007500 ( L C . F i n d C o m m a " A
0007520 B , C D + E F " ) i n e v e
0007540 n t 4 w o u l d b e 3 ,
0007560 b e c a u s e a f r e e
0007600 v a r i a b l e r e f e r e n
0007620 c e i n a f u n c t i o n
0007640 a l w a y s r e f e r e n c
0007660 e s t h e m o s t r e c e
0007700 n t b i n d i n g o f t h
0007720 a t v a r i a b l e . \r T h e
0007740 f o l l o w i n g s e v e r
0007760 a l s e c t i o n s , e x p
0010000 l a i n i n d e t a i l h
0010020 o w I n t e r l i s p h a n
0010040 d l e s v a r i a b l e r e
0010060 f e r e n c e s , b o t h f
0010100 r e e a n d b o u n d , w
0010120 i t h i n f u n c t i o n d
0010140 e f i n i t i o n s . \r T h e
0010160 m a i n p o i n t o f t h
0010200 e s e s e c t i o n s i s
0010220 t h a t t h e m o d e l o
0010240 f v a r i a b l e s w e h
0010260 a v e b e e n u s i n g u
0010300 n t i l n o w i s f a r
0010320 t o o s i m p l e . \r U n t i
0010340 l n o w , w e h a v e a
0010360 s s u m e d t h a t t h e
0010400 v a l u e o f a v a r i a
0010420 b l e i n a f u n c t i o
0010440 n d e f i n i t i o n i s
0010460 t h e v a l u e o f t h e
0010500 a t o m w i t h t h e s
0010520 a m e n a m e a s t h e
0010540 v a r a i b l e . \r T h i s i
0010560 s t r u e " a t t h e t
0010600 o p l e v e l " , i . e .
0010620 f o r v a r i a b l e r e f
0010640 e r e n c e s t y p e d d i
0010660 r e c t l y t o t h e L i
0010700 s p E x e c . \r H o w e v e r
0010720 , f o r v a r i a b l e r
0010740 e f e r e n c e s w i t h i n
0010760 a f u n c t i o n , I n t
0011000 e r l i s p u s e s a m u
0011020 c h m o r e c o m p l e x
0011040 s c h e m e t o s e t a n
0011060 d d e t e r m i n e t h e
0011100 v a l u e o f a n v a r i
0011120 a b l e . \r R e v i e w : E
0011140 v a l u a t i n g S - e x p r
0011160 e s s i o n s u s i n g E V
0011200 A L a n d A P P L Y \r R e c
0011220 a l l t h a t a l l o f
0011240 t h e s i g n i f i c a n t
0011260 w o r k i n L i s p i s
0011300 d o n e b y t h e L i s p
0011320 e v a l u a t o r d u r i n
0011340 g t h e E V A L p a r t
0011360 o f t h e r e a d - E V A L
0011400 - p r i n t l o o p . \r R e c
0011420 a l l a l s o t h a t t h
0011440 e L i s p e v a l u a t o r
0011460 i s b u i l t a r o u n d
0011500 t w o f u n c t i o n s :
0011520 E V A L a n d A P P L Y . \r
0011540 H e n c e , u n d e r s t a n
0011560 d i n g L i s p f u n c t i
0011600 o n e v a l u a t i o n r e
0011620 q u i r e s u n d e r s t a n
0011640 d i n g t h e t w o f u n
0011660 c t i o n s E V A L a n d
0011700 A P P L Y . \r \f E V A L \r T h e
0011720 f o l l o w i n g d e f i n
0011740 e s a f u n c t i o n t h
0011760 a t c o u l d b e u s e d
0012000 b y t h e L i s p e v a
0012020 l u a t o r t o e v a l u a
0012040 t e a r b i t r a r y S - e
0012060 x p r e s s i o n s ( i . e .
0012100 , E V A L ) : \r ( D E F I N E
0012120 Q \r ( E V A L \r ( L A M B
0012140 D A ( S E x p r ) \r ( C
0012160 O N D \r ( ( N L I S T P
0012200 S E x p r ) ( L o o k U p V a
0012220 l u e S E x p r ) ) \r (
0012240 T \r ( A P P L Y (
0012260 C A R S E x p r ) \r (
0012300 F O R A r g I N ( C D R
0012320 S E x p r ) \r C O L L E C T
0012340 ( E V A L A r g ) ) ) \r N o t
0012360 e : T h e f u n c t i o n
0012400 L o o k U p V a l u e i s s
0012420 o m e m y s t e r i o u s f
0012440 u n c t i o n t h a t c a n
0012460 l o o k u p t h e v a l
0012500 u e o f a t o m s , a r r
0012520 a y s , e t c . i n t h e
0012540 L i s p e n v i r o n m e n
0012560 t . \r I n n a t u r a l l a
0012600 n g u a g e , E V A L d o e
0012620 s t h e f o l l o w i n g :
0012640 \r I f S E x p r i s n o t
0012660 a l i s t , t h e n l o
0012700 o k u p t h e v a l u e
0012720 o f S E x p r a n d r e t
0012740 u r n i t . \r I f S E x p r
0012760 i s a l i s t , t h e n
0013000 A P P L Y t h e f u n c t
0013020 i o n n a m e d b y t h e
0013040 f i r s t e l e m e n t (
0013060 i . e . , C A R ) o f S E
0013100 x p r t o t h e l i s t
0013120 o b t a i n e d b y c o l l
0013140 e c t i n g t h e e v a l u
0013160 a t i o n e a c h i t e m
0013200 i n t h e r e s t ( i . e
0013220 . , C D R ) o f S E x p r
0013240 . \r A s i d e f r o m L o o
0013260 k U p V a l u e ( w h i c h
0013300 w i l l r e m a i n m y s t
0013320 e r i o u s f o r a w h i
0013340 l e ) , t h e c e n t r a l
0013360 f u n c t i o n u s e d i
0013400 n d e f i n i n g E V A L
0013420 i s t h e f u n c t i o n
0013440 A P P L Y . \r \f A P P L Y \r A P
0013460 P L Y c o u l d b e d e f
0013500 i n e d a s f o l l o w s :
0013520 \r ( D E F I N E Q \r ( A
0013540 P P L Y \r ( L A M B D A ( F u
0013560 n c t i o n A r g u m e n t s
0013600 ) \r ( F O R P a r a m e t e r
0013620 I N ( C A D R ( G e t F u
0013640 n c t i o n D e f n F u n c t
0013660 i o n ) ) \r A S A r g u m e n
0013700 t I N A r g u m e n t s \r D
0013720 O ( B i n d P a r a m e t e
0013740 r A r g u m e n t ) ) \r ( F O
0013760 R S E x p r I N ( C D D R
0014000 ( G e t F u n c t i o n D e f
0014020 n F u n c t i o n ) ) \r A S
0014040 C t r F R O M 1 T O \r ( D
0014060 I F F E R E N C E \r ( L E N G T
0014100 H ( G e t F u n c t i o n D e
0014120 f n F u n c t i o n ) ) 3 )
0014140 \r D O ( E V A L S E x p r )
0014160 ) \r ( S E T Q R e s u l t \r
0014200 ( E V A L ( C A R (
0014220 L A S T ( G e t F u n c t i o
0014240 n D e f n F u n c t i o n ) )
0014260 ) ) ) \r ( F O R P a r a m e t
0014300 e r I N ( C A D R ( G e t
0014320 F u n c t i o n D e f n F u n
0014340 c t i o n ) ) \r D O ( U n b i
0014360 n d P a r a m e t e r ) ) \r R
0014400 e s u l t ) ) ) \r N o t e : T
0014420 h e f u n c t i o n s G e t
0014440 F u n c t i o n D e f n , B i
0014460 n d , a n d U n b i n d a
0014500 r e s o m e m y s t e r i o
0014520 u s f u n c t i o n s t h a
0014540 t c a n l o o k u p t h
0014560 e d e f i n t i o n o f a
0014600 f u n c t i o n , b i n d
0014620 a p a r a m e t e r t o a
0014640 v a l u e , a n d u n b i
0014660 n d a p a r a m e t e r ,
0014700 r e s p e c t i v e l y . \r I n
0014720 n a t u r a l l a n g u a g
0014740 e , A P P L Y d o e s t h
0014760 e f o l l o w i n g : \r F o r
0015000 e a c h p a r a m e t e r
0015020 i n t h e p a r a m e t e r
0015040 s l i s t i n t h e f u
0015060 n c t i o n d e f i n i t i o
0015100 n o f F u n c t i o n , b
0015120 i n d t h a t p a r a m e t
0015140 e r t o t h e c o r r e s
0015160 p o n d i n g a r g u m e n t
0015200 i n t h e A r g u m e n t
0015220 s l i s t . \r T h e n , f o
0015240 r e a c h S - e x p r e s s
0015260 i o n i n t h e b o d y
0015300 o f t h e f u n c t i o n
0015320 d e f i n i t i o n e x c e p
0015340 t f o r t h e l a s t ,
0015360 E V A L t h e S - e x p r
0015400 e s s i o n . \r T h e n , E V
0015420 A L t h e l a s t S - e x
0015440 p r e s s i o n i n t h e
0015460 b o d y o f t h e f u n c
0015500 t i o n d e f i n i t i o n
0015520 a n d h o l d o n t o t
0015540 h e r e s u l t i n g v a l
0015560 u e . \r T h e n , f o r e a
0015600 c h p a r a m e t e r i n
0015620 t h e p a r a m e t e r s l
0015640 i s t i n t h e f u n c t
0015660 i o n d e f i n i t i o n o
0015700 f F u n c t i o n , u n b i
0015720 n d t h a t p a r a m e t e
0015740 r . \r F i n a l l y , r e t u
0015760 r n t h e r e s u l t a l
0016000 r e a d y d e r i v e d b y
0016020 E V A L i n g t h e l a s
0016040 t S - e x p r e s s i o n . \r
0016060 E X A M P L E ( f r o m L i
0016100 s p C o u r s e # 3 , p a g
0016120 e 6 ) \r ( D E F I N E Q \r ( M
0016140 O V E F I L E \r ( L A M B D A
0016160 ( F r o m F i l e T o F i l e
0016200 ) \r ( C O P Y F I L E F r o m
0016220 F i l e T o F i l e ) \r ( D E
0016240 L F I L E F r o m F i l e ) \r
0016260 ( Q U O T E A l l D o n e ) )
0016300 ) ) \r \r E v a l u a t i n g (
0016320 M O V E F I L E ' O L D . L I
0016340 S P ' N E W . L I S P ) p r
0016360 o c e e d s a s f o l l o w
0016400 s : \r E V A L : \r 1 . \t ' O L D
0016420 . L I S P e v a l u a t e s
0016440 t o O L D . L I S P \r 2 . \t '
0016460 N E W . L I S P e v a l u a t
0016500 e s t o N E W . L I S P \r 3
0016520 . \t A P P L Y t h e f u n c
0016540 t i o n M O V E F I L E t o
0016560 ( O L D . L I S P N E W . L
0016600 I S P ) \r A P P L Y : \r 1 . \t F
0016620 r o m F i l e i s b o u n d
0016640 t o O L D . L I S P \r 2 . \t
0016660 T o F i l e i s b o u n d
0016700 t o N E W . L I S P \r 3 . \t (
0016720 C O P Y F I L E F r o m F i l
0016740 e T o F i l e ) i s e v a
0016760 l u a t e d u s i n g c u r
0017000 r e n t b i n d i n g s o f
0017020 F r o m F i l e a n d T o
0017040 F i l e ( i . e . , F r o m
0017060 F i l e w i l l e v a l u a
0017100 t e t o O L D . L I S P a
0017120 n d T o F i l e w i l l e
0017140 v a l u a t e t o N E W . L
0017160 I S P ) . \r 4 . \t ( D E L F I L
0017200 E F r o m F i l e ) i s e
0017220 v a l u a t e d s i m i l a r
0017240 l y . \r 5 . \t ( Q U O T E A l
0017260 l D o n e ) i s e v a l u a
0017300 t e d t o A l l D o n e . \r
0017320 6 . \t F r o m F i l e a n d
0017340 T o F i l e a r e r e s e t
0017360 t o t h e i r p r e v i o
0017400 u s v a l u e s ( i f a n
0017420 y ) . \r 7 . \t A P P L Y r e t
0017440 u r n s A l l D o n e . \r M i
0017460 s s i n g P i e c e s \r T h e
0017500 f o r e g o i n g e x p l a
0017520 n a t i o n r e f e r e n c e
0017540 s s e v e r a l f u n c t i
0017560 o n s t h a t h a v e n o
0017600 t y e t b e e n e x p l a
0017620 i n e d . \r I n p a r t i c u
0017640 l a r , L o o k U p V a l u e
0017660 , B i n d , U n b i n d ,
0017700 a n d G e t F u n c t i o n D
0017720 e f n a r e c r i t i c a l
0017740 f u n c t i o n s u s e d
0017760 b y E V A L a n d / o r A
0020000 P P L Y i n t h e p r o c
0020020 e s s o f e v a l u a t i n
0020040 g S - e x p r e s s i o n s .
0020060 \r T h e f o l l o w i n g s
0020100 e c t i o n s e x p l a i n
0020120 t h e o p e r a t i o n o f
0020140 t h e s e f u n c t i o n s
0020160 i n t h e I n t e r l i s
0020200 p - D e v a l u a t o r . \r T
0020220 h e L i s p S t a c k , V
0020240 a r i a b l e B i n d i n g ,
0020260 V a r i a b l e L o o k u p
0020300 , a n d R e l a t e d T o
0020320 p i c s \r I n t h e A P P L
0020340 Y p h a s e o f e v a l u
0020360 a t i n g a L i s p f u n
0020400 c t i o n c a l l , t h e
0020420 f i r s t s t e p i s t o
0020440 b i n d t h e p a r a m e
0020460 t e r s o f t h e f u n c
0020500 t i o n t o t h e c o r r
0020520 e s p o n d i n g a r g u m e
0020540 n t s i n t h e f u n c t
0020560 i o n c a l l . \r I n L i s
0020600 p C o u r s e # 3 ( p a g e
0020620 6 ) , b i n d i n g a p
0020640 a r a m e t e r t o a n a
0020660 r g u m e n t w a s d e s c
0020700 r i b e d a s " t e m p o r
0020720 a r i l y S E T Q i n g t h
0020740 e p a r a m e t e r t o t
0020760 h e a r g u m e n t v a l u
0021000 e " . T h e i m p l i c a
0021020 t i o n w a s t h a t b i
0021040 n d i n g s i m p l y t e m
0021060 p o r a r i l y r e s e t s
0021100 t h e v a l u e a s s i g n
0021120 e d t o t h e a t o m o
0021140 f t h e s a m e n a m e
0021160 a s t h e p a r a m e t e r
0021200 . \r I n a c t u a l i t y ,
0021220 b i n d i n g i s m u c h
0021240 m o r e c o m p l e x a n d
0021260 r e l i e s o n a s p e
0021300 c i a l d a t a s t r u c t
0021320 u r e c a l l e d t h e s
0021340 t a c k . \r T h e L i s p S
0021360 t a c k \r T h e s t a c k i
0021400 s a d a t a s t r u c t u
0021420 r e t h a t c o n t a i n s
0021440 a v a r i a b l e n u m b
0021460 e r o f s t a c k f r a m
0021500 e s a r r a n g e d i n a
0021520 n o r d e r e d o n e - d i
0021540 m e n s i o n a l v e c t o r
0021560 . \r E a c h s t a c k f r a
0021600 m e c o n t a i n s a v a
0021620 r i a b l e n u m b e r o f
0021640 b i n d i n g r e c o r d s
0021660 . \r E a c h b i n d i n g r
0021700 e c o r d i s a p a i r
0021720 c o n s i s t i n g o f a
0021740 v a r i a b l e n a m e ( i
0021760 . e . , a l i t a t o m )
0022000 a n d a v a l u e . \r T h e
0022020 s t a c k h a s a t o p
0022040 a n d a b o t t o m . \r S
0022060 t a c k f r a m e s c a n
0022100 o n l y b e a d d e d t o
0022120 t h e b o t t o m o f t
0022140 h e s t a c k . \r S t a c k
0022160 f r a m e s c a n o n l y
0022200 b e r e m o v e d f r o m
0022220 t h e b o t t o m o f t h
0022240 e s t a c k . \r ( N I L (
0022260 ( . 0 5 1 5 . 0 N I L )
0022300 ( T E X T ( 2 3 2 . 0 .
0022320 3 0 4 . 0 ) ( " A d d i
0022340 n g a s t a c k f r a m e
0022360 t o t h e b o t t o m o
0022400 f t h e s t a c k " \r "
0022420 " ) 1 . 0 ( C E N T E R
0022440 B A S E L I N E ) ( H E L
0022460 V E T I C A 1 2 ( B O L D
0022500 R E G U L A R R E G U L A R
0022520 ) ) ( ( 5 9 . 0 3 0 8 .
0022540 0 3 4 7 . 0 1 4 . 0 )
0022560 ( \r 2 3 2 . 0 2 9 4 . 0
0022600 0 . 0 1 4 . 0 ) ) N I L
0022620 ) ) ( ( . 0 3 8 6 6 6 6 7
0022640 1 1 . 6 N I L ) ( T E X
0022660 T ( 2 8 . 8 . 2 1 4 .
0022700 4 ) ( " T o p " " F r a
0022720 m e " ) \r . 7 7 3 3 3 3 4
0022740 ( L E F T B A S E L I N E )
0022760 ( H E L V E T I C A 1 4 )
0023000 ( ( 2 9 . 1 4 6 6 7 2 1
0023020 7 . 8 4 2 3 . 2 1 1 . 6
0023040 ) ( 2 9 . 1 4 6 6 7 2 0
0023060 6 . 2 4 \r 3 6 . 3 4 6 6 7
0023100 1 1 . 6 ) ) N I L ) ) (
0023120 ( . 0 3 9 2 5 9 2 6 1 1 . 7
0023140 7 7 7 8 N I L ) ( T E X T
0023160 ( 2 2 . 4 . 9 9 . 2 )
0023200 ( " B o t t o m " " F r
0023220 a m e " ) \r . 7 8 5 1 8 5 2
0023240 ( L E F T B A S E L I N E
0023260 ) ( H E L V E T I C A 1 4
0023300 ) ( ( 2 2 . 2 8 1 4 8 1
0023320 0 2 . 3 7 0 4 4 2 . 4 1
0023340 1 . 7 7 7 7 8 ) ( 2 2 . 2 8
0023360 1 4 8 9 0 . 5 9 2 6 \r 3
0023400 6 . 9 0 3 7 1 1 . 7 7 7 7 8
0023420 ) ) N I L ) ) ( ( . 0 4 9
0023440 6 5 6 . 8 0 0 0 1 N I L )
0023460 ( B O X ( 6 7 . 2 8
0023500 0 . 0 1 1 3 . 6 4 9 . 6
0023520 ) 2 ) ) ( ( . 0 4 9 6
0023540 \r 5 6 . 8 0 0 0 1 N I L )
0023560 ( B O X ( 6 7 . 2 1 3 7
0023600 . 6 1 1 3 . 6 4 9 . 6 )
0023620 2 ) ) ( ( . 0 4 9 6 0 0 0
0023640 1 5 6 . 8 0 0 0 1 N I L )
0023660 ( B O X ( 6 7 . 2 1
0023700 9 5 . 2 \r 1 1 3 . 6 4 9
0023720 . 6 0 0 0 1 ) 2 ) ) ( ( .
0023740 0 4 8 6 5 6 7 2 1 1 . 6 7 7
0023760 6 1 N I L ) ( T E X T
0024000 ( 7 3 . 6 . 1 1 8 . 4 )
0024020 ( " Z A P F r a m e " )
0024040 . 9 7 3 1 3 4 4 ( \r L E F T
0024060 B A S E L I N E ) ( H E L
0024100 V E T I C A 1 0 ) ( ( 7 3
0024120 . 4 1 4 9 2 1 1 6 . 2 3 2 8
0024140 6 5 . 2 1 1 . 6 7 7 6 1
0024160 ) ) N I L ) ) ( ( . 0 4 9
0024200 1 1 7 6 5 1 1 . 7 8 8 2 4
0024220 \r N I L ) ( T E X T ( 7
0024240 3 . 6 . 1 7 6 . 0 ) (
0024260 " X Y Z F r a m e " ) . 9
0024300 8 2 3 5 3 ( L E F T B A S
0024320 E L I N E ) ( H E L V E T I
0024340 C A 1 0 ) ( ( 7 3 . 9 5 8
0024360 8 3 \r 1 7 4 . 1 5 8 9 6
0024400 6 . 8 0 0 0 1 1 1 . 7 8 8 2
0024420 4 ) ) N I L ) ) ( ( . 0 4
0024440 8 9 8 5 5 1 1 1 . 7 5 6 5 2
0024460 N I L ) ( T E X T ( 7
0024500 3 . 6 . 2 3 3 . 6 ) (
0024520 " F O O F r a m e " \r ) .
0024540 9 7 9 7 1 0 2 ( L E F T B
0024560 A S E L I N E ) ( H E L V E
0024600 T I C A 1 0 ) ( ( 7 3 . 8
0024620 0 2 9 2 3 1 . 5 3 6 3 6
0024640 7 . 6 0 0 0 2 1 1 . 7 5 6 5
0024660 2 ) ) N I L ) ) ( ( \r . 0
0024700 3 9 4 6 6 6 7 1 1 . 8 4 N
0024720 I L ) ( T E X T ( 8 0 .
0024740 0 . 2 0 8 . 0 ) ( " (
0024760 B A R 7 ) " ) . 7 8
0025000 9 3 3 3 3 ( L E F T B A S
0025020 E L I N E ) ( H E L V E T I
0025040 C A \r 1 4 ) ( ( 7 9 . 9 3
0025060 6 2 0 5 . 4 4 5 9 . 2
0025100 1 1 . 8 4 ) ) N I L ) )
0025120 ( ( . 0 3 9 4 8 0 5 2 1 1 .
0025140 8 4 4 1 6 N I L ) ( T E X
0025160 T ( 8 0 . 0 . 2 2 0 .
0025200 8 ) ( \r " ( F O O 5
0025220 ) " ) . 7 8 9 6 1 0 5 (
0025240 L E F T B A S E L I N E )
0025260 ( H E L V E T I C A 1 4 )
0025300 ( ( 7 9 . 9 5 8 4 5 2 1 8 .
0025320 1 4 0 3 6 0 . 8 0 0 0 1
0025340 1 1 . 8 4 4 1 6 ) ) \r N I L )
0025360 ) ( ( . 0 3 9 5 4 5 4 6
0025400 1 1 . 8 6 3 6 4 N I L ) (
0025420 T E X T ( 8 6 . 4 . 9
0025440 2 . 8 ) ( " ( I T E M
0025460 A ) " ) . 7 9 0 9 0 9 1
0025500 ( L E F T B A S E L I N E
0025520 ) \r ( H E L V E T I C A 1
0025540 4 ) ( ( 8 6 . 3 9 0 9 2
0025560 9 0 . 3 4 5 4 6 6 9 . 6
0025600 1 1 . 8 6 3 6 4 ) ) N I L ) )
0025620 ( ( . 0 3 9 5 9 1 8 4 1
0025640 1 . 8 7 7 5 5 N I L ) ( T
0025660 E X T ( \r 8 6 . 4 . 1
0025700 0 5 . 6 ) ( " ( S U M X
0025720 1 2 ) " ) . 7 9 1 8 3 6
0025740 8 ( L E F T B A S E L I N
0025760 E ) ( H E L V E T I C A 1
0026000 4 ) ( ( 8 6 . 4 7 3 4 8
0026020 1 0 3 . 1 0 2 1 \r 7 7 . 6
0026040 1 1 . 8 7 7 5 5 ) ) N I L )
0026060 ) ( ( . 0 3 9 5 1 8 0 7
0026100 1 1 . 8 5 5 4 2 N I L ) (
0026120 T E X T ( 8 6 . 4 . 1
0026140 5 0 . 4 ) ( " ( B A Z
0026160 8 8 ) " ) . 7 9 0 3 6 1 4
0026200 \r ( L E F T B A S E L I N
0026220 E ) ( H E L V E T I C A 1
0026240 4 ) ( ( 8 6 . 3 4 2 1 6
0026260 1 4 7 . 9 9 0 4 6 5 . 6
0026300 1 1 . 8 5 5 4 2 ) ) N I L ) )
0026320 ( ( . 0 3 9 4 4 4 4 4 1
0026340 1 . 8 3 3 3 3 \r N I L ) (
0026360 T E X T ( 8 6 . 4 . 1
0026400 6 3 . 2 ) ( " ( F O O
0026420 6 ) " ) . 7 8 8 8 8 8 8
0026440 ( L E F T B A S E L I N E )
0026460 ( H E L V E T I C A 1 4 )
0026500 ( ( 8 6 . 2 1 1 1 2 \r 1 6
0026520 1 . 1 5 5 6 5 6 . 8 1 1
0026540 . 8 3 3 3 3 ) ) N I L ) )
0026560 ( ( . 0 3 9 7 2 6 0 3 1 1 .
0026600 9 1 7 8 1 N I L ) ( T E X
0026620 T ( 1 1 8 . 4 . 2 5 2
0026640 . 8 ) ( \r " S t a c k B e
0026660 f o r e A d d " " " )
0026700 . 7 9 4 5 2 0 6 ( C E N T E
0026720 R B A S E L I N E ) ( H E
0026740 L V E T I C A 1 4 ( B O L
0026760 D R E G U L A R R E G U L A
0027000 R ) ) ( ( \r 6 4 . 9 8 6 3 2
0027020 2 5 5 . 8 6 3 1 0 6 . 4
0027040 6 5 8 1 1 . 9 1 7 8 1 )
0027060 ( 1 1 8 . 2 1 9 2 2 4 3 . 9
0027100 4 5 2 0 . 0 1 1 . 9 1 7
0027120 8 1 ) ) N I L ) ) ( ( . 0
0027140 3 9 7 2 9 7 3 \r 1 1 . 9 1 8
0027160 9 2 N I L ) ( T E X T
0027200 ( 3 3 1 . 2 . 2 5 9 . 2 )
0027220 ( " S t a c k A f t e r
0027240 A d d " ) . 7 9 4 5 9 4 7
0027260 ( C E N T E R B A S E L I
0027300 N E ) ( H E L V E T I C A
0027320 \r 1 4 ( B O L D R E G U L
0027340 A R R E G U L A R ) ) ( (
0027360 2 8 2 . 1 8 9 2 2 5 6 . 6 9
0027400 1 9 9 9 . 3 2 4 3 4 1 1
0027420 . 9 1 8 9 2 ) ) N I L ) )
0027440 ( ( . 0 4 9 6 0 0 0 1 5 6 .
0027460 8 0 0 0 1 \r N I L ) ( B O
0027500 X ( 2 7 3 . 6 1 9 5 . 2
0027520 1 1 3 . 6 4 9 . 6 0 0 0
0027540 1 ) 2 ) ) ( ( . 0 4 8 9 8
0027560 5 5 1 1 1 . 7 5 6 5 2 N I
0027600 L ) ( T E X T ( 2 8 0 .
0027620 0 . 2 3 3 . 6 ) \r ( "
0027640 F O O F r a m e " ) . 9 7
0027660 9 7 1 0 2 ( L E F T B A S
0027700 E L I N E ) ( H E L V E T I
0027720 C A 1 0 ) ( ( 2 8 0 . 3 5
0027740 3 7 2 3 1 . 5 3 6 3 6 7
0027760 . 6 0 0 0 2 1 1 . 7 5 6 5 2
0030000 ) ) \r N I L ) ) ( ( . 0 3
0030020 9 4 8 0 5 3 1 1 . 8 4 4 1 6
0030040 N I L ) ( T E X T ( 2
0030060 8 6 . 4 . 2 2 0 . 8 )
0030100 ( " ( F O O 5 ) " )
0030120 . 7 8 9 6 1 0 6 ( L E F T
0030140 B A S E L I N E ) \r ( H E L
0030160 V E T I C A 1 4 ) ( ( 2 8
0030200 6 . 5 6 6 3 2 1 8 . 1 4 0 3
0030220 6 0 . 8 0 0 0 2 1 1 . 8
0030240 4 4 1 6 ) ) N I L ) ) ( (
0030260 . 0 3 9 4 6 6 6 8 1 1 . 8 4
0030300 N I L ) ( T E X T ( \r
0030320 2 8 6 . 4 . 2 0 8 . 0 )
0030340 ( " ( B A R 7 ) " )
0030360 . 7 8 9 3 3 3 5 ( L E F T
0030400 B A S E L I N E ) ( H E L
0030420 V E T I C A 1 4 ) ( ( 2 8
0030440 6 . 4 8 5 4 2 0 5 . 4 4 0 1
0030460 \r 5 9 . 2 0 0 0 2 1 1 .
0030500 8 4 ) ) N I L ) ) ( ( . 0
0030520 3 8 6 6 6 6 6 1 1 . 6 N I
0030540 L ) ( T E X T ( 2 3 5 .
0030560 2 . 2 1 4 . 4 ) ( " T
0030600 o p " " F r a m e " ) .
0030620 7 7 3 3 3 3 3 \r ( L E F T
0030640 B A S E L I N E ) ( H E L V
0030660 E T I C A 1 4 ) ( ( 2 3 5
0030700 . 4 1 3 3 2 1 7 . 8 4 2
0030720 3 . 2 1 1 . 6 ) ( 2 3 5
0030740 . 4 1 3 3 2 0 6 . 2 4 3
0030760 6 . 3 4 6 6 7 1 1 . 6 ) )
0031000 \r N I L ) ) ( ( . 0 4 9 6
0031020 5 6 . 8 0 0 0 1 N I L )
0031040 ( B O X ( 2 7 3 . 6 1 3
0031060 7 . 6 1 1 3 . 6 4 9 . 6
0031100 ) 2 ) ) ( ( . 0 3 9 4 4 4
0031120 4 5 1 1 . 8 3 3 3 3 N I L
0031140 ) ( \r T E X T ( 2 9 2 .
0031160 8 . 1 6 3 . 2 ) ( " (
0031200 F O O 6 ) " ) . 7 8 8
0031220 8 8 9 ( L E F T B A S E L
0031240 I N E ) ( H E L V E T I C A
0031260 1 4 ) ( ( 2 9 2 . 6 6 6 7
0031300 1 6 1 . 1 5 5 6 \r 5 6 .
0031320 8 0 0 0 1 1 1 . 8 3 3 3 3 )
0031340 ) N I L ) ) ( ( . 0 4 9 1
0031360 1 7 6 4 1 1 . 7 8 8 2 3 N
0031400 I L ) ( T E X T ( 2 8 0
0031420 . 0 . 1 7 6 . 0 ) ( "
0031440 X Y Z F r a m e " ) \r . 9
0031460 8 2 3 5 2 8 ( L E F T B A
0031500 S E L I N E ) ( H E L V E T
0031520 I C A 1 0 ) ( ( 2 7 9 . 9
0031540 7 6 5 1 7 4 . 1 5 8 8 6
0031560 6 . 7 9 9 9 9 1 1 . 7 8 8 2
0031600 3 ) ) N I L ) ) ( ( \r . 0
0031620 4 8 6 5 6 7 1 1 . 6 7 7 6 1
0031640 N I L ) ( T E X T ( 2
0031660 8 0 . 0 . 1 1 8 . 4 )
0031700 ( " Z A P F r a m e " ) .
0031720 9 7 3 1 3 4 ( L E F T B A
0031740 S E L I N E ) ( H E L V E T
0031760 I C A \r 1 0 ) ( ( 2 7 9 .
0032000 8 2 0 8 1 1 6 . 2 3 2 8
0032020 6 5 . 1 9 9 9 8 1 1 . 6 7 7
0032040 6 1 ) ) N I L ) ) ( ( . 0
0032060 4 9 6 5 6 . 8 0 0 0 1 N I
0032100 L ) ( B O X ( 2 7 3 . 6
0032120 8 0 . 0 \r 1 1 3 . 6
0032140 4 9 . 6 ) 2 ) ) ( ( . 0 3
0032160 9 5 1 8 0 7 1 1 . 8 5 5 4 2
0032200 N I L ) ( T E X T ( 2
0032220 9 2 . 8 . 1 5 0 . 4 )
0032240 ( " ( B A Z 8 8 ) " )
0032260 . 7 9 0 3 6 1 4 ( \r L E F
0032300 T B A S E L I N E ) ( H E
0032320 L V E T I C A 1 4 ) ( ( 2
0032340 9 3 . 1 0 8 4 1 4 7 . 9 9 0
0032360 4 6 5 . 5 9 9 9 9 1 1 .
0032400 8 5 5 4 2 ) ) N I L ) ) (
0032420 ( . 0 3 9 5 4 5 4 5 \r 1 1 .
0032440 8 6 3 6 4 N I L ) ( T E X
0032460 T ( 2 9 2 . 8 . 9 2 .
0032500 8 ) ( " ( I T E M
0032520 A ) " ) . 7 9 0 9 0 9 (
0032540 L E F T B A S E L I N E )
0032560 ( H E L V E T I C A 1 4 )
0032600 ( ( \r 2 9 2 . 4 8 1 8 9 0 .
0032620 3 4 5 4 4 6 9 . 5 9 9 9 9
0032640 1 1 . 8 6 3 6 4 ) ) N I L )
0032660 ) ( ( . 0 3 9 5 9 1 8 3
0032700 1 1 . 8 7 7 5 5 N I L ) (
0032720 T E X T ( 2 9 2 . 8 .
0032740 1 0 5 . 6 ) ( \r " ( S U M X
0032760 1 2 ) " ) . 7 9 1 8
0033000 3 6 6 ( L E F T B A S E L
0033020 I N E ) ( H E L V E T I C A
0033040 1 4 ) ( ( 2 9 2 . 7 5 9 2
0033060 1 0 3 . 1 0 2 7 7 . 5 9
0033100 9 9 9 1 1 . 8 7 7 5 5 ) )
0033120 \r N I L ) ) ( ( . 0 4 9 4 4
0033140 9 5 5 1 1 . 8 6 7 8 9 N I
0033160 L ) ( T E X T ( 2 8 0 .
0033200 0 . 6 0 . 8 0 0 0 1 )
0033220 ( " M O V E F I L E F r a m e
0033240 " ) . 9 8 8 9 9 1 ( L E
0033260 F T \r B A S E L I N E ) (
0033300 H E L V E T I C A 1 0 ) (
0033320 ( 2 7 9 . 5 1 2 5 8 . 5 2 6
0033340 6 1 1 0 7 . 8 1 1 . 8 6
0033360 7 8 9 ) ) N I L ) ) ( ( .
0033400 0 4 9 6 5 6 . 8 0 0 0 1 N
0033420 I L ) ( B O X \r ( 2 7 3
0033440 . 6 2 2 . 4 1 1 3 . 6
0033460 4 9 . 6 ) 2 ) ) ( ( . 0
0033500 3 9 2 5 9 2 6 1 1 . 7 7 7 7
0033520 8 N I L ) ( T E X T (
0033540 2 2 8 . 8 . 4 1 . 6 0 0 0
0033560 1 ) ( " B o t t o m " \r
0033600 " F r a m e " ) . 7 8 5 1 8
0033620 5 1 ( L E F T B A S E L I
0033640 N E ) ( H E L V E T I C A
0033660 1 4 ) ( ( 2 2 8 . 7 4 0 7
0033700 4 5 . 0 5 1 8 5 4 2 . 4
0033720 1 1 . 7 7 7 7 8 ) ( 2 2 8
0033740 . 7 4 0 7 \r 3 3 . 2 7 4 0 8
0033760 3 6 . 9 0 3 7 1 1 . 7 7
0034000 7 7 8 ) ) N I L ) ) ( ( .
0034020 0 3 9 7 5 3 0 8 1 1 . 9 2 5
0034040 9 2 N I L ) ( T E X T
0034060 ( 2 8 0 . 0 . 4 1 . 6 0 0
0034100 0 1 ) ( \r " ( F r o m F i l
0034120 e O l d . L i s p ) " )
0034140 . 7 9 5 0 6 1 7 ( L E F
0034160 T B A S E L I N E ) ( H E
0034200 L V E T I C A 1 4 ) ( ( 2
0034220 8 0 . 2 0 7 4 3 9 . 0 5 6 7
0034240 9 1 2 8 . 8 \r 1 1 . 9 2
0034260 5 9 2 ) ) N I L ) ) ( ( .
0034300 0 4 9 4 6 9 0 3 1 1 . 8 7 2
0034320 5 7 N I L ) ( T E X T
0034340 ( 2 8 0 . 0 . 2 8 . 8 )
0034360 ( " ( T o F i l e N e
0034400 w . L i s p ) " ) \r . 9 8 9
0034420 3 8 0 6 ( L E F T B A S E
0034440 L I N E ) ( H E L V E T I C
0034460 A 1 0 ) ( ( 2 7 9 . 6
0034500 2 6 . 8 8 3 1 8 1 1 1 . 8
0034520 1 1 . 8 7 2 5 7 ) ) N I L )
0034540 ) ) \r ( 0 0 4 1 7 . 0 3 2
0034560 8 . 0 ) \r 1 . 0 \r 8 . 0 \r \r T h
0034600 e s t a c k i m p l e m e n
0034620 t s a f i r s t - i n / l a
0034640 s t - o u t a c c e s s s c
0034660 h e m e . \r I f w e a d d
0034700 F r a m e X t o t h e b
0034720 o t t o m o f t h e s t a
0034740 c k a n d s u b s e q u e n
0034760 t l y a d d N m o r e f
0035000 r a m e s t o t h e b o t
0035020 t o m o f t h e s t a c k
0035040 , t h e n w e h a v e t
0035060 o r e m o v e t h e l a s
0035100 t N f r a m e s b e f o r
0035120 e w e c a n r e m o v e
0035140 F r a m e X . \r T h e a n a
0035160 l o g y i s t o a s t a
0035200 c k o f b o x e s . T o
0035220 r e m o v e t h e N t h
0035240 b o x d o w n i n t h e
0035260 s t a c k , y o u h a v e
0035300 t o f i r s t r e m o v e
0035320 t h e N - 1 b o x e s s i
0035340 t t i n g o n t o p o f
0035360 t h a t b o x . \r ( C o n t r
0035400 a s t t h e s t a c k w i
0035420 t h t h e q u e u e d a t
0035440 a s t r u c t u r e i n H
0035460 o m e w o r k # 3 2 , w h i
0035500 c h i m p l e m e n t e d a
0035520 f i r s t - i n / f i r s t -
0035540 o u t a c c e s s s c h e m
0035560 e . ) \r V a r i a b l e B i n
0035600 d i n g \r E v e r y t i m e
0035620 t h e L i s p e v a l u a t
0035640 o r e v a l u a t e s a n
0035660 e w f u n c t i o n c a l l
0035700 , A P P L Y c r e a t e s
0035720 a n e w s t a c k f r a m
0035740 e a n d a d d s i t t o
0035760 t h e b o t t o m o f t
0036000 h e I n t e r l i s p s t a
0036020 c k . \r W h e n A P P L Y b
0036040 i n d s t h e p a r a m e t
0036060 e r s o f t h e f u n c t
0036100 i o n t o t h e a r g u m
0036120 e n t s o f t h e f u n c
0036140 t i o n c a l l , i t s i
0036160 m p l y a d d s a b i n d
0036200 i n g r e c o r d t o t h
0036220 i s s t a c k f r a m e f
0036240 o r e a c h p a r a m e t e
0036260 r . \r W h e n A P P L Y u n
0036300 b i n d s t h e p a r a m e
0036320 t e r s a t t h e e n d ,
0036340 i t s i m p l y r e m o v
0036360 e s t h i s s t a c k f r
0036400 a m e f r o m t h e s t a
0036420 c k . \r E x a m p l e : \r ( N I
0036440 L ( ( . 0 5 1 5 . 0 N
0036460 I L ) ( T E X T ( 3 1 2
0036500 . 0 . 3 7 6 . 0 ) ( \r
0036520 " E v a l u a t i n g t h e
0036540 f u n c t i o n c a l l : (
0036560 M O V E F I L E ' O l d . L i
0036600 s p ' N e w . L i s p ) "
0036620 " " ) 1 . 0 ( C E N T E
0036640 R B A S E L I N E ) ( \r H
0036660 E L V E T I C A 1 4 ( B O
0036700 L D R E G U L A R R E G U L
0036720 A R ) ) ( ( 7 8 . 0 3 8
0036740 0 . 0 4 6 9 . 0 1 5 . 0
0036760 ) ( 3 1 2 . 0 3 6 5 . 0
0037000 0 . 0 1 5 . 0 ) ) N I
0037020 L ) ) \r ( ( . 0 5 1 5 .
0037040 0 N I L ) ( T E X T (
0037060 1 2 8 . 0 . 3 2 8 . 0 )
0037100 ( " S t a c k B e f o r e
0037120 A P P L Y " " " ) 1 . 0
0037140 ( C E N T E R B A S E L I
0037160 N E ) ( \r H E L V E T I C A
0037200 1 4 ( B O L D R E G U L
0037220 A R R E G U L A R ) ) ( (
0037240 5 0 . 0 3 3 2 . 0 1 5 7
0037260 . 0 1 5 . 0 ) ( 1 2 8 .
0037300 0 3 1 7 . 0 0 . 0 1
0037320 5 . 0 ) ) N I L ) ) \r ( (
0037340 . 0 6 3 7 1 . 5 N I L )
0037360 ( B O X ( 6 4 . 0 2 5
0037400 6 . 0 1 4 3 . 0 6 3 . 0
0037420 ) 2 ) ) ( ( . 0 5 1 5
0037440 . 0 N I L ) ( T E X T
0037460 ( 8 0 . 0 . 2 8 8 . 0 )
0037500 ( \r " ( F O O 5 ) " )
0037520 1 . 0 ( L E F T B A S
0037540 E L I N E ) ( H E L V E T I
0037560 C A 1 4 ) ( ( 8 0 . 0
0037600 2 8 5 . 0 7 7 . 0 1 5 .
0037620 0 ) ) N I L ) ) ( ( . 0 5
0037640 1 5 . 0 \r N I L ) ( T
0037660 E X T ( 2 2 4 . 0 . 2
0037700 8 0 . 0 ) ( " T o p " "
0037720 F r a m e " ) 1 . 0 ( L
0037740 E F T B A S E L I N E ) (
0037760 H E L V E T I C A 1 4 ) (
0040000 ( 2 2 4 . 0 2 8 4 . 0 \r
0040020 3 0 . 0 1 5 . 0 ) ( 2 2
0040040 4 . 0 2 6 9 . 0 4 7 . 0
0040060 1 5 . 0 ) ) N I L ) )
0040100 ( ( . 0 5 1 5 . 0 N I L )
0040120 ( T E X T ( 8 0 . 0 .
0040140 2 7 2 . 0 ) ( \r " ( B A
0040160 R 7 ) " ) 1 . 0
0040200 ( L E F T B A S E L I N E )
0040220 ( H E L V E T I C A 1 4 )
0040240 ( ( 8 0 . 0 2 6 9 . 0
0040260 7 5 . 0 1 5 . 0 ) ) N I L
0040300 ) ) ( ( . 0 6 3 7 1 . 5
0040320 \r N I L ) ( B O X ( 6
0040340 4 . 0 1 8 4 . 0 1 4 3 .
0040360 0 6 3 . 0 ) 2 ) ) ( (
0040400 . 0 5 1 5 . 0 N I L )
0040420 ( T E X T ( 8 8 . 0 .
0040440 2 1 6 . 0 ) ( " ( F O O
0040460 6 ) " ) \r 1 . 0 ( L E
0040500 F T B A S E L I N E ) ( H
0040520 E L V E T I C A 1 4 ) ( (
0040540 8 8 . 0 2 1 3 . 0 7 2 .
0040560 0 1 5 . 0 ) ) N I L ) )
0040600 ( ( . 0 5 1 5 . 0 N I L
0040620 ) ( T E X T ( \r 8 8 . 0
0040640 . 2 0 0 . 0 ) ( " ( B
0040660 A Z 8 8 ) " ) 1 . 0
0040700 ( L E F T B A S E L I N E
0040720 ) ( H E L V E T I C A 1 4
0040740 ) ( ( 8 8 . 0 1 9 7 . 0
0040760 8 3 . 0 1 5 . 0 ) ) N
0041000 I L \r ) ) ( ( . 0 5 1 5
0041020 . 0 N I L ) ( T E X T
0041040 ( 8 8 . 0 . 1 4 4 . 0 )
0041060 ( " ( S U M X 1 2 ) "
0041100 ) 1 . 0 ( L E F T B A
0041120 S E L I N E ) ( H E L V E T
0041140 I C A 1 4 ) \r ( ( 8 8 . 0
0041160 1 4 1 . 0 9 8 . 0 1
0041200 5 . 0 ) ) N I L ) ) ( ( .
0041220 0 5 1 5 . 0 N I L ) (
0041240 T E X T ( 8 8 . 0 . 1
0041260 2 8 . 0 ) ( " ( I T E M
0041300 A ) " ) 1 . 0 ( \r
0041320 L E F T B A S E L I N E )
0041340 ( H E L V E T I C A 1 4 )
0041360 ( ( 8 8 . 0 1 2 5 . 0 8
0041400 8 . 0 1 5 . 0 ) ) N I L )
0041420 ) ( ( . 0 6 3 7 1 . 5
0041440 N I L ) ( B O X ( 6 4 .
0041460 0 \r 1 1 2 . 0 1 4 3 . 0
0041500 6 3 . 0 ) 2 ) ) ( ( .
0041520 0 5 1 5 . 0 N I L ) (
0041540 T E X T ( 2 1 6 . 0 .
0041560 6 4 . 0 ) ( " B o t t o m "
0041600 " F r a m e " ) 1 . 0
0041620 ( L E F T \r B A S E L I N E
0041640 ) ( H E L V E T I C A 1 4
0041660 ) ( ( 2 1 6 . 0 6 8 . 0
0041700 5 4 . 0 1 5 . 0 ) (
0041720 2 1 6 . 0 5 3 . 0 4 7 .
0041740 0 1 5 . 0 ) ) N I L ) )
0041760 ( ( . 0 5 1 5 . 0 \r N I
0042000 L ) ( T E X T ( 2 8 0 .
0042020 0 . 6 4 . 0 ) ( " ( F
0042040 r o m F i l e O l d . L
0042060 i s p ) " ) 1 . 0 ( L E
0042100 F T B A S E L I N E ) ( H
0042120 E L V E T I C A 1 4 ) ( (
0042140 \r 2 8 0 . 0 6 1 . 0 1 6
0042160 2 . 0 1 5 . 0 ) ) N I L )
0042200 ) ( ( . 0 6 3 7 1 . 5
0042220 N I L ) ( B O X ( 2 7 2
0042240 . 0 4 0 . 0 1 4 3 . 0
0042260 6 3 . 0 ) 2 ) ) ( ( . 0
0042300 5 1 5 . 0 \r N I L ) (
0042320 T E X T ( 1 6 . 0 . 2
0042340 8 0 . 0 ) ( " T o p " "
0042360 F r a m e " ) 1 . 0 ( L
0042400 E F T B A S E L I N E ) (
0042420 H E L V E T I C A 1 4 ) (
0042440 ( 1 6 . 0 2 8 4 . 0 \r 3
0042460 0 . 0 1 5 . 0 ) ( 1 6 .
0042500 0 2 6 9 . 0 4 7 . 0
0042520 1 5 . 0 ) ) N I L ) ) ( (
0042540 . 0 5 1 5 . 0 N I L )
0042560 ( T E X T ( 8 . 0 . 1
0042600 3 6 . 0 ) ( " B o t t o m "
0042620 \r " F r a m e " ) 1 . 0
0042640 ( L E F T B A S E L I N E
0042660 ) ( H E L V E T I C A 1 4
0042700 ) ( ( 8 . 0 1 4 0 . 0
0042720 5 4 . 0 1 5 . 0 ) ( 8
0042740 . 0 1 2 5 . 0 4 7 . 0
0042760 1 5 . 0 ) ) \r N I L ) )
0043000 ( ( . 0 5 1 5 . 0 N I L )
0043020 ( T E X T ( 3 4 4 . 0
0043040 . 3 3 6 . 0 ) ( " S t a
0043060 c k D u r i n g A P P L Y "
0043100 ) 1 . 0 ( C E N T E R
0043120 B A S E L I N E ) ( \r H E L
0043140 V E T I C A 1 4 ( B O L D
0043160 R E G U L A R R E G U L A R
0043200 ) ) ( ( 2 6 5 . 0 3 3 3
0043220 . 0 1 5 9 . 0 1 5 . 0 )
0043240 ) N I L ) ) ( ( . 0 6 2 5
0043260 1 5 . 0 N I L ) ( T E
0043300 X T \r ( 2 8 0 . 0 . 8
0043320 8 . 0 ) ( " M O V E F I L E
0043340 F r a m e " ) 1 . 2 5
0043360 ( L E F T B A S E L I N E )
0043400 ( H E L V E T I C A 1 0 )
0043420 ( ( 2 8 0 . 2 5 8 5 . 7 5
0043440 1 3 6 . 2 5 \r 1 5 . 0 )
0043460 ) N I L ) ) ( ( . 0 6 2 5
0043500 1 5 . 0 N I L ) ( T E
0043520 X T ( 2 8 0 . 0 . 4 8
0043540 . 0 ) ( " ( T o F i l e
0043560 N e w . L i s p ) " ) 1
0043600 . 2 5 ( L E F T \r B A S E
0043620 L I N E ) ( H E L V E T I C
0043640 A 1 0 ) ( ( 2 8 0 . 2 5
0043660 4 5 . 7 5 1 4 1 . 2 5
0043700 1 5 . 0 ) ) N I L ) ) ( (
0043720 . 0 5 1 5 . 0 N I L )
0043740 ( T E X T ( 5 5 2 . 0 .
0043760 \r 3 2 8 . 0 ) ( " S t a c
0044000 k A f t e r A P P L Y "
0044020 " " ) 1 . 0 ( C E N T E
0044040 R B A S E L I N E ) ( H E
0044060 L V E T I C A 1 4 ( B O L
0044100 D R E G U L A R R E G U L A
0044120 R ) ) ( ( \r 4 8 1 . 0 3
0044140 3 2 . 0 1 4 3 . 0 1 5 .
0044160 0 ) ( 5 5 2 . 0 3 1 7 .
0044200 0 0 . 0 1 5 . 0 ) ) N
0044220 I L ) ) ( ( . 0 6 2 5 1
0044240 5 . 0 N I L ) ( T E X T
0044260 ( 7 2 . 0 . \r 3 0 4 . 0
0044300 ) ( " F O O F r a m e " )
0044320 1 . 2 5 ( L E F T B A
0044340 S E L I N E ) ( H E L V E T
0044360 I C A 1 0 ) ( ( 7 1 . 5
0044400 3 0 1 . 2 5 8 6 . 2 5
0044420 1 5 . 0 ) ) N I L ) ) ( (
0044440 \r . 0 6 2 5 1 5 . 0 N I L
0044460 ) ( T E X T ( 7 2 . 0
0044500 . 2 3 2 . 0 ) ( " X Y Z
0044520 F r a m e " ) 1 . 2 5
0044540 ( L E F T B A S E L I N E )
0044560 ( H E L V E T I C A 1 0 )
0044600 ( ( 7 1 . 5 \r 2 3 0 . 0
0044620 8 5 . 0 1 5 . 0 ) ) N I
0044640 L ) ) ( ( . 0 6 2 5 1 5
0044660 . 0 N I L ) ( T E X T
0044700 ( 7 2 . 0 . 1 6 0 . 0 )
0044720 ( " Z A P F r a m e " )
0044740 1 . 2 5 ( L E F T \r B A S
0044760 E L I N E ) ( H E L V E T I
0045000 C A 1 0 ) ( ( 7 1 . 5
0045020 1 5 7 . 5 8 3 . 7 5 1 5
0045040 . 0 ) ) N I L ) ) ( ( . 0
0045060 5 1 5 . 0 N I L ) ( T
0045100 E X T ( 2 8 8 . 0 . \r
0045120 2 8 8 . 0 ) ( " ( F O O
0045140 5 ) " ) 1 . 0 ( L E
0045160 F T B A S E L I N E ) ( H
0045200 E L V E T I C A 1 4 ) ( (
0045220 2 8 8 . 0 2 8 5 . 0 7 7
0045240 . 0 1 5 . 0 ) ) N I L ) )
0045260 ( ( \r . 0 6 2 5 1 5 . 0
0045300 N I L ) ( T E X T ( 2
0045320 8 0 . 0 . 3 0 4 . 0 )
0045340 ( " F O O F r a m e " ) 1
0045360 . 2 5 ( L E F T B A S E L
0045400 I N E ) ( H E L V E T I C A
0045420 1 0 ) ( ( \r 2 7 9 . 5
0045440 3 0 1 . 2 5 8 6 . 2 5 1
0045460 5 . 0 ) ) N I L ) ) ( ( .
0045500 0 5 1 5 . 0 N I L ) (
0045520 T E X T ( 2 8 8 . 0 .
0045540 2 7 2 . 0 ) ( " ( B A R
0045560 7 ) " ) 1 . 0 ( \r L
0045600 E F T B A S E L I N E ) (
0045620 H E L V E T I C A 1 4 ) (
0045640 ( 2 8 8 . 0 2 6 9 . 0 7
0045660 5 . 0 1 5 . 0 ) ) N I L )
0045700 ) ( ( . 0 6 3 7 1 . 5
0045720 N I L ) ( B O X ( 2 7 2
0045740 . 0 \r 2 5 6 . 0 1 4 3 .
0045760 0 6 3 . 0 ) 2 ) ) ( (
0046000 . 0 6 2 5 1 5 . 0 N I L )
0046020 ( T E X T ( 2 8 0 . 0
0046040 . 2 3 2 . 0 ) ( " X Y Z
0046060 F r a m e " ) 1 . 2 5
0046100 ( L E F T \r B A S E L I N E )
0046120 ( H E L V E T I C A 1 0 )
0046140 ( ( 2 7 9 . 5 2 3 0 . 0
0046160 8 5 . 0 1 5 . 0 ) ) N
0046200 I L ) ) ( ( . 0 5 1 5 .
0046220 0 N I L ) ( T E X T (
0046240 2 9 6 . 0 . \r 2 1 6 . 0 )
0046260 ( " ( F O O 6 ) " )
0046300 1 . 0 ( L E F T B A S E
0046320 L I N E ) ( H E L V E T I C
0046340 A 1 4 ) ( ( 2 9 6 . 0
0046360 2 1 3 . 0 7 2 . 0 1 5 .
0046400 0 ) ) N I L ) ) ( ( . 0 5
0046420 \r 1 5 . 0 N I L ) ( T
0046440 E X T ( 2 9 6 . 0 . 2
0046460 0 0 . 0 ) ( " ( B A Z
0046500 8 8 ) " ) 1 . 0 ( L E
0046520 F T B A S E L I N E ) ( H
0046540 E L V E T I C A 1 4 ) ( (
0046560 2 9 6 . 0 \r 1 9 7 . 0 8
0046600 3 . 0 1 5 . 0 ) ) N I L )
0046620 ) ( ( . 0 6 3 7 1 . 5
0046640 N I L ) ( B O X ( 2 7 2
0046660 . 0 1 8 4 . 0 1 4 3 . 0
0046700 6 3 . 0 ) 2 ) ) ( ( .
0046720 0 6 2 5 1 5 . 0 N I L \r )
0046740 ( T E X T ( 2 8 0 . 0
0046760 . 1 6 0 . 0 ) ( " Z A P
0047000 F r a m e " ) 1 . 2 5
0047020 ( L E F T B A S E L I N E )
0047040 ( H E L V E T I C A 1 0 )
0047060 ( ( 2 7 9 . 5 1 5 7 . 5
0047100 \r 8 3 . 7 5 1 5 . 0 ) )
0047120 N I L ) ) ( ( . 0 5 1 5
0047140 . 0 N I L ) ( T E X T
0047160 ( 2 9 6 . 0 . 1 4 4 . 0 )
0047200 ( " ( S U M X 1 2 )
0047220 " ) 1 . 0 ( L E F T B
0047240 A S E L I N E ) \r ( H E L V
0047260 E T I C A 1 4 ) ( ( 2 9 6
0047300 . 0 1 4 1 . 0 9 8 . 0
0047320 1 5 . 0 ) ) N I L ) ) (
0047340 ( . 0 5 1 5 . 0 N I L )
0047360 ( T E X T ( 2 9 6 . 0 .
0047400 1 2 8 . 0 ) ( \r " ( I T
0047420 E M A ) " ) 1 . 0
0047440 ( L E F T B A S E L I N E
0047460 ) ( H E L V E T I C A 1 4
0047500 ) ( ( 2 9 6 . 0 1 2 5 .
0047520 0 8 8 . 0 1 5 . 0 ) )
0047540 N I L ) ) ( ( . 0 6 3 \r
0047560 7 1 . 5 N I L ) ( B O X
0047600 ( 2 7 2 . 0 1 1 2 . 0
0047620 1 4 3 . 0 6 3 . 0 ) 2 ) )
0047640 ( ( . 0 5 1 5 . 0 N I
0047660 L ) ( T E X T ( 4 4 0 .
0047700 0 . 2 8 0 . 0 ) ( " T
0047720 o p " \r " F r a m e " )
0047740 1 . 0 ( L E F T B A S E L
0047760 I N E ) ( H E L V E T I C A
0050000 1 4 ) ( ( 4 4 0 . 0 2
0050020 8 4 . 0 3 0 . 0 1 5 . 0
0050040 ) ( 4 4 0 . 0 2 6 9 . 0
0050060 4 7 . 0 1 5 . 0 \r ) )
0050100 N I L ) ) ( ( . 0 6 2 5
0050120 1 5 . 0 N I L ) ( T E X T
0050140 ( 4 9 6 . 0 . 3 0 4 .
0050160 0 ) ( " F O O F r a m e "
0050200 ) 1 . 2 5 ( L E F T B
0050220 A S E L I N E ) ( \r H E L V
0050240 E T I C A 1 0 ) ( ( 4 9 5
0050260 . 5 3 0 1 . 2 5 8 6 . 2
0050300 5 1 5 . 0 ) ) N I L ) )
0050320 ( ( . 0 5 1 5 . 0 N I L
0050340 ) ( T E X T ( 5 0 4 . 0
0050360 . 2 8 8 . 0 ) ( \r " (
0050400 F O O 5 ) " ) 1 . 0
0050420 ( L E F T B A S E L I N E
0050440 ) ( H E L V E T I C A 1 4
0050460 ) ( ( 5 0 4 . 0 2 8 5 .
0050500 0 7 7 . 0 1 5 . 0 ) )
0050520 N I L ) ) ( ( . 0 5 1 5
0050540 . 0 \r N I L ) ( T E X T
0050560 ( 5 0 4 . 0 . 2 7 2 . 0
0050600 ) ( " ( B A R 7 ) "
0050620 ) 1 . 0 ( L E F T B A
0050640 S E L I N E ) ( H E L V E T
0050660 I C A 1 4 ) ( ( 5 0 4 . 0
0050700 2 6 9 . 0 \r 7 5 . 0
0050720 1 5 . 0 ) ) N I L ) ) ( (
0050740 . 0 6 3 7 1 . 5 N I L )
0050760 ( B O X ( 4 8 8 . 0 2
0051000 5 6 . 0 1 4 3 . 0 6 3 .
0051020 0 ) 2 ) ) ( ( . 0 6 2 5
0051040 1 5 . 0 N I L ) ( \r T E
0051060 X T ( 4 9 6 . 0 . 2 3
0051100 2 . 0 ) ( " X Y Z F r a m
0051120 e " ) 1 . 2 5 ( L E F T
0051140 B A S E L I N E ) ( H E L
0051160 V E T I C A 1 0 ) ( ( 4 9
0051200 5 . 5 2 3 0 . 0 8 5 . 0
0051220 \r 1 5 . 0 ) ) N I L ) )
0051240 ( ( . 0 6 3 7 1 . 5 N I
0051260 L ) ( B O X ( 4 8 8 . 0
0051300 1 8 4 . 0 1 4 3 . 0
0051320 6 3 . 0 ) 2 ) ) ( ( . 0 6
0051340 3 7 1 . 5 N I L ) ( B
0051360 O X ( \r 4 8 8 . 0 1 1 2
0051400 . 0 1 4 3 . 0 6 3 . 0 )
0051420 2 ) ) ( ( . 0 5 1 5 .
0051440 0 N I L ) ( T E X T (
0051460 4 3 2 . 0 . 1 3 6 . 0 )
0051500 ( " B o t t o m " " F r a
0051520 m e " ) 1 . 0 ( \r L E F
0051540 T B A S E L I N E ) ( H E
0051560 L V E T I C A 1 4 ) ( ( 4
0051600 3 2 . 0 1 4 0 . 0 5 4 .
0051620 0 1 5 . 0 ) ( 4 3 2 . 0
0051640 1 2 5 . 0 4 7 . 0 1
0051660 5 . 0 ) ) N I L ) ) ( ( \r
0051700 . 0 6 2 5 1 5 . 0 N I L )
0051720 ( T E X T ( 4 9 6 . 0
0051740 . 1 6 0 . 0 ) ( " Z A P
0051760 F r a m e " ) 1 . 2 5
0052000 ( L E F T B A S E L I N E )
0052020 ( H E L V E T I C A 1 0 )
0052040 ( ( \r 4 9 5 . 5 1 5 7 . 5
0052060 8 3 . 7 5 1 5 . 0 ) )
0052100 N I L ) ) ( ( . 0 5 1 5
0052120 . 0 N I L ) ( T E X T
0052140 ( 5 1 2 . 0 . 1 2 8 . 0 )
0052160 ( " ( I T E M A )
0052200 " ) 1 . 0 ( \r L E F T
0052220 B A S E L I N E ) ( H E L V
0052240 E T I C A 1 4 ) ( ( 5 1 2
0052260 . 0 1 2 5 . 0 8 8 . 0
0052300 1 5 . 0 ) ) N I L ) ) (
0052320 ( . 0 5 1 5 . 0 N I L )
0052340 ( T E X T ( 5 1 2 . 0 .
0052360 \r 1 4 4 . 0 ) ( " ( S U
0052400 M X 1 2 ) " ) 1 . 0
0052420 ( L E F T B A S E L I N E
0052440 ) ( H E L V E T I C A 1 4
0052460 ) ( ( 5 1 2 . 0 1 4 1 .
0052500 0 9 8 . 0 1 5 . 0 ) )
0052520 N I L ) ) ( \r ( . 0 5 1
0052540 5 . 0 N I L ) ( T E X T
0052560 ( 5 1 2 . 0 . 2 0 0 . 0
0052600 ) ( " ( B A Z 8 8 )
0052620 " ) 1 . 0 ( L E F T B
0052640 A S E L I N E ) ( H E L V E
0052660 T I C A 1 4 ) ( ( \r 5 1 2
0052700 . 0 1 9 7 . 0 8 3 . 0
0052720 1 5 . 0 ) ) N I L ) ) (
0052740 ( . 0 5 1 5 . 0 N I L )
0052760 ( T E X T ( 5 1 2 . 0 .
0053000 2 1 6 . 0 ) ( " ( F O O
0053020 6 ) " ) 1 . 0 ( L
0053040 E F T \r B A S E L I N E )
0053060 ( H E L V E T I C A 1 4 )
0053100 ( ( 5 1 2 . 0 2 1 3 . 0
0053120 7 2 . 0 1 5 . 0 ) ) N I L
0053140 ) ) ) \r ( 0 0 6 3 3 . 7 5
0053160 4 0 5 . 0 ) \r 1 . 2 5 \r 8 . 0 \r
0053200 \r L o o k i n g u p t h e
0053220 V a l u e o f a V a r i a
0053240 b l e \r A f t e r b i n d i n
0053260 g a l l o f t h e p a r
0053300 a m e t e r s , A P P L Y c
0053320 a l l s E V A L o n e a c
0053340 h S - e x p r e s s i o n i
0053360 n t h e f u n c t i o n b
0053400 o d y . T h e s e S - e x
0053420 p r e s s i o n o f t e n r
0053440 e f e r t o v a r i a b l e
0053460 s . \r E x a m p l e : I n s
0053500 i d e t h e b o d y o f
0053520 M O V E F I L E i s t h e
0053540 S - e x p r e s s i o n ( C O
0053560 P Y F I L E F r o m F i l e
0053600 T o F i l e ) , w h i c h r
0053620 e f e r s t o 2 v a r i a
0053640 b l e s F r o m F i l e a n
0053660 d T o F i l e . \r E V A L u a
0053700 l t i n g t h e s e S - e x
0053720 p r e s s i o n s i n v o l v
0053740 e s E V A L u a t i n g t h
0053760 e s e v a r i a b l e s . \r L
0054000 o o k i n g a t E V A L ,
0054020 e v a l u a t i n g a v a r
0054040 i a b l e ( i . e . , a N
0054060 L I S T P ) i n v o l v e s
0054100 a f u n c t i o n , L o o k
0054120 U p V a l u e , t h a t l o
0054140 o k s u p t h e v a l u e
0054160 o f t h e v a r i a b l e
0054200 . \r T h e L o o k U p V a l u
0054220 e f u n c t i o n w o r k s
0054240 a s f o l l o w s : \r S t a
0054260 r t i n g a t t h e b o t
0054300 t o m o f t h e s t a c k
0054320 , s e a r c h e a c h s t
0054340 a c k f r a m e f o r a
0054360 b i n d i n g r e c o r d w
0054400 i t h a v a r i a b l e n
0054420 a m e E Q t o t h e v a
0054440 r i a b l e b e i n g l o o
0054460 k e d u p . \r R e t u r n t
0054500 h e v a l u e a s s o c i a
0054520 t e d w i t h t h e F I R
0054540 S T s u c h b i n d i n g
0054560 r e c o r d f o u n d o n
0054600 t h e s t a c k . \r I f t h
0054620 e r e i s n o b i n d i n
0054640 g r e c o r d o n t h e
0054660 s t a c k , t h e n g e t
0054700 t h e v a l u e a t t a c h
0054720 e d t o t h e a t o m w
0054740 i t h t h e s a m e n a m
0054760 e a s t h e v a r i a b l
0055000 e b e i n g l o o k e d u
0055020 p . \r I f t h e a t o m h
0055040 a s n o v a l u e , t h e
0055060 n b r e a k w i t h a n
0055100 " u n b o u n d a t o m " e
0055120 r r o r . \r \f E x a m p l e s :
0055140 \r G i v e n t h e f o l l o
0055160 w i n g s t a c k a n d a
0055200 t o m v a l u e s : \r ( N I L
0055220 ( ( . 0 5 1 5 . 0 N I
0055240 L ) ( T E X T ( 2 4 . 0
0055260 . 2 5 6 . 0 ) ( " T o
0055300 p " " F r a m e " ) 1 .
0055320 0 ( L E F T B A S E L I N
0055340 E ) ( H E L V E T I C A 1
0055360 4 ) \r ( ( 2 4 . 0 2 6 0
0055400 . 0 3 0 . 0 1 5 . 0 )
0055420 ( 2 4 . 0 2 4 5 . 0 4
0055440 7 . 0 1 5 . 0 ) ) N I L )
0055460 ) ( ( . 0 5 1 5 . 0 N
0055500 I L ) ( T E X T ( 1 6 .
0055520 0 . 4 0 . 0 \r ) ( " B
0055540 o t t o m " " F r a m e " )
0055560 1 . 0 ( L E F T B A S
0055600 E L I N E ) ( H E L V E T I
0055620 C A 1 4 ) ( ( 1 6 . 0
0055640 4 4 . 0 5 4 . 0 1 5 . 0
0055660 ) ( 1 6 . 0 2 9 . 0
0055700 \r 4 7 . 0 1 5 . 0 ) ) N I
0055720 L ) ) ( ( . 0 5 1 5 . 0
0055740 N I L ) ( T E X T ( 8
0055760 0 . 0 . 4 0 . 0 ) ( "
0056000 ( F r o m F i l e O l d
0056020 . L i s p ) " ) 1 . 0 (
0056040 L E F T \r B A S E L I N E )
0056060 ( H E L V E T I C A 1 4 )
0056100 ( ( 8 0 . 0 3 7 . 0 1
0056120 6 2 . 0 1 5 . 0 ) ) N I L
0056140 ) ) ( ( . 0 6 3 7 1 . 5
0056160 N I L ) ( B O X ( 7 2
0056200 . 0 1 6 . 0 \r 1 4 3 . 0
0056220 6 3 . 0 ) 2 ) ) ( ( .
0056240 0 5 1 5 . 0 N I L ) (
0056260 T E X T ( 1 4 4 . 0 .
0056300 3 1 2 . 0 ) ( " S t a c k "
0056320 ) 1 . 0 ( C E N T E R
0056340 B A S E L I N E ) ( \r H E L
0056360 V E T I C A 1 4 ( B O L D
0056400 R E G U L A R R E G U L A R
0056420 ) ) ( ( 1 2 3 . 0 3 0 9
0056440 . 0 4 3 . 0 1 5 . 0 ) )
0056460 N I L ) ) ( ( . 0 6 2 5
0056500 1 5 . 0 N I L ) ( T E X
0056520 T \r ( 8 0 . 0 . 6 4 .
0056540 0 ) ( " M O V E F I L E F
0056560 r a m e " ) 1 . 2 5 ( L
0056600 E F T B A S E L I N E ) (
0056620 H E L V E T I C A 1 0 ) (
0056640 ( 8 0 . 2 5 6 1 . 7 5 1
0056660 3 6 . 2 5 \r 1 5 . 0 ) ) N
0056700 I L ) ) ( ( . 0 6 2 5 1
0056720 5 . 0 N I L ) ( T E X T
0056740 ( 8 0 . 0 . 2 4 . 0 )
0056760 ( " ( T o F i l e N e
0057000 w . L i s p ) " ) 1 . 2 5
0057020 ( L E F T \r B A S E L I N E
0057040 ) ( H E L V E T I C A 1 0
0057060 ) ( ( 8 0 . 2 5 2 1 . 7
0057100 5 1 4 1 . 2 5 1 5 . 0 )
0057120 ) N I L ) ) ( ( . 0 5
0057140 1 5 . 0 N I L ) ( T E X T
0057160 ( 8 8 . 0 . \r 2 6 4 .
0057200 0 ) ( " ( F O O 5 )
0057220 " ) 1 . 0 ( L E F T B
0057240 A S E L I N E ) ( H E L V E
0057260 T I C A 1 4 ) ( ( 8 8 . 0
0057300 2 6 1 . 0 7 7 . 0 1
0057320 5 . 0 ) ) N I L ) ) ( ( \r
0057340 . 0 6 2 5 1 5 . 0 N I L )
0057360 ( T E X T ( 8 0 . 0 .
0057400 2 8 0 . 0 ) ( " F O O
0057420 F r a m e " ) 1 . 2 5 (
0057440 L E F T B A S E L I N E )
0057460 ( H E L V E T I C A 1 0 )
0057500 ( ( 7 9 . 5 \r 2 7 7 . 2 5
0057520 8 6 . 2 5 1 5 . 0 ) ) N
0057540 I L ) ) ( ( . 0 5 1 5 .
0057560 0 N I L ) ( T E X T (
0057600 8 8 . 0 . 2 4 8 . 0 )
0057620 ( " ( B A R 7 ) " )
0057640 1 . 0 ( L E F T \r B A S E
0057660 L I N E ) ( H E L V E T I C
0057700 A 1 4 ) ( ( 8 8 . 0 2
0057720 4 5 . 0 7 5 . 0 1 5 . 0
0057740 ) ) N I L ) ) ( ( . 0 6 3
0057760 7 1 . 5 N I L ) ( B O
0060000 X ( 7 2 . 0 2 3 2 . 0
0060020 \r 1 4 3 . 0 6 3 . 0 ) 2
0060040 ) ) ( ( . 0 6 2 5 1 5 .
0060060 0 N I L ) ( T E X T (
0060100 8 0 . 0 . 2 0 8 . 0 )
0060120 ( " X Y Z F r a m e " ) 1
0060140 . 2 5 ( L E F T B A S E L
0060160 I N E ) ( \r H E L V E T I C
0060200 A 1 0 ) ( ( 7 9 . 5 2
0060220 0 6 . 0 8 5 . 0 1 5 . 0
0060240 ) ) N I L ) ) ( ( . 0 5
0060260 1 5 . 0 N I L ) ( T E X
0060300 T ( 9 6 . 0 . 1 9 2 .
0060320 0 ) ( \r " ( F O O 6 )
0060340 " ) 1 . 0 ( L E F T B
0060360 A S E L I N E ) ( H E L V E
0060400 T I C A 1 4 ) ( ( 9 6 . 0
0060420 1 8 9 . 0 7 2 . 0 1
0060440 5 . 0 ) ) N I L ) ) ( ( .
0060460 0 5 1 5 . 0 N I L \r )
0060500 ( T E X T ( 9 6 . 0 .
0060520 1 7 6 . 0 ) ( " ( B A Z
0060540 8 8 ) " ) 1 . 0 ( L
0060560 E F T B A S E L I N E ) (
0060600 H E L V E T I C A 1 4 ) (
0060620 ( 9 6 . 0 1 7 3 . 0 8 3
0060640 . 0 \r 1 5 . 0 ) ) N I L )
0060660 ) ( ( . 0 6 3 7 1 . 5
0060700 N I L ) ( B O X ( 7 2 .
0060720 0 1 6 0 . 0 1 4 3 . 0
0060740 6 3 . 0 ) 2 ) ) ( ( . 0
0060760 6 2 5 1 5 . 0 N I L )
0061000 ( T E X T ( \r 8 0 . 0 .
0061020 1 3 6 . 0 ) ( " Z A P F
0061040 r a m e " ) 1 . 2 5 ( L
0061060 E F T B A S E L I N E ) (
0061100 H E L V E T I C A 1 0 ) (
0061120 ( 7 9 . 5 1 3 3 . 5 8 3
0061140 . 7 5 1 5 . 0 ) ) N I L \r
0061160 ) ) ( ( . 0 5 1 5 . 0
0061200 N I L ) ( T E X T ( 9 6
0061220 . 0 . 1 2 0 . 0 ) ( "
0061240 ( S U M X 1 2 ) " )
0061260 1 . 0 ( L E F T B A S E L
0061300 I N E ) ( H E L V E T I C A
0061320 1 4 ) \r ( ( 9 6 . 0 1
0061340 1 7 . 0 9 8 . 0 1 5 . 0
0061360 ) ) N I L ) ) ( ( . 0 5
0061400 1 5 . 0 N I L ) ( T E X
0061420 T ( 9 6 . 0 . 1 0 4 .
0061440 0 ) ( " ( I T E M
0061460 A ) " ) 1 . 0 ( \r L E F
0061500 T B A S E L I N E ) ( H E
0061520 L V E T I C A 1 4 ) ( ( 9
0061540 6 . 0 1 0 1 . 0 8 8 . 0
0061560 1 5 . 0 ) ) N I L ) )
0061600 ( ( . 0 6 3 7 1 . 5 N I L
0061620 ) ( B O X ( 7 2 . 0
0061640 \r 8 8 . 0 1 4 3 . 0 6 3
0061660 . 0 ) 2 ) ) ( ( . 0 6 2 5
0061700 1 5 . 0 N I L ) ( T E
0061720 X T ( 2 8 0 . 0 . 2 5
0061740 6 . 0 ) ( " X Y Z " ) 1
0061760 . 2 5 ( C E N T E R B A S
0062000 E L I N E ) \r ( H E L V E T
0062020 I C A 1 2 ( M E D I U M
0062040 R E G U L A R R E G U L A R )
0062060 ) ( ( 2 6 1 . 2 5 2 5 2
0062100 . 5 3 8 . 7 5 1 6 . 2 5
0062120 ) ) N I L ) ) ( ( . 0 6 2
0062140 5 1 5 . 0 N I L ) \r (
0062160 T E X T ( 3 6 0 . 0 .
0062200 2 5 6 . 0 ) ( " 5 6 7 " )
0062220 1 . 2 5 ( C E N T E R B
0062240 A S E L I N E ) ( H E L V E
0062260 T I C A 1 2 ( M E D I U M
0062300 R E G U L A R R E G U L A R
0062320 ) ) ( \r ( 3 4 3 . 7 5 2
0062340 5 2 . 5 3 3 . 7 5 1 6 .
0062360 2 5 ) ) N I L ) ) ( ( 0 .
0062400 0 2 0 . 0 N I L ) ( W
0062420 I R E ( ( 3 0 4 . 0 .
0062440 2 5 6 . 0 ) ( 3 4 4 . 0 .
0062460 2 5 6 . 0 ) ) 2 \r ( N
0062500 I L ( L I N E 3 0 . 0
0062520 1 5 . 0 ) ) N I L ) ) ) \r (
0062540 0 0 4 3 7 . 5 3 4 0 . 0 )
0062560 \r 1 . 2 5 \r 8 . 0 \r \r ( L o o k
0062600 U p V a l u e ' F r o m F i l
0062620 e ) w o u l d r e t u r n
0062640 O l d . L i s p \r ( L o o k U p
0062660 V a l u e ' F O O ) w o u l
0062700 d r e t u r n 6 \r ( L o o k
0062720 U p V a l u e ' B A R ) w o
0062740 u l d r e t u r n 7 \r ( L o
0062760 o k U p V a l u e ' X Y Z )
0063000 w o u l d r e t u r n 5 6 7
0063020 \r ( L o o k U p V a l u e ' P
0063040 R Q ) w o u l d r e t u r n
0063060 u . b . a . e r r o r \r S e
0063100 t t i n g t h e V a l u e
0063120 o f a V a r i a b l e \r W i
0063140 t h i n a f u n c t i o n
0063160 b o d y b e i n g p r o c e
0063200 s s e d b y A P P L Y , t
0063220 h e S E T f u n c t i o n s
0063240 w o r k i n a m a n n e
0063260 r a n a l o g o u s t o v
0063300 a r i a b l e l o o k u p . \r
0063320 I n p a r t i c u l a r , (
0063340 S E T Q Q V a r i a b l e V
0063360 a l u e ) w i l l s e a r c
0063400 h u p t h e s t a c k s
0063420 t a r t i n g a t t h e b
0063440 o t t o m f o r a b i n d
0063460 i n g r e c o r d f o r t
0063500 h e v a r i a b l e V a r i
0063520 a b l e . I f i t f i n
0063540 d s o n e , i t w i l l
0063560 c h a n g e t h e v a l u e
0063600 p o r t i o n o f t h i s
0063620 b i n d i n g r e c o r d
0063640 t o b e V a l u e . \r I f
0063660 n o b i n d i n g r e c o r
0063700 d i s f o u n d o n t h
0063720 e s t a c k , t h e n S E
0063740 T Q Q w i l l s e t t h e
0063760 v a l u e o f t h e a t
0064000 o m V a r i a b l e . \r S E T
0064020 a n d S E T Q w o r k a
0064040 n a l o g o u s l y . \r E x a m
0064060 p l e s o f v a r i a b l e
0064100 s e t t i n g : \r A l l o f
0064120 t h e f o l l o w i n g a
0064140 s s u m e t h a t t h e S
0064160 E T s t a t e m e n t i s
0064200 p a r t o f t h e M O V E
0064220 F I L E f u n c t i o n d e
0064240 f i n i t i o n . \r ( N I L
0064260 ( ( . 0 5 1 5 . 0 N I L )
0064300 ( T E X T ( 2 4 0 . 0
0064320 . 3 7 6 . 0 ) ( " E v a
0064340 l u a t i n g : ( S E T Q Q
0064360 F r o m F i l e X Y Z Z Y ) "
0064400 " " ) 1 . 0 ( \r C E
0064420 N T E R B A S E L I N E )
0064440 ( H E L V E T I C A 1 4 (
0064460 B O L D R E G U L A R R E G
0064500 U L A R ) ) ( ( 9 5 . 0
0064520 3 8 0 . 0 2 9 1 . 0 1 5
0064540 . 0 ) ( 2 4 0 . 0 3 6 5
0064560 . 0 \r 0 . 0 1 5 . 0 ) )
0064600 N I L ) ) ( ( . 0 5 1
0064620 5 . 0 N I L ) ( T E X T
0064640 ( 2 5 6 . 0 . 6 4 . 0 )
0064660 ( " B o t t o m " " F r
0064700 a m e " ) 1 . 0 ( L E F
0064720 T B A S E L I N E ) \r ( H
0064740 E L V E T I C A 1 4 ) ( (
0064760 2 5 6 . 0 6 8 . 0 5 4 .
0065000 0 1 5 . 0 ) ( 2 5 6 . 0
0065020 5 3 . 0 4 7 . 0 1 5
0065040 . 0 ) ) N I L ) ) ( ( . 0
0065060 5 1 5 . 0 N I L ) ( \r
0065100 T E X T ( 3 2 0 . 0 .
0065120 6 4 . 0 ) ( " ( F r o m F i
0065140 l e X Y Z Z Y ) " )
0065160 1 . 0 ( L E F T B A S E L
0065200 I N E ) ( H E L V E T I C A
0065220 1 4 ( B O L D R E G U L
0065240 A R \r R E G U L A R ) ) (
0065260 ( 3 2 0 . 0 6 1 . 0 1 5
0065300 3 . 0 1 5 . 0 ) ) N I L )
0065320 ) ( ( . 0 6 3 7 1 . 5
0065340 N I L ) ( B O X ( 3 1 2
0065360 . 0 4 0 . 0 1 4 3 . 0
0065400 6 3 . 0 ) 2 ) ) \r ( ( .
0065420 0 5 1 5 . 0 N I L ) (
0065440 T E X T ( 3 8 4 . 0 .
0065460 3 3 6 . 0 ) ( " S t a c k
0065500 A f t e r S E T Q Q " ) 1
0065520 . 0 ( C E N T E R B A S E
0065540 L I N E ) ( H E L V E T I C
0065560 A \r 1 4 ( B O L D R E G
0065600 U L A R R E G U L A R ) )
0065620 ( ( 3 1 1 . 0 3 3 3 . 0
0065640 1 4 7 . 0 1 5 . 0 ) ) N I
0065660 L ) ) ( ( . 0 6 2 5 1 5
0065700 . 0 N I L ) ( T E X T
0065720 ( 3 2 0 . 0 \r . 8 8 . 0 )
0065740 ( " M O V E F I L E F r a
0065760 m e " ) 1 . 2 5 ( L E F
0066000 T B A S E L I N E ) ( H E
0066020 L V E T I C A 1 0 ) ( ( 3
0066040 2 0 . 2 5 8 5 . 7 5 1 3
0066060 6 . 2 5 1 5 . 0 ) ) \r N I
0066100 L ) ) ( ( . 0 6 2 5 1 5
0066120 . 0 N I L ) ( T E X T
0066140 ( 3 2 0 . 0 . 4 8 . 0 )
0066160 ( " ( T o F i l e N e
0066200 w . L i s p ) " ) 1 . 2 5
0066220 ( L E F T B A S E L I N E )
0066240 ( \r H E L V E T I C A 1 0
0066260 ) ( ( 3 2 0 . 2 5 4 5 .
0066300 7 5 1 4 1 . 2 5 1 5 . 0
0066320 ) ) N I L ) ) ( ( . 0 5
0066340 1 5 . 0 N I L ) ( T E X
0066360 T ( 3 2 8 . 0 . 2 8 8
0066400 . 0 ) ( \r " ( F O O
0066420 5 ) " ) 1 . 0 ( L E F T
0066440 B A S E L I N E ) ( H E L
0066460 V E T I C A 1 4 ) ( ( 3 2
0066500 8 . 0 2 8 5 . 0 7 7 . 0
0066520 1 5 . 0 ) ) N I L ) )
0066540 ( ( . 0 6 2 5 1 5 . 0 \r N
0066560 I L ) ( T E X T ( 3 2 0
0066600 . 0 . 3 0 4 . 0 ) ( "
0066620 F O O F r a m e " ) 1 . 2
0066640 5 ( L E F T B A S E L I N
0066660 E ) ( H E L V E T I C A 1
0066700 0 ) ( ( 3 1 9 . 5 3 0 1
0066720 . 2 5 \r 8 6 . 2 5 1 5 .
0066740 0 ) ) N I L ) ) ( ( . 0 5
0066760 1 5 . 0 N I L ) ( T E
0067000 X T ( 3 2 8 . 0 . 2 7
0067020 2 . 0 ) ( " ( B A R
0067040 7 ) " ) 1 . 0 ( L E F T
0067060 B A S E L I N E ) \r ( H E
0067100 L V E T I C A 1 4 ) ( ( 3
0067120 2 8 . 0 2 6 9 . 0 7 5 .
0067140 0 1 5 . 0 ) ) N I L ) )
0067160 ( ( . 0 6 3 7 1 . 5 N I
0067200 L ) ( B O X ( 3 1 2 . 0
0067220 2 5 6 . 0 1 4 3 . 0
0067240 \r 6 3 . 0 ) 2 ) ) ( ( . 0
0067260 6 2 5 1 5 . 0 N I L )
0067300 ( T E X T ( 3 2 0 . 0 .
0067320 2 3 2 . 0 ) ( " X Y Z F
0067340 r a m e " ) 1 . 2 5 ( L
0067360 E F T B A S E L I N E ) (
0067400 \r H E L V E T I C A 1 0 )
0067420 ( ( 3 1 9 . 5 2 3 0 . 0
0067440 8 5 . 0 1 5 . 0 ) ) N I L
0067460 ) ) ( ( . 0 5 1 5 . 0
0067500 N I L ) ( T E X T ( 3 3
0067520 6 . 0 . 2 1 6 . 0 ) (
0067540 \r " ( F O O 6 ) " ) 1
0067560 . 0 ( L E F T B A S E L I
0067600 N E ) ( H E L V E T I C A
0067620 1 4 ) ( ( 3 3 6 . 0 2 1
0067640 3 . 0 7 2 . 0 1 5 . 0 )
0067660 ) N I L ) ) ( ( . 0 5
0067700 1 5 . 0 \r N I L ) ( T E X
0067720 T ( 3 3 6 . 0 . 2 0 0
0067740 . 0 ) ( " ( B A Z 8
0067760 8 ) " ) 1 . 0 ( L E F T
0070000 B A S E L I N E ) ( H E L
0070020 V E T I C A 1 4 ) ( ( 3 3
0070040 6 . 0 1 9 7 . 0 \r 8 3 .
0070060 0 1 5 . 0 ) ) N I L ) )
0070100 ( ( . 0 6 3 7 1 . 5 N I
0070120 L ) ( B O X ( 3 1 2 . 0
0070140 1 8 4 . 0 1 4 3 . 0
0070160 6 3 . 0 ) 2 ) ) ( ( . 0 6
0070200 2 5 1 5 . 0 N I L ) (
0070220 \r T E X T ( 3 2 0 . 0 .
0070240 1 6 0 . 0 ) ( " Z A P F
0070260 r a m e " ) 1 . 2 5 ( L
0070300 E F T B A S E L I N E ) (
0070320 H E L V E T I C A 1 0 ) (
0070340 ( 3 1 9 . 5 1 5 7 . 5 8
0070360 3 . 7 5 \r 1 5 . 0 ) ) N I
0070400 L ) ) ( ( . 0 5 1 5 . 0
0070420 N I L ) ( T E X T ( 3
0070440 3 6 . 0 . 1 4 4 . 0 )
0070460 ( " ( S U M X 1 2 ) " )
0070500 1 . 0 ( L E F T B A S
0070520 E L I N E ) ( \r H E L V E T
0070540 I C A 1 4 ) ( ( 3 3 6 . 0
0070560 1 4 1 . 0 9 8 . 0 1
0070600 5 . 0 ) ) N I L ) ) ( ( .
0070620 0 5 1 5 . 0 N I L ) (
0070640 T E X T ( 3 3 6 . 0 .
0070660 1 2 8 . 0 ) ( \r " ( I T E M
0070700 A ) " ) 1 . 0
0070720 ( L E F T B A S E L I N E )
0070740 ( H E L V E T I C A 1 4 )
0070760 ( ( 3 3 6 . 0 1 2 5 . 0
0071000 8 8 . 0 1 5 . 0 ) ) N I
0071020 L ) ) ( ( . 0 6 3 \r 7 1
0071040 . 5 N I L ) ( B O X (
0071060 3 1 2 . 0 1 1 2 . 0 1 4
0071100 3 . 0 6 3 . 0 ) 2 ) )
0071120 ( ( . 0 5 1 5 . 0 N I L )
0071140 ( T E X T ( 2 6 4 . 0
0071160 . 2 8 0 . 0 ) ( " T o p
0071200 " \r " F r a m e " ) 1 .
0071220 0 ( L E F T B A S E L I N
0071240 E ) ( H E L V E T I C A 1
0071260 4 ) ( ( 2 6 4 . 0 2 8 4
0071300 . 0 3 0 . 0 1 5 . 0 )
0071320 ( 2 6 4 . 0 2 6 9 . 0
0071340 4 7 . 0 1 5 . 0 \r ) ) N I
0071360 L ) ) ( ( . 0 5 1 5 . 0
0071400 N I L ) ( T E X T ( 1
0071420 6 . 0 . 2 8 0 . 0 ) (
0071440 " T o p " " F r a m e " )
0071460 1 . 0 ( L E F T B A S E
0071500 L I N E ) ( H E L V E T I C
0071520 A \r 1 4 ) ( ( 1 6 . 0
0071540 2 8 4 . 0 3 0 . 0 1 5 .
0071560 0 ) ( 1 6 . 0 2 6 9 . 0
0071600 4 7 . 0 1 5 . 0 ) ) N
0071620 I L ) ) ( ( . 0 5 1 5 .
0071640 0 N I L ) ( T E X T (
0071660 8 0 . 0 . \r 2 7 2 . 0 )
0071700 ( " ( B A R 7 ) " )
0071720 1 . 0 ( L E F T B A S E
0071740 L I N E ) ( H E L V E T I C
0071760 A 1 4 ) ( ( 8 0 . 0 2
0072000 6 9 . 0 7 5 . 0 1 5 . 0
0072020 ) ) N I L ) ) ( ( . 0 5 \r
0072040 1 5 . 0 N I L ) ( T E
0072060 X T ( 8 0 . 0 . 2 8 8
0072100 . 0 ) ( " ( F O O 5
0072120 ) " ) 1 . 0 ( L E F T
0072140 B A S E L I N E ) ( H E L V
0072160 E T I C A 1 4 ) ( ( 8 0 .
0072200 0 \r 2 8 5 . 0 7 7 . 0
0072220 1 5 . 0 ) ) N I L ) ) (
0072240 ( . 0 6 2 5 1 5 . 0 N I L
0072260 ) ( T E X T ( 7 2 . 0
0072300 . 3 0 4 . 0 ) ( " F O O
0072320 F r a m e " ) 1 . 2 5
0072340 ( L E F T \r B A S E L I N E )
0072360 ( H E L V E T I C A 1 0 )
0072400 ( ( 7 1 . 5 3 0 1 . 2 5
0072420 8 6 . 2 5 1 5 . 0 ) )
0072440 N I L ) ) ( ( . 0 5 1 5
0072460 . 0 N I L ) ( T E X T
0072500 ( 1 3 6 . 0 . \r 3 3 6 . 0
0072520 ) ( " S t a c k B e f o r
0072540 e S E T Q Q " ) 1 . 0
0072560 ( C E N T E R B A S E L I N E
0072600 ) ( H E L V E T I C A 1 4
0072620 ( B O L D R E G U L A R
0072640 R E G U L A R ) ) ( ( 5 6 .
0072660 0 \r 3 3 3 . 0 1 6 1 . 0
0072700 1 5 . 0 ) ) N I L ) )
0072720 ( ( . 0 6 3 7 1 . 5 N I L
0072740 ) ( B O X ( 6 4 . 0
0072760 2 5 6 . 0 1 4 3 . 0 6 3
0073000 . 0 ) 2 ) ) ( ( . 0 6 3
0073020 7 1 . 5 \r N I L ) ( B O
0073040 X ( 6 4 . 0 1 8 4 . 0
0073060 1 4 3 . 0 6 3 . 0 ) 2 )
0073100 ) ( ( . 0 6 2 5 1 5 . 0
0073120 N I L ) ( T E X T ( 7
0073140 2 . 0 . 2 3 2 . 0 ) (
0073160 " X Y Z F r a m e " ) \r 1
0073200 . 2 5 ( L E F T B A S E L
0073220 I N E ) ( H E L V E T I C A
0073240 1 0 ) ( ( 7 1 . 5 2 3
0073260 0 . 0 8 5 . 0 1 5 . 0 )
0073300 ) N I L ) ) ( ( . 0 5
0073320 1 5 . 0 N I L ) ( T E X T
0073340 ( \r 8 8 . 0 . 2 1 6 .
0073360 0 ) ( " ( F O O 6 ) "
0073400 ) 1 . 0 ( L E F T B A
0073420 S E L I N E ) ( H E L V E T
0073440 I C A 1 4 ) ( ( 8 8 . 0
0073460 2 1 3 . 0 7 2 . 0 1 5
0073500 . 0 ) ) N I L ) ) \r ( ( .
0073520 0 5 1 5 . 0 N I L ) (
0073540 T E X T ( 8 8 . 0 . 2
0073560 0 0 . 0 ) ( " ( B A Z
0073600 8 8 ) " ) 1 . 0 ( L E
0073620 F T B A S E L I N E ) ( H
0073640 E L V E T I C A 1 4 ) ( (
0073660 \r 8 8 . 0 1 9 7 . 0 8 3
0073700 . 0 1 5 . 0 ) ) N I L ) )
0073720 ( ( . 0 6 3 7 1 . 5 N
0073740 I L ) ( B O X ( 6 4 . 0
0073760 1 1 2 . 0 1 4 3 . 0
0074000 6 3 . 0 ) 2 ) ) ( ( . 0 6
0074020 2 5 \r 1 5 . 0 N I L )
0074040 ( T E X T ( 7 2 . 0 .
0074060 1 6 0 . 0 ) ( " Z A P F r
0074100 a m e " ) 1 . 2 5 ( L E
0074120 F T B A S E L I N E ) ( H
0074140 E L V E T I C A 1 0 ) ( (
0074160 7 1 . 5 1 5 7 . 5 \r 8 3
0074200 . 7 5 1 5 . 0 ) ) N I L )
0074220 ) ( ( . 0 5 1 5 . 0 N
0074240 I L ) ( T E X T ( 8 8 .
0074260 0 . 1 4 4 . 0 ) ( " (
0074300 S U M X 1 2 ) " ) 1
0074320 . 0 ( L E F T B A S E L I
0074340 N E \r ) ( H E L V E T I C A
0074360 1 4 ) ( ( 8 8 . 0 1 4
0074400 1 . 0 9 8 . 0 1 5 . 0 )
0074420 ) N I L ) ) ( ( . 0 5
0074440 1 5 . 0 N I L ) ( T E X T
0074460 ( 8 8 . 0 . 1 2 8 . 0
0074500 ) ( \r " ( I T E M
0074520 A ) " ) 1 . 0 ( L E F T
0074540 B A S E L I N E ) ( H E L
0074560 V E T I C A 1 4 ) ( ( 8 8
0074600 . 0 1 2 5 . 0 8 8 . 0
0074620 1 5 . 0 ) ) N I L ) ) (
0074640 ( . 0 6 2 5 \r 1 5 . 0 N I
0074660 L ) ( T E X T ( 7 2 . 0
0074700 . 8 8 . 0 ) ( " M O V
0074720 E F I L E F r a m e " ) 1
0074740 . 2 5 ( L E F T B A S E L
0074760 I N E ) ( H E L V E T I C A
0075000 1 0 ) ( ( 7 2 . 2 5 \r
0075020 8 5 . 7 5 1 3 6 . 2 5 1
0075040 5 . 0 ) ) N I L ) ) ( ( .
0075060 0 5 1 5 . 0 N I L ) (
0075100 T E X T ( 8 . 0 . 6 4
0075120 . 0 ) ( " B o t t o m "
0075140 " F r a m e " ) 1 . 0 (
0075160 L E F T \r B A S E L I N E )
0075200 ( H E L V E T I C A 1 4 )
0075220 ( ( 8 . 0 6 8 . 0 5 4
0075240 . 0 1 5 . 0 ) ( 8 . 0
0075260 5 3 . 0 4 7 . 0 1 5 .
0075300 0 ) ) N I L ) ) ( ( . 0 5
0075320 1 5 . 0 N I L ) \r ( T
0075340 E X T ( 7 2 . 0 . 6 4
0075360 . 0 ) ( " ( F r o m F i l e
0075400 O l d . L i s p ) " )
0075420 1 . 0 ( L E F T B A S E
0075440 L I N E ) ( H E L V E T I C
0075460 A 1 4 ) ( ( 7 2 . 0 6
0075500 1 . 0 \r 1 6 2 . 0 1 5 .
0075520 0 ) ) N I L ) ) ( ( . 0 6
0075540 2 5 1 5 . 0 N I L ) (
0075560 T E X T ( 7 2 . 0 . 4
0075600 8 . 0 ) ( " ( T o F i l e
0075620 N e w . L i s p ) " )
0075640 1 . 2 5 ( \r L E F T B A S
0075660 E L I N E ) ( H E L V E T I
0075700 C A 1 0 ) ( ( 7 2 . 2 5
0075720 4 5 . 7 5 1 4 1 . 2 5
0075740 1 5 . 0 ) ) N I L ) ) ( (
0075760 . 0 6 3 7 1 . 5 N I L )
0076000 ( B O X ( 6 4 . 0 \r 4
0076020 0 . 0 1 4 3 . 0 6 3 . 0
0076040 ) 2 ) ) ) \r ( 0 0 4 7 8 .
0076060 7 5 4 0 0 . 0 ) \r 1 . 2 5 \r 8
0076100 . 0 \r \r \r ( N I L ( ( . 0 5
0076120 1 5 . 0 N I L ) ( T E
0076140 X T ( 2 4 0 . 0 . 3 7
0076160 6 . 0 ) ( " E v a l u a t i
0076200 n g : ( S E T Q Q F O O (
0076220 A B C ) ) " " " ) 1
0076240 . 0 ( C E N T E R \r B A S
0076260 E L I N E ) ( H E L V E T I
0076300 C A 1 4 ( B O L D R E G
0076320 U L A R R E G U L A R ) )
0076340 ( ( 1 0 9 . 0 3 8 0 . 0
0076360 2 6 2 . 0 1 5 . 0 ) ( 2
0076400 4 0 . 0 3 6 5 . 0 0 . 0
0076420 \r 1 5 . 0 ) ) N I L ) )
0076440 ( ( . 0 5 1 5 . 0 N I L
0076460 ) ( T E X T ( 2 5 6 . 0
0076500 . 6 4 . 0 ) ( " B o t
0076520 t o m " " F r a m e " )
0076540 1 . 0 ( L E F T B A S E L
0076560 I N E ) ( \r H E L V E T I C
0076600 A 1 4 ) ( ( 2 5 6 . 0
0076620 6 8 . 0 5 4 . 0 1 5 . 0
0076640 ) ( 2 5 6 . 0 5 3 . 0
0076660 4 7 . 0 1 5 . 0 ) ) N I
0076700 L ) ) ( ( . 0 5 1 5 . 0
0076720 N I L ) ( T E X T \r (
0076740 3 2 0 . 0 . 6 4 . 0 )
0076760 ( " ( F r o m F i l e X
0077000 Y Z Z Y ) " ) 1 . 0 ( L
0077020 E F T B A S E L I N E ) (
0077040 H E L V E T I C A 1 4 ( M
0077060 E D I U M R E G U L A R R E
0077100 G U L A R \r ) ) ( ( 3 2 0 .
0077120 0 6 1 . 0 1 5 3 . 0
0077140 1 5 . 0 ) ) N I L ) ) ( (
0077160 . 0 6 3 7 1 . 5 N I L )
0077200 ( B O X ( 3 1 2 . 0 4
0077220 0 . 0 1 4 3 . 0 6 3 . 0
0077240 ) 2 ) ) ( ( . 0 5 \r 1
0077260 5 . 0 N I L ) ( T E X T
0077300 ( 3 8 4 . 0 . 3 3 6 . 0
0077320 ) ( " S t a c k A f t e r
0077340 S E T Q Q " ) 1 . 0 (
0077360 C E N T E R B A S E L I N E )
0077400 ( H E L V E T I C A 1 4
0077420 ( \r B O L D R E G U L A R
0077440 R E G U L A R ) ) ( ( 3 1 1
0077460 . 0 3 3 3 . 0 1 4 7 . 0
0077500 1 5 . 0 ) ) N I L ) )
0077520 ( ( . 0 6 2 5 1 5 . 0 N I
0077540 L ) ( T E X T ( 3 2 0 .
0077560 0 . 8 8 . 0 \r ) ( " M
0077600 O V E F I L E F r a m e " )
0077620 1 . 2 5 ( L E F T B A S
0077640 E L I N E ) ( H E L V E T I
0077660 C A 1 0 ) ( ( 3 2 0 . 2 5
0077700 8 5 . 7 5 1 3 6 . 2 5
0077720 1 5 . 0 ) ) N I L ) ) (
0077740 \r ( . 0 6 2 5 1 5 . 0 N I
0077760 L ) ( T E X T ( 3 2 0 .
0100000 0 . 4 8 . 0 ) ( " ( T
0100020 o F i l e N e w . L i s
0100040 p ) " ) 1 . 2 5 ( L E F
0100060 T B A S E L I N E ) ( H E
0100100 L V E T I C A \r 1 0 ) ( (
0100120 3 2 0 . 2 5 4 5 . 7 5 1
0100140 4 1 . 2 5 1 5 . 0 ) ) N I
0100160 L ) ) ( ( . 0 5 1 5 . 0
0100200 N I L ) ( T E X T ( 3
0100220 2 8 . 0 . 2 8 8 . 0 )
0100240 ( " ( F O O 5 ) " ) \r
0100260 1 . 0 ( L E F T B A S E
0100300 L I N E ) ( H E L V E T I C
0100320 A 1 4 ) ( ( 3 2 8 . 0
0100340 2 8 5 . 0 7 7 . 0 1 5 .
0100360 0 ) ) N I L ) ) ( ( . 0 6
0100400 2 5 1 5 . 0 N I L ) (
0100420 T E X T \r ( 3 2 0 . 0 .
0100440 3 0 4 . 0 ) ( " F O O F
0100460 r a m e " ) 1 . 2 5 ( L
0100500 E F T B A S E L I N E ) (
0100520 H E L V E T I C A 1 0 ) (
0100540 ( 3 1 9 . 5 3 0 1 . 2 5
0100560 8 6 . 2 5 1 5 . 0 ) \r ) N
0100600 I L ) ) ( ( . 0 5 1 5 .
0100620 0 N I L ) ( T E X T (
0100640 3 2 8 . 0 . 2 7 2 . 0 )
0100660 ( " ( B A R 7 ) " )
0100700 1 . 0 ( L E F T B A S E
0100720 L I N E ) ( H E L V E T I C
0100740 A \r 1 4 ) ( ( 3 2 8 . 0
0100760 2 6 9 . 0 7 5 . 0 1 5
0101000 . 0 ) ) N I L ) ) ( ( . 0
0101020 6 3 7 1 . 5 N I L ) (
0101040 B O X ( 3 1 2 . 0 2 5 6
0101060 . 0 1 4 3 . 0 6 3 . 0 )
0101100 2 ) ) ( ( \r . 0 6 2 5
0101120 1 5 . 0 N I L ) ( T E X T
0101140 ( 3 2 0 . 0 . 2 3 2 .
0101160 0 ) ( " X Y Z F r a m e "
0101200 ) 1 . 2 5 ( L E F T B
0101220 A S E L I N E ) ( H E L V E
0101240 T I C A 1 0 ) ( ( \r 3 1 9
0101260 . 5 2 3 0 . 0 8 5 . 0
0101300 1 5 . 0 ) ) N I L ) ) (
0101320 ( . 0 5 1 5 . 0 N I L )
0101340 ( T E X T ( 3 3 6 . 0 .
0101360 2 1 6 . 0 ) ( " ( F O O
0101400 ( A B C ) ) " ) 1
0101420 . 0 \r ( L E F T B A S E L
0101440 I N E ) ( H E L V E T I C A
0101460 1 4 ( B O L D R E G U L
0101500 A R R E G U L A R ) ) ( (
0101520 3 3 6 . 0 2 1 3 . 0 1 1
0101540 9 . 0 1 5 . 0 ) ) N I L )
0101560 ) ( ( . 0 5 \r 1 5 . 0
0101600 N I L ) ( T E X T ( 3 3
0101620 6 . 0 . 2 0 0 . 0 ) (
0101640 " ( B A Z 8 8 ) " )
0101660 1 . 0 ( L E F T B A S E L
0101700 I N E ) ( H E L V E T I C A
0101720 1 4 ) ( ( 3 3 6 . 0 \r
0101740 1 9 7 . 0 8 3 . 0 1 5 .
0101760 0 ) ) N I L ) ) ( ( . 0 6
0102000 3 7 1 . 5 N I L ) ( B
0102020 O X ( 3 1 2 . 0 1 8 4 .
0102040 0 1 4 3 . 0 6 3 . 0 )
0102060 2 ) ) ( ( . 0 6 2 5 1 5
0102100 . 0 N I L \r ) ( T E X T
0102120 ( 3 2 0 . 0 . 1 6 0 . 0
0102140 ) ( " Z A P F r a m e " )
0102160 1 . 2 5 ( L E F T B A
0102200 S E L I N E ) ( H E L V E T
0102220 I C A 1 0 ) ( ( 3 1 9 . 5
0102240 1 5 7 . 5 \r 8 3 . 7 5
0102260 1 5 . 0 ) ) N I L ) ) (
0102300 ( . 0 5 1 5 . 0 N I L )
0102320 ( T E X T ( 3 3 6 . 0 .
0102340 1 4 4 . 0 ) ( " ( S U M
0102360 X 1 2 ) " ) 1 . 0
0102400 ( L E F T B A S E L I N E )
0102420 \r ( H E L V E T I C A 1 4
0102440 ) ( ( 3 3 6 . 0 1 4 1 .
0102460 0 9 8 . 0 1 5 . 0 ) )
0102500 N I L ) ) ( ( . 0 5 1 5
0102520 . 0 N I L ) ( T E X T
0102540 ( 3 3 6 . 0 . 1 2 8 . 0 )
0102560 ( \r " ( I T E M A
0102600 ) " ) 1 . 0 ( L E F T
0102620 B A S E L I N E ) ( H E L V
0102640 E T I C A 1 4 ) ( ( 3 3 6
0102660 . 0 1 2 5 . 0 8 8 . 0
0102700 1 5 . 0 ) ) N I L ) ) (
0102720 ( . 0 6 3 \r 7 1 . 5 N I L
0102740 ) ( B O X ( 3 1 2 . 0
0102760 1 1 2 . 0 1 4 3 . 0 6
0103000 3 . 0 ) 2 ) ) ( ( . 0 5
0103020 1 5 . 0 N I L ) ( T E X
0103040 T ( 2 6 4 . 0 . 2 8 0
0103060 . 0 ) ( " T o p " \r " F
0103100 r a m e " ) 1 . 0 ( L E
0103120 F T B A S E L I N E ) ( H
0103140 E L V E T I C A 1 4 ) ( (
0103160 2 6 4 . 0 2 8 4 . 0 3 0
0103200 . 0 1 5 . 0 ) ( 2 6 4 .
0103220 0 2 6 9 . 0 4 7 . 0
0103240 1 5 . 0 \r ) ) N I L ) ) (
0103260 ( . 0 5 1 5 . 0 N I L )
0103300 ( T E X T ( 1 6 . 0 .
0103320 2 8 0 . 0 ) ( " T o p "
0103340 " F r a m e " ) 1 . 0
0103360 ( L E F T B A S E L I N E )
0103400 ( H E L V E T I C A \r 1 4 )
0103420 ( ( 1 6 . 0 2 8 4 . 0
0103440 3 0 . 0 1 5 . 0 ) ( 1
0103460 6 . 0 2 6 9 . 0 4 7 . 0
0103500 1 5 . 0 ) ) N I L ) )
0103520 ( ( . 0 5 1 5 . 0 N I L )
0103540 ( T E X T ( 8 0 . 0 .
0103560 \r 2 7 2 . 0 ) ( " ( B A
0103600 R 7 ) " ) 1 . 0
0103620 ( L E F T B A S E L I N E )
0103640 ( H E L V E T I C A 1 4 )
0103660 ( ( 8 0 . 0 2 6 9 . 0
0103700 7 5 . 0 1 5 . 0 ) ) N I L
0103720 ) ) ( ( . 0 5 \r 1 5 . 0
0103740 N I L ) ( T E X T ( 8
0103760 0 . 0 . 2 8 8 . 0 ) (
0104000 " ( F O O 5 ) " ) 1
0104020 . 0 ( L E F T B A S E L I
0104040 N E ) ( H E L V E T I C A
0104060 1 4 ) ( ( 8 0 . 0 \r 2 8
0104100 5 . 0 7 7 . 0 1 5 . 0 )
0104120 ) N I L ) ) ( ( . 0 6 2 5
0104140 1 5 . 0 N I L ) ( T E
0104160 X T ( 7 2 . 0 . 3 0 4
0104200 . 0 ) ( " F O O F r a m e
0104220 " ) 1 . 2 5 ( L E F T
0104240 \r B A S E L I N E ) ( H E L
0104260 V E T I C A 1 0 ) ( ( 7 1
0104300 . 5 3 0 1 . 2 5 8 6 . 2
0104320 5 1 5 . 0 ) ) N I L ) )
0104340 ( ( . 0 5 1 5 . 0 N I L
0104360 ) ( T E X T ( 1 3 6 . 0
0104400 . \r 3 3 6 . 0 ) ( " S
0104420 t a c k B e f o r e S E T Q
0104440 Q " ) 1 . 0 ( C E N T E
0104460 R B A S E L I N E ) ( H E
0104500 L V E T I C A 1 4 ( B O L
0104520 D R E G U L A R R E G U L A
0104540 R ) ) ( ( 5 6 . 0 \r 3 3
0104560 3 . 0 1 6 1 . 0 1 5 . 0
0104600 ) ) N I L ) ) ( ( . 0 6 3
0104620 7 1 . 5 N I L ) ( B O
0104640 X ( 6 4 . 0 2 5 6 . 0
0104660 1 4 3 . 0 6 3 . 0 ) 2 )
0104700 ) ( ( . 0 6 3 7 1 . 5
0104720 \r N I L ) ( B O X ( 6 4
0104740 . 0 1 8 4 . 0 1 4 3 . 0
0104760 6 3 . 0 ) 2 ) ) ( ( .
0105000 0 6 2 5 1 5 . 0 N I L )
0105020 ( T E X T ( 7 2 . 0 .
0105040 2 3 2 . 0 ) ( " X Y Z F
0105060 r a m e " ) \r 1 . 2 5 (
0105100 L E F T B A S E L I N E )
0105120 ( H E L V E T I C A 1 0 )
0105140 ( ( 7 1 . 5 2 3 0 . 0 8
0105160 5 . 0 1 5 . 0 ) ) N I L )
0105200 ) ( ( . 0 5 1 5 . 0 N
0105220 I L ) ( T E X T ( \r 8 8
0105240 . 0 . 2 1 6 . 0 ) ( "
0105260 ( F O O 6 ) " ) 1 . 0
0105300 ( L E F T B A S E L I N E
0105320 ) ( H E L V E T I C A 1 4
0105340 ) ( ( 8 8 . 0 2 1 3 . 0
0105360 7 2 . 0 1 5 . 0 ) ) N
0105400 I L ) ) \r ( ( . 0 5 1 5
0105420 . 0 N I L ) ( T E X T
0105440 ( 8 8 . 0 . 2 0 0 . 0 )
0105460 ( " ( B A Z 8 8 ) " )
0105500 1 . 0 ( L E F T B A S
0105520 E L I N E ) ( H E L V E T I
0105540 C A 1 4 ) ( ( \r 8 8 . 0
0105560 1 9 7 . 0 8 3 . 0 1 5
0105600 . 0 ) ) N I L ) ) ( ( . 0
0105620 6 3 7 1 . 5 N I L ) (
0105640 B O X ( 6 4 . 0 1 1 2 .
0105660 0 1 4 3 . 0 6 3 . 0 )
0105700 2 ) ) ( ( . 0 6 2 5 \r 1
0105720 5 . 0 N I L ) ( T E X T
0105740 ( 7 2 . 0 . 1 6 0 . 0 )
0105760 ( " Z A P F r a m e " )
0106000 1 . 2 5 ( L E F T B A S
0106020 E L I N E ) ( H E L V E T I
0106040 C A 1 0 ) ( ( 7 1 . 5
0106060 1 5 7 . 5 \r 8 3 . 7 5 1
0106100 5 . 0 ) ) N I L ) ) ( ( .
0106120 0 5 1 5 . 0 N I L ) (
0106140 T E X T ( 8 8 . 0 . 1
0106160 4 4 . 0 ) ( " ( S U M X
0106200 1 2 ) " ) 1 . 0 ( L
0106220 E F T B A S E L I N E \r )
0106240 ( H E L V E T I C A 1 4 )
0106260 ( ( 8 8 . 0 1 4 1 . 0 9
0106300 8 . 0 1 5 . 0 ) ) N I L )
0106320 ) ( ( . 0 5 1 5 . 0 N
0106340 I L ) ( T E X T ( 8 8 .
0106360 0 . 1 2 8 . 0 ) ( \r "
0106400 ( I T E M A ) " )
0106420 1 . 0 ( L E F T B A S E L
0106440 I N E ) ( H E L V E T I C A
0106460 1 4 ) ( ( 8 8 . 0 1 2
0106500 5 . 0 8 8 . 0 1 5 . 0 )
0106520 ) N I L ) ) ( ( . 0 6 2 5
0106540 \r 1 5 . 0 N I L ) ( T
0106560 E X T ( 7 2 . 0 . 8 8
0106600 . 0 ) ( " M O V E F I L E
0106620 F r a m e " ) 1 . 2 5 (
0106640 L E F T B A S E L I N E )
0106660 ( H E L V E T I C A 1 0 )
0106700 ( ( 7 2 . 2 5 \r 8 5 . 7 5
0106720 1 3 6 . 2 5 1 5 . 0 ) )
0106740 N I L ) ) ( ( . 0 5 1 5
0106760 . 0 N I L ) ( T E X T
0107000 ( 8 . 0 . 6 4 . 0 ) (
0107020 " B o t t o m " " F r a m e
0107040 " ) 1 . 0 ( L E F T \r
0107060 B A S E L I N E ) ( H E L V
0107100 E T I C A 1 4 ) ( ( 8 . 0
0107120 6 8 . 0 5 4 . 0 1 5
0107140 . 0 ) ( 8 . 0 5 3 . 0
0107160 4 7 . 0 1 5 . 0 ) ) N I
0107200 L ) ) ( ( . 0 6 2 5 1 5
0107220 . 0 N I L \r ) ( T E X T
0107240 ( 7 2 . 0 . 4 8 . 0 )
0107260 ( " ( T o F i l e N e
0107300 w . L i s p ) " ) 1 . 2 5
0107320 ( L E F T B A S E L I N E )
0107340 ( H E L V E T I C A 1 0 )
0107360 ( ( 7 2 . 2 5 \r 4 5 . 7
0107400 5 1 4 1 . 2 5 1 5 . 0 )
0107420 ) N I L ) ) ( ( . 0 6 3
0107440 7 1 . 5 N I L ) ( B O X
0107460 ( 6 4 . 0 4 0 . 0 1
0107500 4 3 . 0 6 3 . 0 ) 2 ) )
0107520 ( ( . 0 5 1 5 . 0 N I L
0107540 ) \r ( T E X T ( 7 2 . 0
0107560 . 6 4 . 0 ) ( " ( F r
0107600 o m F i l e X Y Z Z Y )
0107620 " ) 1 . 0 ( L E F T B
0107640 A S E L I N E ) ( H E L V E
0107660 T I C A 1 4 ( M E D I U M
0107700 R E G U L A R \r R E G U L A
0107720 R ) ) ( ( 7 2 . 0 6 1 .
0107740 0 1 5 3 . 0 1 5 . 0 ) )
0107760 N I L ) ) ) \r ( 0 0 4 7 8
0110000 . 7 5 4 0 0 . 0 ) \r 1 . 2 5 \r
0110020 8 . 0 \r \r \r ( N I L ( ( . 0
0110040 5 1 5 . 0 N I L ) ( T
0110060 E X T ( 2 4 0 . 0 . 5
0110100 1 2 . 0 ) ( " E v a l u a t
0110120 i n g : ( S E T Q X Y Z 9
0110140 9 9 5 ) " " " ) 1 . 0
0110160 ( C E N T E R \r B A S E L I
0110200 N E ) ( H E L V E T I C A
0110220 1 4 ( B O L D R E G U L A
0110240 R R E G U L A R ) ) ( ( 1
0110260 2 7 . 0 5 1 6 . 0 2 2 6
0110300 . 0 1 5 . 0 ) ( 2 4 0 .
0110320 0 5 0 1 . 0 0 . 0 \r
0110340 1 5 . 0 ) ) N I L ) ) ( (
0110360 . 0 5 1 5 . 0 N I L )
0110400 ( T E X T ( 2 5 6 . 0 .
0110420 2 0 0 . 0 ) ( " B o t t o
0110440 m " " F r a m e " ) 1 .
0110460 0 ( L E F T B A S E L I N
0110500 E ) ( \r H E L V E T I C A
0110520 1 4 ) ( ( 2 5 6 . 0 2 0
0110540 4 . 0 5 4 . 0 1 5 . 0 )
0110560 ( 2 5 6 . 0 1 8 9 . 0
0110600 4 7 . 0 1 5 . 0 ) ) N I
0110620 L ) ) ( ( . 0 5 1 5 . 0
0110640 N I L ) ( T E X T \r (
0110660 3 2 0 . 0 . 2 0 0 . 0 )
0110700 ( " ( F r o m F i l e
0110720 X Y Z Z Y ) " ) 1 . 0 (
0110740 L E F T B A S E L I N E )
0110760 ( H E L V E T I C A 1 4 (
0111000 M E D I U M R E G U L A R \r
0111020 R E G U L A R ) ) ( ( 3 2 0
0111040 . 0 1 9 7 . 0 1 5 3 . 0
0111060 1 5 . 0 ) ) N I L ) )
0111100 ( ( . 0 6 3 7 1 . 5 N I L
0111120 ) ( B O X ( 3 1 2 . 0
0111140 1 7 6 . 0 1 4 3 . 0 6
0111160 3 . 0 ) 2 \r ) ) ( ( . 0 5
0111200 1 5 . 0 N I L ) ( T E
0111220 X T ( 3 8 4 . 0 . 4 7
0111240 2 . 0 ) ( " S t a c k A f
0111260 t e r S E T Q " ) 1 . 0
0111300 ( C E N T E R B A S E L I N
0111320 E ) ( \r H E L V E T I C A
0111340 1 4 ( B O L D R E G U L A
0111360 R R E G U L A R ) ) ( ( 3
0111400 1 7 . 0 4 6 9 . 0 1 3 4
0111420 . 0 1 5 . 0 ) ) N I L ) )
0111440 ( ( . 0 6 2 5 1 5 . 0
0111460 N I L ) ( T E X T \r ( 3
0111500 2 0 . 0 . 2 2 4 . 0 )
0111520 ( " M O V E F I L E F r a m e
0111540 " ) 1 . 2 5 ( L E F T
0111560 B A S E L I N E ) ( H E L V
0111600 E T I C A 1 0 ) ( ( 3 2 0
0111620 . 2 5 2 2 1 . 7 5 1 3 6
0111640 . 2 5 \r 1 5 . 0 ) ) N I L
0111660 ) ) ( ( . 0 6 2 5 1 5 .
0111700 0 N I L ) ( T E X T (
0111720 3 2 0 . 0 . 1 8 4 . 0 )
0111740 ( " ( T o F i l e N e
0111760 w . L i s p ) " ) 1 . 2 5
0112000 ( L E F T \r B A S E L I N E
0112020 ) ( H E L V E T I C A 1 0
0112040 ) ( ( 3 2 0 . 2 5 1 8 1
0112060 . 7 5 1 4 1 . 2 5 1 5 .
0112100 0 ) ) N I L ) ) ( ( . 0 5
0112120 1 5 . 0 N I L ) ( T E
0112140 X T ( 3 2 8 . 0 . \r 4
0112160 2 4 . 0 ) ( " ( F O O
0112200 5 ) " ) 1 . 0 ( L E F
0112220 T B A S E L I N E ) ( H E
0112240 L V E T I C A 1 4 ) ( ( 3
0112260 2 8 . 0 4 2 1 . 0 7 7 .
0112300 0 1 5 . 0 ) ) N I L ) )
0112320 ( ( \r . 0 6 2 5 1 5 . 0
0112340 N I L ) ( T E X T ( 3 2
0112360 0 . 0 . 4 4 0 . 0 ) (
0112400 " F O O F r a m e " ) 1 .
0112420 2 5 ( L E F T B A S E L I
0112440 N E ) ( H E L V E T I C A
0112460 1 0 ) ( ( \r 3 1 9 . 5 4
0112500 3 7 . 2 5 8 6 . 2 5 1 5
0112520 . 0 ) ) N I L ) ) ( ( . 0
0112540 5 1 5 . 0 N I L ) ( T
0112560 E X T ( 3 2 8 . 0 . 4
0112600 0 8 . 0 ) ( " ( B A R
0112620 7 ) " ) 1 . 0 ( \r L E
0112640 F T B A S E L I N E ) ( H
0112660 E L V E T I C A 1 4 ) ( (
0112700 3 2 8 . 0 4 0 5 . 0 7 5
0112720 . 0 1 5 . 0 ) ) N I L ) )
0112740 ( ( . 0 6 3 7 1 . 5 N
0112760 I L ) ( B O X ( 3 1 2 .
0113000 0 \r 3 9 2 . 0 1 4 3 . 0
0113020 6 3 . 0 ) 2 ) ) ( ( .
0113040 0 6 2 5 1 5 . 0 N I L )
0113060 ( T E X T ( 3 2 0 . 0 .
0113100 3 6 8 . 0 ) ( " X Y Z
0113120 F r a m e " ) 1 . 2 5 (
0113140 L E F T \r B A S E L I N E )
0113160 ( H E L V E T I C A 1 0 )
0113200 ( ( 3 1 9 . 5 3 6 6 . 0
0113220 8 5 . 0 1 5 . 0 ) ) N I
0113240 L ) ) ( ( . 0 5 1 5 . 0
0113260 N I L ) ( T E X T ( 3
0113300 3 6 . 0 . \r 3 5 2 . 0 )
0113320 ( " ( F O O ( A B C
0113340 ) ) " ) 1 . 0 ( L E F T
0113360 B A S E L I N E ) ( H E L
0113400 V E T I C A 1 4 ( M E D I
0113420 U M R E G U L A R R E G U L
0113440 A R ) ) ( ( 3 3 6 . 0 \r
0113460 3 4 9 . 0 1 1 9 . 0 1 5
0113500 . 0 ) ) N I L ) ) ( ( . 0
0113520 5 1 5 . 0 N I L ) ( T
0113540 E X T ( 3 3 6 . 0 . 3
0113560 3 6 . 0 ) ( " ( B A Z
0113600 8 8 ) " ) 1 . 0 ( L E
0113620 F T \r B A S E L I N E ) (
0113640 H E L V E T I C A 1 4 ) (
0113660 ( 3 3 6 . 0 3 3 3 . 0 8
0113700 3 . 0 1 5 . 0 ) ) N I L )
0113720 ) ( ( . 0 6 3 7 1 . 5
0113740 N I L ) ( B O X ( 3 1 2
0113760 . 0 3 2 0 . 0 \r 1 4 3 .
0114000 0 6 3 . 0 ) 2 ) ) ( (
0114020 . 0 6 2 5 1 5 . 0 N I L )
0114040 ( T E X T ( 3 2 0 . 0
0114060 . 2 9 6 . 0 ) ( " Z A P
0114100 F r a m e " ) 1 . 2 5
0114120 ( L E F T B A S E L I N E )
0114140 \r ( H E L V E T I C A 1 0 )
0114160 ( ( 3 1 9 . 5 2 9 3 . 5
0114200 8 3 . 7 5 1 5 . 0 ) )
0114220 N I L ) ) ( ( . 0 5 1 5
0114240 . 0 N I L ) ( T E X T
0114260 ( 3 3 6 . 0 . 2 8 0 . 0 )
0114300 ( \r " ( S U M X 1 2
0114320 ) " ) 1 . 0 ( L E F T
0114340 B A S E L I N E ) ( H E L V
0114360 E T I C A 1 4 ) ( ( 3 3 6
0114400 . 0 2 7 7 . 0 9 8 . 0
0114420 1 5 . 0 ) ) N I L ) ) (
0114440 ( . 0 5 1 5 . 0 \r N I L )
0114460 ( T E X T ( 3 3 6 . 0
0114500 . 2 6 4 . 0 ) ( " ( I T
0114520 E M A ) " ) 1 . 0
0114540 ( L E F T B A S E L I N E
0114560 ) ( H E L V E T I C A 1 4
0114600 ) ( ( 3 3 6 . 0 2 6 1 .
0114620 0 \r 8 8 . 0 1 5 . 0 ) )
0114640 N I L ) ) ( ( . 0 6 3
0114660 7 1 . 5 N I L ) ( B O X
0114700 ( 3 1 2 . 0 2 4 8 . 0
0114720 1 4 3 . 0 6 3 . 0 ) 2 ) )
0114740 ( ( . 0 5 1 5 . 0 N I
0114760 L ) ( \r T E X T ( 2 6 4
0115000 . 0 . 4 1 6 . 0 ) ( "
0115020 T o p " " F r a m e " )
0115040 1 . 0 ( L E F T B A S E L
0115060 I N E ) ( H E L V E T I C A
0115100 1 4 ) ( ( 2 6 4 . 0 4
0115120 2 0 . 0 3 0 . 0 \r 1 5 .
0115140 0 ) ( 2 6 4 . 0 4 0 5 .
0115160 0 4 7 . 0 1 5 . 0 ) )
0115200 N I L ) ) ( ( . 0 5 1 5
0115220 . 0 N I L ) ( T E X T
0115240 ( 1 6 . 0 . 4 1 6 . 0 )
0115260 ( " T o p " " F r a m e "
0115300 ) \r 1 . 0 ( L E F T B
0115320 A S E L I N E ) ( H E L V E
0115340 T I C A 1 4 ) ( ( 1 6 . 0
0115360 4 2 0 . 0 3 0 . 0 1
0115400 5 . 0 ) ( 1 6 . 0 4 0 5
0115420 . 0 4 7 . 0 1 5 . 0 ) )
0115440 N I L ) ) ( ( \r . 0 5
0115460 1 5 . 0 N I L ) ( T E X T
0115500 ( 8 0 . 0 . 4 0 8 . 0
0115520 ) ( " ( B A R 7 ) "
0115540 ) 1 . 0 ( L E F T B A
0115560 S E L I N E ) ( H E L V E T
0115600 I C A 1 4 ) ( ( 8 0 . 0
0115620 \r 4 0 5 . 0 7 5 . 0 1
0115640 5 . 0 ) ) N I L ) ) ( ( .
0115660 0 5 1 5 . 0 N I L ) (
0115700 T E X T ( 8 0 . 0 . 4
0115720 2 4 . 0 ) ( " ( F O O
0115740 5 ) " ) 1 . 0 ( L E F
0115760 T \r B A S E L I N E ) ( H
0116000 E L V E T I C A 1 4 ) ( (
0116020 8 0 . 0 4 2 1 . 0 7 7 .
0116040 0 1 5 . 0 ) ) N I L ) )
0116060 ( ( . 0 6 2 5 1 5 . 0 N
0116100 I L ) ( T E X T ( 7 2 .
0116120 0 . \r 4 4 0 . 0 ) ( "
0116140 F O O F r a m e " ) 1 . 2
0116160 5 ( L E F T B A S E L I N
0116200 E ) ( H E L V E T I C A 1
0116220 0 ) ( ( 7 1 . 5 4 3 7 .
0116240 2 5 8 6 . 2 5 1 5 . 0 )
0116260 ) N I L ) ) ( ( \r . 0 5
0116300 1 5 . 0 N I L ) ( T E X
0116320 T ( 1 3 6 . 0 . 4 7 2
0116340 . 0 ) ( " S t a c k B e f
0116360 o r e S E T Q " ) 1 . 0
0116400 ( C E N T E R B A S E L I N
0116420 E ) ( H E L V E T I C A 1
0116440 4 \r ( B O L D R E G U L A
0116460 R R E G U L A R ) ) ( ( 6
0116500 2 . 0 4 6 9 . 0 1 4 8 .
0116520 0 1 5 . 0 ) ) N I L ) )
0116540 ( ( . 0 6 3 7 1 . 5 N I
0116560 L ) ( B O X ( 6 4 . 0
0116600 3 9 2 . 0 \r 1 4 3 . 0
0116620 6 3 . 0 ) 2 ) ) ( ( . 0 6
0116640 3 7 1 . 5 N I L ) ( B
0116660 O X ( 6 4 . 0 3 2 0 . 0
0116700 1 4 3 . 0 6 3 . 0 ) 2
0116720 ) ) ( ( . 0 6 2 5 1 5 .
0116740 0 N I L ) ( T E X T \r
0116760 ( 7 2 . 0 . 3 6 8 . 0 )
0117000 ( " X Y Z F r a m e " )
0117020 1 . 2 5 ( L E F T B A S E
0117040 L I N E ) ( H E L V E T I C
0117060 A 1 0 ) ( ( 7 1 . 5 3
0117100 6 6 . 0 8 5 . 0 1 5 . 0
0117120 ) ) N I L \r ) ) ( ( . 0 5
0117140 1 5 . 0 N I L ) ( T E
0117160 X T ( 8 8 . 0 . 3 3 6
0117200 . 0 ) ( " ( B A Z 8
0117220 8 ) " ) 1 . 0 ( L E F T
0117240 B A S E L I N E ) ( H E L
0117260 V E T I C A 1 4 ) ( \r ( 8
0117300 8 . 0 3 3 3 . 0 8 3 . 0
0117320 1 5 . 0 ) ) N I L ) )
0117340 ( ( . 0 6 3 7 1 . 5 N I L
0117360 ) ( B O X ( 6 4 . 0
0117400 2 4 8 . 0 1 4 3 . 0 6 3
0117420 . 0 ) 2 ) ) ( ( . 0 6 2 5
0117440 \r 1 5 . 0 N I L ) ( T
0117460 E X T ( 7 2 . 0 . 2 9
0117500 6 . 0 ) ( " Z A P F r a m
0117520 e " ) 1 . 2 5 ( L E F T
0117540 B A S E L I N E ) ( H E L
0117560 V E T I C A 1 0 ) ( ( 7 1
0117600 . 5 2 9 3 . 5 \r 8 3 . 7
0117620 5 1 5 . 0 ) ) N I L ) )
0117640 ( ( . 0 5 1 5 . 0 N I L
0117660 ) ( T E X T ( 8 8 . 0
0117700 . 2 8 0 . 0 ) ( " ( S U
0117720 M X 1 2 ) " ) 1 . 0
0117740 ( L E F T B A S E L I N E
0117760 \r ) ( H E L V E T I C A 1
0120000 4 ) ( ( 8 8 . 0 2 7 7 .
0120020 0 9 8 . 0 1 5 . 0 ) )
0120040 N I L ) ) ( ( . 0 5 1 5
0120060 . 0 N I L ) ( T E X T
0120100 ( 8 8 . 0 . 2 6 4 . 0 )
0120120 ( \r " ( I T E M A )
0120140 " ) 1 . 0 ( L E F T B
0120160 A S E L I N E ) ( H E L V E
0120200 T I C A 1 4 ) ( ( 8 8 . 0
0120220 2 6 1 . 0 8 8 . 0 1
0120240 5 . 0 ) ) N I L ) ) ( ( .
0120260 0 6 2 5 \r 1 5 . 0 N I L )
0120300 ( T E X T ( 7 2 . 0 .
0120320 2 2 4 . 0 ) ( " M O V E
0120340 F I L E F r a m e " ) 1 .
0120360 2 5 ( L E F T B A S E L I
0120400 N E ) ( H E L V E T I C A
0120420 1 0 ) ( ( 7 2 . 2 5 \r 2
0120440 2 1 . 7 5 1 3 6 . 2 5 1
0120460 5 . 0 ) ) N I L ) ) ( ( .
0120500 0 5 1 5 . 0 N I L ) (
0120520 T E X T ( 8 . 0 . 2 0
0120540 0 . 0 ) ( " B o t t o m "
0120560 " F r a m e " ) 1 . 0
0120600 ( \r L E F T B A S E L I N E )
0120620 ( H E L V E T I C A 1 4 )
0120640 ( ( 8 . 0 2 0 4 . 0
0120660 5 4 . 0 1 5 . 0 ) ( 8 .
0120700 0 1 8 9 . 0 4 7 . 0
0120720 1 5 . 0 ) ) N I L ) ) ( (
0120740 . 0 6 2 5 \r 1 5 . 0 N I L
0120760 ) ( T E X T ( 7 2 . 0
0121000 . 1 8 4 . 0 ) ( " ( T o
0121020 F i l e N e w . L i s p
0121040 ) " ) 1 . 2 5 ( L E F T
0121060 B A S E L I N E ) ( H E L
0121100 V E T I C A 1 0 ) ( ( \r 7
0121120 2 . 2 5 1 8 1 . 7 5 1 4
0121140 1 . 2 5 1 5 . 0 ) ) N I L
0121160 ) ) ( ( . 0 6 3 7 1 . 5
0121200 N I L ) ( B O X ( 6 4
0121220 . 0 1 7 6 . 0 1 4 3 . 0
0121240 6 3 . 0 ) 2 ) ) ( ( .
0121260 0 5 \r 1 5 . 0 N I L )
0121300 ( T E X T ( 7 2 . 0 .
0121320 2 0 0 . 0 ) ( " ( F r o m F
0121340 i l e X Y Z Z Y ) " )
0121360 1 . 0 ( L E F T B A S E
0121400 L I N E ) ( H E L V E T I C
0121420 A 1 4 ( \r M E D I U M R
0121440 E G U L A R R E G U L A R ) )
0121460 ( ( 7 2 . 0 1 9 7 . 0
0121500 1 5 3 . 0 1 5 . 0 ) ) N
0121520 I L ) ) ( ( . 0 6 2 5 1
0121540 5 . 0 N I L ) ( T E X T
0121560 ( 1 3 6 . 0 . \r 1 1 2 .
0121600 0 ) ( " A t o m s " " B
0121620 e f o r e S E T Q " ) 1 .
0121640 2 5 ( C E N T E R B A S E
0121660 L I N E ) ( H E L V E T I C
0121700 A 1 0 ( B O L D R E G U
0121720 L A R R E G U L A R ) ) (
0121740 ( \r 1 1 2 . 5 1 1 6 . 0
0121760 4 7 . 5 1 6 . 2 5 ) ( 9
0122000 0 . 0 9 9 . 7 5 9 2 . 5
0122020 1 6 . 2 5 ) ) N I L ) )
0122040 ( ( . 0 6 2 5 1 5 . 0 N
0122060 I L ) ( T E X T ( 8 8 .
0122100 0 . \r 4 8 . 0 ) ( " X
0122120 Y Z " ) 1 . 2 5 ( C E N
0122140 T E R B A S E L I N E ) (
0122160 H E L V E T I C A 1 2 ( B
0122200 O L D R E G U L A R R E G U
0122220 L A R ) ) ( ( 7 1 . 7 5
0122240 4 4 . 7 5 3 3 . 7 5 \r 1
0122260 7 . 5 ) ) N I L ) ) ( ( 0
0122300 . 0 2 4 . 0 N I L ) (
0122320 W I R E ( ( 1 1 2 . 0 .
0122340 5 6 . 0 ) ( 1 6 0 . 0 .
0122360 5 6 . 0 ) ) 2 ( N I L
0122400 ( L I N E 3 0 . 0 1
0122420 5 . 0 \r ) ) N I L ) ) ( (
0122440 . 0 6 2 5 1 5 . 0 N I L )
0122460 ( T E X T ( 1 8 4 . 0
0122500 . 4 8 . 0 ) ( " 6 7 8 "
0122520 ) 1 . 2 5 ( C E N T E R
0122540 B A S E L I N E ) ( H E L
0122560 V E T I C A 1 2 \r ( B O L
0122600 D R E G U L A R R E G U L A
0122620 R ) ) ( ( 1 6 7 . 2 5 4
0122640 4 . 7 5 3 3 . 7 5 1 7 .
0122660 5 ) ) N I L ) ) ( ( . 0 5
0122700 1 5 . 0 N I L ) ( T E
0122720 X T ( 8 8 . 0 . \r 3 5
0122740 2 . 0 ) ( " ( F O O (
0122760 A B C ) ) " ) 1 . 0
0123000 ( L E F T B A S E L I N E )
0123020 ( H E L V E T I C A 1 4
0123040 ( M E D I U M R E G U L A R
0123060 R E G U L A R ) ) ( ( 8 8 .
0123100 0 \r 3 4 9 . 0 1 1 9 . 0
0123120 1 5 . 0 ) ) N I L ) )
0123140 ( ( . 0 6 2 5 1 5 . 0 N I
0123160 L ) ( T E X T ( 3 8 4 .
0123200 0 . 1 2 0 . 0 ) ( " A
0123220 t o m s " " A f t e r S E
0123240 T Q " ) 1 . 2 5 \r ( C E
0123260 N T E R B A S E L I N E )
0123300 ( H E L V E T I C A 1 0 (
0123320 B O L D R E G U L A R R E G
0123340 U L A R ) ) ( ( 3 6 0 . 0
0123360 1 2 3 . 5 4 7 . 5 1 6
0123400 . 2 5 ) ( 3 4 2 . 5 \r 1
0123420 0 7 . 2 5 8 3 . 7 5 1 6
0123440 . 2 5 ) ) N I L ) ) ( ( 0
0123460 . 0 2 4 . 0 N I L ) (
0123500 W I R E ( ( 3 6 0 . 0 .
0123520 6 4 . 0 ) ( 4 0 8 . 0 .
0123540 6 4 . 0 ) ) 2 ( N I L
0123560 ( \r L I N E 3 0 . 0
0123600 1 5 . 0 ) ) N I L ) ) ( (
0123620 . 0 6 2 5 1 5 . 0 N I L )
0123640 ( T E X T ( 3 3 6 . 0
0123660 . 5 6 . 0 ) ( " X Y Z "
0123700 ) 1 . 2 5 ( C E N T E R
0123720 B A S E L I N E ) \r ( H E
0123740 L V E T I C A 1 2 ( B O L
0123760 D R E G U L A R R E G U L A
0124000 R ) ) ( ( 3 1 9 . 7 5 5
0124020 2 . 7 5 3 3 . 7 5 1 7 .
0124040 5 ) ) N I L ) ) ( ( . 0 6
0124060 2 5 1 5 . 0 N I L ) (
0124100 \r T E X T ( 4 3 2 . 0 .
0124120 5 6 . 0 ) ( " 9 9 9 5 " )
0124140 1 . 2 5 ( C E N T E R
0124160 B A S E L I N E ) ( H E L V
0124200 E T I C A 1 2 ( B O L D
0124220 R E G U L A R R E G U L A R )
0124240 ) ( ( \r 4 1 0 . 0 5 2 .
0124260 2 5 4 5 . 0 1 7 . 5 ) )
0124300 N I L ) ) ) \r ( 0 0 5 0 5
0124320 . 0 5 4 8 . 5 ) \r 1 . 2 5 \r 8
0124340 . 0 \r \r F u n c t i o n D e f
0124360 i n i t i o n L o o k u p \r T
0124400 h e r e i s n o s u c h
0124420 t h i n g a s b i n d i n g
0124440 a f u n c t i o n n a m e
0124460 i n I n t e r l i s p . \r A
0124500 l l f u n c t i o n n a m e
0124520 s i n I n t e r l i s p r
0124540 e f e r t o t h e f u n c
0124560 t i o n d e f i n i t i o n
0124600 a t t a c h e d t o t h e
0124620 a t o m o f t h e s a m e
0124640 n a m e . \r T h e f u n
0124660 c t i o n G e t F u n c t i o
0124700 n D e f n i n t h e d e f
0124720 i n i t i o n o f A P P L Y
0124740 s i m p l y a c c e s s e s
0124760 t h e f u n c t i o n d e
0125000 f i n i t i o n f o r t h e
0125020 n a m e d a t o m . \r I n
0125040 p a r t i c u l a r , i t d
0125060 o e s n o t s e a r c h t
0125100 h e s t a c k f o r n e w
0125120 b i n d i n g s o f t h e
0125140 f u n c t i o n n a m e . \r
0125160 N o t e : T h i s i s d i
0125200 f f e r e n t i n o t h e r
0125220 d i a l e c t s o f L i s
0125240 p . S o m e L i s p s a
0125260 l l o w b i n d i n g o f
0125300 f u n c t i o n n a m e s a
0125320 s w e l l a s v a r i a b
0125340 l e s n a m e s o n t h e
0125360 s t a c k . \r V a r i a b l e
0125400 R e f e r e n c e i n P r
0125420 a c t i c e : L E T a n d
0125440 P R O G a r e u s e d t
0125460 o b i n d v a r i a b l e s
0125500 \r A v o i d F r e e V a r i
0125520 a b l e s ! \r I n p r a c t i
0125540 c e t h e r u l e i s :
0125560 B o u n d v a r i a b l e s
0125600 a r e g o o d , f r e e v
0125620 a r i a b l e s a r e b a d
0125640 . \r T h e e f f e c t o f
0125660 e v a l u a t i n g a f u n
0125700 c t i o n w i t h b o u n d
0125720 v a r i a b l e s i s a l
0125740 w a y s p r e d i c t a b l e
0125760 . \r I n c o n t r a s t , e
0126000 v a l u a t i n g a f u n c
0126020 t i o n t h a t u s e s f
0126040 r e e v a r i a b l e s c a
0126060 n l e a d t o d i f f e r
0126100 i n g r e s u l t s , d e p
0126120 e n d i n g o n t h e c o
0126140 n t e x t o f t h e e v a
0126160 l u a t i o n . \r E x a m p l e
0126200 s : \r I n t e r f e r e n c e
0126220 b e t w e e n v a r i a b l e
0126240 n a m e s \r 1 _ ( D E F I N
0126260 E Q \r ( C i r c u m f e r e n
0126300 c e ( L A M B D A ( R a d i
0126320 u s ) \r ( T I M E S 2 P I
0126340 R a d i u s ) ) ) ) \r ( C i r c
0126360 u m f e r e n c e ) \r 2 _ ( S
0126400 E T Q P I 3 . 1 4 1 6 ) \r 3
0126420 . 1 4 1 6 \r 3 _ ( D E F I N E
0126440 Q \r ( M a k e P r o g r a m m e
0126460 r s I n t e r f a c e ( L A M
0126500 B D A N I L \r ( S E T Q P I
0126520 ( C R E A T E P r o g I n t
0126540 . . . . ) ) ) ) ) \r ( M a k e
0126560 P r o g r a m m e r s I n t e r
0126600 f a c e ) \r 4 _ ( M a k e P r
0126620 o g r a m m e r s I n t e r f a
0126640 c e ) \r { P r o g I n t } # 3 2
0126660 , 3 3 4 1 2 \r 5 _ ( C i r c u
0126700 m f e r e n c e 5 ) \r N O N -
0126720 N U M B E R I C A R G \r { P r
0126740 o g I n t } # 3 2 , 3 3 4 1 2 \r
0126760 I n a d v e r t a n t l y a l
0127000 t e r i n g s y s t e m p a
0127020 r a m e t e r s \r 6 _ ( D E F
0127040 I N E Q \r ( F o n t N a m e T
0127060 o F o n t N u m b e r ( L A M
0127100 B D A ( F o n t N a m e ) \r (
0127120 S E T Q D E F A U L T F O N T
0127140 1 ) \r ( F O R N a m e i n
0127160 ' ( H e l v e t i c a T i m
0127200 e s R o m a n G a c h a M o
0127220 d e r n ) \r A S N u m b e r
0127240 F R O M 1 \r W H E N ( E Q
0127260 F o n t N a m e N a m e ) \r D
0127300 O ( S E T Q D E F A U L T F
0127320 O N T N u m b e r ) ) \r D E F
0127340 A U L T F O N T ) \r ( F o n t N
0127360 a m e T o F o n t N u m b e r
0127400 ) \r 7 _ ( F o n t N a m e T o
0127420 F o n t N u m b e r ' G a c h
0127440 a ) \r 3 \r 8 _ ( T E D I T "
0127460 X X X X X X " ) \r I L L E G A L
0127500 A R G \r { F O N T C L A S S }
0127520 # 7 1 , 1 0 5 0 0 \r ( b e c a u
0127540 s e D E F A U L T F O N T h
0127560 a s b e e n r e s e t t o
0127600 a n i l l e g a l v a l u
0127620 e ) \r T h e F u n a r g P r
0127640 o b l e m \r 9 _ ( D E F I N E
0127660 Q \r ( S u m ( L A M B D A
0127700 ( L i s t T r a n s f o r m )
0127720 \r ( F O R N I N L i s t
0127740 S U M ( A P P L Y * T r a n
0127760 s f o r m N ) ) ) ) ) \r ( S u
0130000 m ) \r 1 0 _ ( D E F I N E Q \r
0130020 ( S u m S q u a r e s # 1 ( L
0130040 A M B D A ( L i s t ) \r ( S u
0130060 m L i s t ( F U N C T I O N
0130100 S Q U A R E ) ) ) ) \r ( S u m
0130120 S q u a r e s # 2 ( L A M B D
0130140 A ( L i s t ) \r ( S E T Q N
0130160 2 ) \r ( S u m L i s t ( F
0130200 U N C T I O N N t h P o w e r
0130220 ) ) ) ) \r ( S u m C u b e s (
0130240 L A M B D A ( L i s t ) \r ( S
0130260 E T Q N 3 ) \r ( S u m L i
0130300 s t ( F U N C T I O N N t h
0130320 P o w e r ) ) ) ) \r ( N t h P o
0130340 w e r ( L A M B D A ( X )
0130360 \r ( E X P T X N ) ) ) ) \r (
0130400 S u m S q u a r e s # 1 S u m
0130420 S q u a r e s # 2 S u m C u b
0130440 e s N t h P o w e r ) \r 1 1 _
0130460 ( S u m S q u a r e s # 1 (
0130500 L I S T 1 2 3 4 5 ) )
0130520 \r 5 5 \r 1 2 _ ( S u m S q u a
0130540 r e s # 2 ( L I S T 1 2
0130560 3 4 5 ) ) \r 3 4 1 3 \r 1 3 _
0130600 ( S u m C u b e s ( L I S T
0130620 1 2 3 4 5 ) ) \r 3 4 1
0130640 3 \r T h e e x a m p l e s i
0130660 l l u s t r a t e t h e p r
0130700 o b l e m s i n v o l v e d
0130720 i n u s i n g f r e e v a
0130740 r i a b l e s i n d e f i n
0130760 i n g f u n c t i o n s .
0131000 B e c a u s e o f t h e s
0131020 e p r o b l e m s , i t i
0131040 s b e s t t o a v o i d
0131060 u s i n g f r e e v a r i a
0131100 b l e s . \r T h e L E T S p
0131120 e c i a l F o r m \r C o n s i
0131140 d e r t h e f o l l o w i n
0131160 g f u n c t i o n t h a t
0131200 c o m p u t e s t h e a v e
0131220 r a g e o f a l l t h e
0131240 n u m b e r s i n a l i s
0131260 t o f n u m b e r s a n d
0131300 l i t a t o m s : \r ( D E F I
0131320 N E Q \r ( A v e r a g e O f N
0131340 u m b e r s ( L i s t ) \r ( S
0131360 E T Q S u m 0 . 0 ) \r ( S E
0131400 T Q N 0 ) \r ( F O R I t e
0131420 m I N L i s t \r W H E N (
0131440 N U M B E R P I t e m ) \r D O
0131460 \r ( S E T Q S u m ( P L U S
0131500 S u m I t e m ) ) \r ( S E T
0131520 Q N ( A D D 1 N ) ) ) \r (
0131540 C O N D \r ( ( N O T ( Z E R O
0131560 P N ) ) \r ( Q U O T I E N T
0131600 S u m N ) ) \r ( T N I L ) )
0131620 ) ) ) \r I t w o u l d n o t
0131640 b e p o s s i b l e t o
0131660 w r i t e t h i s f u n c t
0131700 i o n w i t h o u t t h e
0131720 S u m a n d N v a r i a b
0131740 l e s , s i n c e t h e y
0131760 a r e u s e d t o s t o r
0132000 e i n t e r m e d i a t e r
0132020 e s u l t s a s t h e f u
0132040 n c t i o n i t e r a t e s
0132060 t h r o u g h t h e l i s t
0132100 . \r T h e r e i s n o r e
0132120 a s o n , h o w e v e r , f
0132140 o r S u m a n d N t o
0132160 b e f r e e v a r i a b l e
0132200 s . T h e i r f u n c t i
0132220 o n s h o u l d b e l i m
0132240 i t e d t o t h e s c o p
0132260 e o f t h e A v e r a g e
0132300 O f N u m b e r s f u n c t i
0132320 o n b o d y . \r O n t h e
0132340 o t h e r h a n d , S u m
0132360 a n d N a r e n o t a
0132400 p a r a m e t e r s e i t h e
0132420 r a n d t h e r e f o r e
0132440 s h o u l d n o t b e m a
0132460 d e i n t o a b o u n d
0132500 v a r i a b l e s b y p l a
0132520 c i n g t h e m i n t h e
0132540 p a r a m e t e r l i s t
0132560 o f t h e f u n c t i o n .
0132600 \r T h e L E T s p e c i a l
0132620 f o r m p r o v i d e s t
0132640 h e m e a n s t o b i n d
0132660 v a r i a b l e s w i t h o
0132700 u t m a k i n g t h e m p
0132720 a r t o f t h e p a r a m
0132740 e t e r l i s t . \r L E T h
0132760 a s t h e f o r m a t : \r (
0133000 L E T B i n d i n g L i s t
0133020 S - E x p r e s s i o n 1 S -
0133040 E x p r e s s i o n 2 . . . )
0133060 \r B i n d i n g L i s t i s
0133100 a l i s t o f v a r i a b
0133120 l e - v a l u e p a i r s ,
0133140 i . e . , ( V a r i a b l e N
0133160 a m e I n i t i a l V a l u e
0133200 ) . A v a r i a b l e c
0133220 a n a l s o b e e x p r e
0133240 s s e d b y j u s t i t s
0133260 V a r i a b l e N a m e , w
0133300 h i c h i s e q u i v a l e
0133320 n t t o t h e l i s t (
0133340 V a r i a b l e N a m e N I L
0133360 ) . \r T h e S - E x p r e s s
0133400 i o n i a r e a r b i t r a
0133420 r y L i s p S - e x p r e s
0133440 s i o n s t o b e e v a l
0133460 u a t e d . \r L E T w o r k s
0133500 a s f o l l o w s : \r T h e
0133520 v a r i a b l e s s p e c i
0133540 f i e d i n t h e b i n d
0133560 i n g l i s t a r e b o u
0133600 n d o n t h e s t a c k
0133620 a n d s e t t o t h e s
0133640 p e c i f i e d i n i t i a l
0133660 v a l u e s . \r T h e S - e
0133700 x p r e s s i o n s a r e e
0133720 v a l u a t e d i n o r d e
0133740 r . \r T h e L E T f o r m
0133760 r e t u r n s t h e v a l u
0134000 e o f t h e l a s t S -
0134020 e x p r e s s i o n , u n b i
0134040 n d i n g t h e v a r i a b
0134060 l e s i n t h e b i n d i
0134100 n g l i s t b e f o r e i
0134120 t e x i t s . \r V a r i a b l
0134140 e s i n t h e b i n d i n
0134160 g l i s t a r e b o u n d
0134200 " i n p a r a l l e l " a
0134220 n d t h u s t h e o r d e
0134240 r o f m e n t i o n i n
0134260 t h e b i n d i n g l i s t
0134300 i s u n i m p o r t a n t .
0134320 \r I f t h e b i n d i n g
0134340 l i s t i s ( ( X 5 5 )
0134360 ( Y X ) ) , t h e v a l u
0134400 e o f X w i t h i n t h
0134420 e L E T w i l l b e 5 5
0134440 a n d t h e v a l u e o
0134460 f Y w i l l b e w h a t
0134500 e v e r w a s t h e v a l
0134520 u e o f X b e f o r e t
0134540 h e L E T ( a n d n o t
0134560 5 5 a s m i g h t b e e
0134600 x p e c t e d ) . \r T h e s a
0134620 m e e f f e c t c o u l d
0134640 h a v e b e e n a c h i e v
0134660 e d b y t h e b i n d i n
0134700 g l i s t ( ( Y X ) ( X
0134720 5 5 ) ) . \r T h e p r o p e
0134740 r d e f i n t i o n f o r
0134760 A v e r a g e O f L i s t w o
0135000 u l d t h u s b e : \r ( D E
0135020 F I N E Q \r ( A v e r a g e O
0135040 f L i s t ( L i s t ) \r ( L E
0135060 T ( ( S u m 0 . 0 ) ( N 0
0135100 ) ) \r ( F O R I t e m I N
0135120 L i s t \r W H E N ( N U M B E
0135140 R P I t e m ) \r D O \r ( S E T
0135160 Q S u m ( P L U S S u m
0135200 I t e m ) ) \r ( S E T Q N (
0135220 A D D 1 N ) ) ) \r ( C O N D \r
0135240 ( ( N O T ( Z E R O P N ) )
0135260 \r ( Q U O T I E N T S u m N
0135300 ) ) \r ( T N I L ) ) ) ) ) \r I
0135320 n t h i s d e f i n i t i o
0135340 n , L i s t , S u m , a n
0135360 d N a r e a l l b o u n
0135400 d v a r i a b l e s . \r W h e
0135420 n t h e f u n c t i o n i
0135440 s e n e t e r e d , L i s t
0135460 i s b o u n d s i n c e
0135500 i t i s i n t h e p a r
0135520 a m e t e r l i s t . \r W h e
0135540 n t h e L E T i s e n t
0135560 e r e d , S u m a n d N
0135600 a r e b o u n d o n t h e
0135620 s t a c k a n d s e t t
0135640 o t h e i r i n i t i a l
0135660 v a l u e s o f z e r o . \r
0135700 W h e n t h e L E T i s
0135720 e x i t e d , S u m a n d
0135740 N a r e u n b o u n d . \r W
0135760 h e n t h e f u n c t i o n
0136000 i s e x i t e d , L i s t
0136020 i s u n b o u n d . \r A s
0136040 a s e c o n d e x a m p l e
0136060 , c o n s i d e r a f u n
0136100 c t i o n ( s l i g h t l y
0136120 m o d i f i e d ) f r o m t
0136140 h e s o l u t i o n t o H
0136160 o m e w o r k # 3 2 : \r ( D E F
0136200 I N E Q \r ( L C . P r i n t Q u
0136220 e u e \r ( L A M B D A
0136240 ( Q ) \r ( C O N D \r ( ( N O T
0136260 ( L C . Q u e u e E m p t y P
0136300 Q ) ) \r ( S E T Q N e
0136320 x t P t r ( f e t c h ( L C
0136340 . Q u e u e H e a d ) o f
0136360 Q ) ) \r ( P R I N T (
0136400 C A R N e x t P t r ) ) \r
0136420 ( u n t i l ( E Q \r
0136440 ( S E T Q N e x t P t r ( C
0136460 D R N e x t P t r ) ) \r
0136500 ( f e t c h ( L C . Q u e u e
0136520 T a i l ) o f Q ) \r
0136540 D O ( P R I N 1 (
0136560 C A R N e x t P t r ) ) ) \r
0136600 ( T E R P R I ) ) ) ) \r N o
0136620 t e t h e u n n e c e s s a
0136640 r y u s e o f N e x t P t
0136660 r a s f r e e v a r i a b
0136700 l e . \r T h e p r o p e r d
0136720 e f i n t i o n f o r L C .
0136740 P r i n t Q u e u e i s : \r (
0136760 D E F I N E Q \r ( L C . P r i n
0137000 t Q u e u e \r ( L A M B
0137020 D A ( Q ) \r ( L E T ( N e x
0137040 t P t r ) \r ( C O N D \r
0137060 ( ( N O T ( L C . Q u e u e E
0137100 m p t y P Q ) ) \r ( S
0137120 E T Q N e x t P t r ( f e t
0137140 c h ( L C . Q u e u e H e a
0137160 d ) o f Q ) ) \r ( P
0137200 R I N T ( C A R N e x t P t
0137220 r ) ) \r ( u n t i l (
0137240 E Q \r ( S E T Q N e x t
0137260 P t r ( C D R N e x t P t r
0137300 ) ) \r ( f e t c h ( L C
0137320 . Q u e u e T a i l ) o f
0137340 Q ) \r D O ( P
0137360 R I N 1 ( C A R N e x t P t
0137400 r ) ) ) \r ( T E R P R I )
0137420 ) ) ) ) \r I n t h i s d e f
0137440 i n i t i o n , N e x t P t r
0137460 i s b o u n d w i t h i n
0137500 t h e c o n t e x t o f
0137520 t h e L E T s t a t e m e n
0137540 t ( a n d h e n c e w i t
0137560 h i n t h e e n t i r e f
0137600 u n c t i o n b o d y ) . \r T
0137620 h e P R O G S p e c i a l
0137640 F o r m \r T h e P R O G s p
0137660 e c i a l f o r m i s v e
0137700 r y m u c h l i k e t h e
0137720 L E T s p e c i a l f o r
0137740 m , b u t i t a l l o w s
0137760 a l i t t l e m o r e f
0140000 l e x i b i l i t y i n h o
0140020 w a n d w h e n t h e s
0140040 p e c i a l f o r m i s e
0140060 x i t e d . \r P R O G h a s
0140100 t h e f o r m a t : \r ( P R O
0140120 G B i n d i n g L i s t S -
0140140 E x p r e s s i o n 1 S - E x
0140160 p r e s s i o n 2 . . . ) \r B
0140200 i n d i n g L i s t i s a s
0140220 i n t h e L E T s p e c
0140240 i a l f o r m . \r T h e S -
0140260 E x p r e s s i o n i a r e
0140300 a r b i t r a r y L i s p S
0140320 - e x p r e s s i o n s t o
0140340 b e e v a l u a t e d . O
0140360 n e o r m o r e o f t h
0140400 e s e S - e x p r e s s i o n
0140420 s m a y c o n t a i n a
0140440 s u b - e x p r e s s i o n o
0140460 f t h e f o r m ( R E T U
0140500 R N S - e x p r e s s i o n )
0140520 \r P R O G w o r k s a s f
0140540 o l l o w s : \r T h e v a r i
0140560 a b l e s s p e c i f i e d
0140600 i n t h e b i n d i n g l
0140620 i s t a r e b o u n d o n
0140640 t h e s t a c k a n d s
0140660 e t t o t h e s p e c i f
0140700 i e d i n i t i a l v a l u
0140720 e s . \r T h e S - e x p r e s
0140740 s i o n s a r e e v a l u a
0140760 t e d i n o r d e r u n t
0141000 i l a n e x p r e s s i o n
0141020 ( o r s u b - e x p r e s s
0141040 i o n ) o f t h e f o r m
0141060 ( R E T U R N S - e x p r e
0141100 s s i o n ) i s e v a l u a
0141120 t e d . \r E v a l u a t i n g
0141140 t h i s R E T U R N e x p r
0141160 e s s i o n e v a l u a t e s
0141200 t h e e m b e d d e d S -
0141220 e x p r e s s i o n , t h e n
0141240 c a u s e s t h e P R O G
0141260 s p e c i a l f o r m t o
0141300 b e e x i t e d , r e t u
0141320 r n i n g t h e v a l u e
0141340 o f t h i s e v a l u a t i
0141360 o n . O n e x i t , t h
0141400 e v a r i a b l e s i n t
0141420 h e b i n d i n g l i s t
0141440 a r e u n b o u n d . \r I f
0141460 n o R E T U R N s t a t e m
0141500 e n t i s e n c o u n t e r
0141520