$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSETF!10
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r 006 001 ( f i l e
0000100 c r e a t e d " 1 8 - O c t -
0000120 8 6 2 1 : 4 9 : 2 1 " 006 004 {
0000140 e r i s } < l i s p c o r e > s
0000160 o u r c e s > c m l s e t f . \
0000200 ; 1 0 006 001 3 4 1 2 4 \r \r
0000220 | p r e v i o u s |
0000240 | d a t e : | " 1 6 - O c t -
0000260 8 6 2 2 : 2 6 : 0 6 " { e r
0000300 i s } < l i s p c o r e > s o u
0000320 r c e s > c m l s e t f . \ ; 9
0000340 ) \r \r \r ; C o p y r i g h t
0000360 ( c ) 1 9 8 6 b y X e r o
0000400 x C o r p o r a t i o n .
0000420 A l l r i g h t s r e s e r
0000440 v e d . \r \r ( p r e t t y c o m
0000460 p r i n t c m l s e t f c o m
0000500 s ) \r \r ( r p a q q 006 002 c m l
0000520 s e t f c o m s 006 001 \r
0000540 ( ( v a r s * d e f a u
0000560 l t - d e f a u l t * ) \r
0000600 ( f n s c l : g e t
0000620 - s e t f - m e t h o d g e t
0000640 - s i m p l e - s e t f - m e t
0000660 h o d ) \r ( f u
0000700 n c t i o n s c l : : g e t -
0000720 s e t f - m e t h o d - m u l t
0000740 i p l e - v a l u e ) \r
0000760 ( d e f i n e - t y p e
0001000 s s e t f s ) \r
0001020 ( f u n c t i o n s c l : d
0001040 e f i n e - m o d i f y - m a c
0001060 r o c l : d e f i n e - s e t
0001100 f - m e t h o d c l : d e f s
0001120 e t f ) \r ( f u
0001140 n c t i o n s c l : i n c f
0001160 c l : d e c f ) \r
0001200 ( f u n c t i o n s c l : s
0001220 e t f c l : p s e t f c l :
0001240 s h i f t f c l : r o t a t e
0001260 f c l : p u s h c l : p u s
0001300 h n e w c l : p o p c l : r
0001320 e m f ) \r ( s e
0001340 t f s c a r c d r c a a a
0001360 a r c a a a d r c a a a r
0001400 c a a d a r c a a d d r c a
0001420 a d r c a a r c a d a a r
0001440 c a d a d r c a d a r c a d
0001460 d a r c a d d d r \r
0001500 c a d d r
0001520 c a d r c d a a a r c d a
0001540 a d r c d a a r c d a d a r
0001560 c d a d d r c d a d r c d
0001600 a r c d d a a r c d d a d r
0001620 c d d a r c d d d a r \r
0001640 c d
0001660 d d d r c d d d r c d d r
0001700 c l : f i r s t c l : s e c o
0001720 n d c l : t h i r d c l : f
0001740 o u r t h c l : f i f t h c
0001760 l : s i x t h c l : s e v e n
0002000 t h \r
0002020 c l : e i g h t h c l :
0002040 n i n t h c l : t e n t h c
0002060 l : r e s t c l : n t h c d r
0002100 c l : n t h c l : g e t h a
0002120 s h c l : g e t f c l : a p
0002140 p l y l d b \r
0002160 c l : m a s k -
0002200 f i e l d c l : c h a r - b i
0002220 t t h e ) \r (
0002240 s e t f s \ \ g e t b a s e p
0002260 t r g e t h a s h ) \r
0002300 ( p r o p f i l e t y
0002320 p e c m l s e t f ) \r
0002340 ( d e c l a r e \ : d
0002360 o n t e v a l @ l o a d d o e
0002400 v a l @ c o m p i l e d o n t
0002420 c o p y c o m p i l e r v a r
0002440 s ( a d d v a r s ( n l a m
0002460 a ) \r
0002500
*
0002600 ( n l a m l ) \r
0002620
*
0002720 ( l a m a c l : g e
0002740 t - s e t f - m e t h o d \r
0002760
*
0003100 ) ) ) ) ) \r \r ( r p a q q 006
0003120 002 * d e f a u l t - d e f a u l
0003140 t * 006 001 n i l ) \r ( d e f i n
0003160 e q \r \r ( 006 004 c l : g e t - s e
0003200 t f - m e t h o d 006 001 \r ( c
0003220 l : l a m b d a ( f o r m e
0003240 n v i r o n m e n t ) 006 003 006 001
0003260
0003300 006 003 (
0003320 * | j r b : | " 1 5 - O c t
0003340 - 8 6 1 7 : 3 2 " ) 006 001 \r
0003360 ( l e t ( t e m
0003400 p ) \r
0003420 ( c o n d \r
0003440 ( ( c l : s y m
0003460 b o l p f o r m )
0003500
0003520 006 003 ( * " T h e s i
0003540 m p l e v a r i a b l e c a
0003560 s e ; " \r 006 001
0003600
*
0003660 006 003 " t u r n s i n
0003700 t o a n o r m a l S E T Q
0003720 . " ) 006 001 \r
0003740 ( l e t ( ( n
0003760 e w - v a r ( g e n s y m ) )
0004000 ) \r
0004020 ( c l : v a l
0004040 u e s n i l n i l ( l i s
0004060 t n e w - v a r ) \r
0004100
0004120 ` ( c l : s e
0004140 t q , f o r m , n e w - v a
0004160 r ) f o r m ) ) ) \r
0004200 ( ( c l
0004220 : a t o m f o r m ) \r
0004240 ( c
0004260 l : e r r o r " ~ S i l l e
0004300 g a l a t o m i c f o r m
0004320 f o r G E T - S E T F - M E T
0004340 H O D . " f o r m ) ) \r
0004360 ( (
0004400 s e t q t e m p ( o r ( g
0004420 e t ( c a r f o r m ) \r
0004440
*
0004500 ' s e t f - i n v e r s
0004520 e ) \r
0004540
0004560 ( g e t ( c a r f o
0004600 r m ) \r
0004620
0004640 ' s e t f n
0004660 ) ) )
0004700 006 003 ( * " I n t e r l i s p
0004720 ' s S E T F N ' s a r e e
0004740 x a c t l y " \r 006 001
0004760
*
0005040 006 003 " l i k e
0005060 S E T F - I N V E R S E ' s . "
0005100 ) 006 001 \r
0005120 ( 006 002 g e t - s i m
0005140 p l e - s e t f - m e t h o d 006
0005160 001 f o r m t e m p ) ) \r
0005200 (
0005220 ( s e t q t e m p ( g e t
0005240 ( c a r f o r m ) \r
0005260
0005300 ' s e
0005320 t f - m e t h o d - e x p a n d
0005340 e r ) ) \r
0005360 ( c l : f u n c a
0005400 l l t e m p f o r m e n v
0005420 i r o n m e n t ) ) \r
0005440 ( ( s e
0005460 t q t e m p ( g e t ( c a
0005500 r f o r m ) \r
0005520
0005540 ' c r o p s
0005560 ) )
0005600 006 003 ( * " I n t e r
0005620 l i s p h a c k f o r r e
0005640 p r e s e n t i n g " \r 006 001
0005660
*
0005740 006 003 " t
0005760 h e C { A | D } * R f u n c
0006000 t i o n s " ) 006 001 \r
0006020 ( 006 002 c
0006040 l : g e t - s e t f - m e t h o
0006060 d 006 001 ` ( , ( p a c k * ' c
0006100 ( c a r ( l a s t t e m p
0006120 ) ) \r
0006140
*
0006200 ' r ) ( , ( p a c k *
0006220 ' c ( s u b s t r i n g ( c
0006240 a r f o r m ) \r
0006260
*
0006360 3 - 1 ) ) , ( c a d r f o
0006400 r m ) ) ) ) ) \r
0006420 ( t ( c l :
0006440 i f ( e q ( s e t q t e m
0006460 p ( c l : m a c r o e x p a n
0006500 d - 1 f o r m e n v i r o n
0006520 m e n t ) ) \r
0006540
0006560 f o r m ) \r
0006600
0006620 ( c l : e r r o r
0006640 " ~ S i s n o t a k n
0006660 o w n l o c a t i o n s p e
0006700 c i f i e r f o r S E T F .
0006720 " ( c a r f o r m ) ) \r
0006740
0006760 ( 006 002 c l : g
0007000 e t - s e t f - m e t h o d 006 001
0007020 t e m p e n v i r o n m e n
0007040 t ) ) ) ) ) ) ) \r \r ( 006 004 g e t
0007060 - s i m p l e - s e t f - m e t
0007100 h o d 006 001 \r ( l a m b d a
0007120 ( f o r m s e t f - i n v e r
0007140 s e ) 006 003 006 001
0007160
0007200 006 003 ( * | l m m
0007220 | " 7 - M a y - 8 6 2 3 :
0007240 3 3 " ) 006 001 \r ( l e t
0007260 ( ( n e w - v a r ( g e n s y
0007300 m ) ) \r ( v
0007320 a r s n i l ) \r
0007340 ( v a l s n i l ) ) \r
0007360 ( c l : d o l i
0007400 s t ( x ( c d r f o r m )
0007420 ) \r
0007440 ( c l : p u s h ( g e n s
0007460 y m ) \r
0007500 v a r s )
0007520 \r
0007540 ( c l : p u s h x v a l s
0007560 ) ) \r ( s e t
0007600 q v a l s ( c l : n r e v e
0007620 r s e v a l s ) ) \r
0007640 ( c l : v a l u e s v
0007660 a r s v a l s ( l i s t n
0007700 e w - v a r ) \r
0007720 ` ( , s e t f -
0007740 i n v e r s e , @ v a r s ,
0007760 n e w - v a r ) \r
0010000 ` ( , ( c a r
0010020 f o r m ) , @ v a r s ) ) )
0010040 ) ) \r ) \r ( c l : d e f u n 006
0010060 002 c l : : g e t - s e t f - m e
0010100 t h o d - m u l t i p l e - v a
0010120 l u e 006 001 ( f o r m & o p t
0010140 i o n a l e n v i r o n m e n
0010160 t ) ( c l : g e t - s e t f -
0010200 m e t h o d f o r m \r
0010220
*
0010320 e n
0010340 v i r o n m e n t ) ) \r \r ( d e
0010360 f - d e f i n e - t y p e 006 002
0010400 s e t f s 006 001 " C o m m o n
0010420 L i s p S E T F d e f i n i
0010440 t i o n s " ) \r \r ( d e f d e
0010460 f i n e r 006 002 c l : d e f i n
0010500 e - m o d i f y - m a c r o 006 001
0010520 \r f u n c t i o n s \r
0010540 ( n a m e l a m b d a - l i
0010560 s t f u n c t i o n & o p t
0010600 i o n a l d o c - s t r i n g
0010620 ) \r " C r e a t e s a
0010640 n e w r e a d - m o d i f y -
0010660 w r i t e m a c r o l i k e
0010700 P U S H o r I N C F . " \r
0010720 ( l e t ( ( o t h e r -
0010740 a r g s n i l ) \r
0010760 ( r e s t - a r g n i l
0011000 ) ) \r ( c l : d
0011020 o ( ( l l l a m b d a - l i
0011040 s t ( c d r l l ) ) \r
0011060 ( a r
0011100 g n i l ) ) \r
0011120 ( ( n u l l l l
0011140 ) ) \r
0011160 ( s e t q a r g ( c a r
0011200 l l ) ) \r
0011220 ( c o n d \r
0011240 ( ( e
0011260 q a r g ' & o p t i o n a l
0011300 ) ) \r
0011320 ( ( e q a r g ' &
0011340 r e s t ) \r
0011360 ( s e t q r
0011400 e s t - a r g ( c a d r l l
0011420 ) ) \r
0011440 ( r e t u r n n i
0011460 l ) ) \r
0011500 ( ( c l : s y m b o
0011520 l p a r g ) \r
0011540 ( c l : p
0011560 u s h a r g o t h e r - a r
0011600 g s ) ) \r
0011620 ( t ( c l : p u
0011640 s h ( c a r a r g ) \r
0011660
0011700 o t h e r - a
0011720 r g s ) ) ) ) \r
0011740 ( s e t q o t h e r - a r g s
0011760 ( r e v e r s e o t h e r -
0012000 a r g s ) ) \r `
0012020 ( d e f m a c r o ( 006 002 \ \ \
0012040 , 006 001 n a m e ) ( $ $ m o d
0012060 i f y - m a c r o - f o r m ,
0012100 @ l a m b d a - l i s t & e n
0012120 v i r o n m e n t \r
0012140
*
0012200 $ $ m o d i f y - m a c r o -
0012220 e n v i r o n m e n t ) \r
0012240 , d o c - s t
0012260 r i n g ( c l : m u l t i p l
0012300 e - v a l u e - b i n d \r
0012320
0012340 ( d u m m y - v a r
0012360 i a b l e s c l : v a l u e s
0012400 n e w - v a l u e s e t t e
0012420 r g e t t e r ) \r
0012440
0012460 ( c l : g e t - s e t f -
0012500 m e t h o d $ $ m o d i f y -
0012520 m a c r o - f o r m $ $ m o d
0012540 i f y - m a c r o - e n v i r o
0012560 n m e n t ) \r
0012600
0012620 ( c l : d o ( ( d d u m m y
0012640 - v a r i a b l e s ( c d r
0012660 d ) ) \r
0012700
0012720 ( v c l : v a l u e
0012740 s ( c d r v ) ) \r
0012760
0013000 ( l e t
0013020 - l i s t n i l ( c o n s
0013040 ( l i s t ( c a r d ) \r
0013060
*
0013140 ( c a r v )
0013160 ) \r
0013200
*
0013240 l e t - l i s t )
0013260 ) ) \r
0013300
0013320 ( ( n u l l d ) \r
0013340
0013360 ( c
0013400 l : p u s h ( l i s t ( c a
0013420 r n e w - v a l u e ) \r
0013440
*
0013500 , ( c
0013520 l : i f r e s t - a r g ` (
0013540 l i s t * ' , f u n c t i o n
0013560 g e t t e r \r
0013600
*
0013700 , @ o t h e r - a r g s \r
0013720
*
0014020 , r e s t - a r g
0014040 ) \r
0014060
*
0014120 ` ( l i s t
0014140 ' , f u n c t i o n g e t t
0014160 e r , @ o t h e r - a r g s )
0014200 ) ) \r
0014220
0014240 l e t - l
0014260 i s t ) \r
0014300
0014320 ` ( l e t * , ( r
0014340 e v e r s e l e t - l i s t )
0014360 , s e t t e r ) ) ) ) ) \r ) )
0014400 \r \r ( d e f d e f i n e r 006 002
0014420 c l : d e f i n e - s e t f - m
0014440 e t h o d 006 001 \r s e t f s
0014460 ( n a m e l a m b d a - l i
0014500 s t & e n v i r o n m e n t
0014520 e n v & b o d y b o d y ) \r
0014540 ( l e t ( (
0014560 w h o l e ( x c l : p a c k
0014600 ( l i s t " w h o l e - " n
0014620 a m e ) \r
0014640
0014660 ( c l : s y m b o l - p a c
0014700 k a g e n a m e ) ) ) \r
0014720 ( e n v
0014740 i r o n m e n t ( x c l : p a
0014760 c k ( l i s t " e n v - "
0015000 n a m e ) \r
0015020
0015040 ( c l : s y m
0015060 b o l - p a c k a g e n a m e
0015100 ) ) ) \r
0015120 ( e x p a n d e r ( x c
0015140 l : p a c k ( l i s t " s e
0015160 t f - e x p a n d e r - " n a
0015200 m e ) \r
0015220
0015240 ( c l : s y m b o l - p
0015260 a c k a g e n a m e ) ) ) ) \r
0015300 ( c
0015320 l : m u l t i p l e - v a l u e
0015340 - b i n d \r
0015360 ( n e w b o d y l o
0015400 c a l - d e c s d o c ) \r
0015420 ( p a
0015440 r s e - d e f m a c r o l a m
0015460 b d a - l i s t w h o l e b
0015500 o d y n a m e e n v : e n
0015520 v i r o n m e n t e n v i r o
0015540 n m e n t : e r r o r - s t r
0015560 i n g \r
0015600 " S e t f
0015620 e x p a n d e r f o r ~ S
0015640 c a n n o t b e c a l l e
0015660 d w i t h ~ S a r g s . "
0015700 ) \r
0015720 ` ( c l : e v a l - w h e n
0015740 ( e v a l c l : c o m p i l e
0015760 l o a d ) \r
0016000 ( r
0016020 e m p r o p ' , n a m e ' s
0016040 e t f - i n v e r s e ) \r
0016060
0016100 ( r e m p r o p ' , n
0016120 a m e ' s e t f n ) \r
0016140
0016160 ( c l : d e f u n ( 006 002
0016200 \ \ \ , 006 001 e x p a n d e r )
0016220 ( , w h o l e , e n v i r o
0016240 n m e n t ) , @ l o c a l - d
0016260 e c s , n e w b o d y ) \r \r
0016300
0016320 ( p u t p r o p '
0016340 , n a m e ' s e t f - m e t h
0016360 o d - e x p a n d e r ' , e x
0016400 p a n d e r ) \r
0016420 ,
0016440 @ ( a n d d o c ` ( ( c l :
0016460 s e t f ( c l : d o c u m e n
0016500 t a t i o n ' , n a m e ' c
0016520 l : s e t f ) \r
0016540
*
0016600 , d o c ) ) ) ) ) ) ) \r \r
0016620 ( d e f d e f i n e r 006 002 c l
0016640 : d e f s e t f 006 001 \r s e
0016660 t f s \r ( n a m e & r e
0016700 s t c l : r e s t & e n v i
0016720 r o n m e n t e n v ) \r
0016740 " A s s o c i a t e s a S E
0016760 T F u p d a t e f u n c t i
0017000 o n o r m a c r o w i t h
0017020 t h e s p e c i f i e d a
0017040 c c e s s f u n c t i o n o
0017060 r m a c r o " \r ( c o n
0017100 d \r ( ( n u l l c
0017120 l : r e s t ) \r (
0017140 c l : e r r o r " N o b o d
0017160 y f o r D E F S E T F o f
0017200 ~ A " n a m e ) ) \r
0017220 ( ( c l : s y m b o l p (
0017240 c a r c l : r e s t ) ) 006 003 006
0017260 001
0017300 006 003 (
0017320 * \ ; " T h e s h o r t
0017340 f o r m : " ) 006 001 006 003 006 001 \r
0017360
*
0017440 006 003 ( * \ ; " (
0017460 d e f s e t f a c c e s s - f
0017500 n u p d a t e - f n [ d o c
0017520 ] ) " ) 006 001 \r ( l
0017540 e t ( ( u p d a t e - f n (
0017560 c a r c l : r e s t ) ) \r
0017600 ( d o c
0017620 ( c a d r c l : r e s t ) ) )
0017640 \r ` ( p
0017660 r o g n ( c l : e v a l - w h
0017700 e n ( l o a d c l : c o m p
0017720 i l e e v a l ) \r
0017740
0017760 ( r e m p r o p ' ,
0020000 n a m e ' s e t f - m e t h o
0020020 d - e x p a n d e r ) \r
0020040
0020060 ( p u t p r o p s
0020100 , n a m e s e t f - i n v e
0020120 r s e , u p d a t e - f n ) )
0020140 \r
0020160 , @ ( a n d d o c
0020200 ` ( ( c l : s e t f ( c l : d
0020220 o c u m e n t a t i o n ' , n
0020240 a m e ' c l : s e t f ) \r
0020260
*
0020320 , d o c ) ) ) ) ) )
0020340 \r ( ( a n d ( c l
0020360 : l i s t p ( c a r c l : r
0020400 e s t ) ) \r
0020420 ( c d r c l : r e s t ) \r
0020440 ( c l :
0020460 l i s t p ( c a d r c l : r
0020500 e s t ) ) ) 006 003 006 001
0020520
0020540 006 003 ( * \ ; " T h e c o
0020560 m p l e x f o r m : " ) 006 001 006
0020600 003 006 001 \r
0020620
*
0020660 006 003 ( * \ ; \r 006
0020700 001
0020720
0020740 006 003 " ( d e
0020760 f s e t f a c c e s s - f n
0021000 a r g s ( s t o r e - v a r )
0021020 { d e c l | d o c } * {
0021040 f o r m } * ) " ) 006 001 \r
0021060 ( d e s t r u c t u r i n
0021100 g - b i n d \r (
0021120 a r g - l i s t ( s t o r e -
0021140 v a r . o t h e r s ) \r
0021160 & b o
0021200 d y b o d y ) \r
0021220 c l : r e s t \r
0021240 ( c l : i f o t h e r s (
0021260 c l : c e r r o r " I g n o r
0021300 e t h e e x t r a i t e m
0021320 s i n t h e l i s t . "
0021340 \r
0021360 " C
0021400 u r r e n t l y o n l y o n
0021420 e n e w - v a l u e v a r i
0021440 a b l e i s a l l o w e d
0021460 i n D E F S E T F . " ) ) \r
0021500 ( l e t ( ( w h
0021520 o l e - v a r ( x c l : p a c
0021540 k ( l i s t n a m e " - s
0021560 e t f - f o r m " ) \r
0021600
0021620 ( c l : s
0021640 y m b o l - p a c k a g e n a
0021660 m e ) ) ) \r
0021700 ( e x p a n d e r ( x
0021720 c l : p a c k ( l i s t n a
0021740 m e " - s e t f - e x p a n d
0021760 e r " ) \r
0022000
0022020 ( c l : s y m b o l - p
0022040 a c k a g e n a m e ) ) ) ) \r
0022060 ( c l
0022100 : m u l t i p l e - v a l u e -
0022120 b i n d \r
0022140 ( c o d e d e c l s d
0022160 o c ) \r
0022200 ( p a r s e - d e f m a c r
0022220 o a r g - l i s t w h o l e
0022240 - v a r b o d y n a m e e
0022260 n v ) \r
0022300 ` ( p r o g n ( c l : e v
0022320 a l - w h e n ( e v a l c l
0022340 : c o m p i l e l o a d ) \r
0022360
0022400 ( r e m
0022420 p r o p ' , n a m e ' s e t
0022440 f - i n v e r s e ) \r
0022460
0022500 ( c l : s e t f
0022520 ( c l : s y m b o l - f u n c
0022540 t i o n ' , e x p a n d e r )
0022560 \r
0022600
0022620 ( f u n c t i o n (
0022640 l a m b d a ( a c c e s s - f
0022660 o r m ) \r
0022700
*
0022740 ( l e t * ( ( d u m
0022760 m i e s ( m a p c a r ( c d
0023000 r a c c e s s - f o r m ) \r
0023020
*
0023120 ( f u n c t i o n
0023140 ( l a m b d a ( x ) \r
0023160
*
0023260 (
0023300 g e n s y m ) ) ) ) ) \r
0023320
*
0023400 ( , w h o l e - v a r (
0023420 c o n s ( c a r a c c e s s
0023440 - f o r m ) \r
0023460
*
0023560 d u m m i e s ) ) \r
0023600
*
0023660 ( , s t o r e - v a r ( g e
0023700 n s y m ) ) ) \r
0023720
*
0023760 ( c
0024000 l : v a l u e s d u m m i e s
0024020 ( c d r a c c e s s - f o r
0024040 m ) \r
0024060
*
0024140 ( l i s t , s t o r e - v a r
0024160 ) \r
0024200
*
0024240 ,
0024260 c o d e \r
0024300
*
0024360 , w h o l e - v a r ) ) ) )
0024400 ) \r
0024420 (
0024440 p u t p r o p s , n a m e s
0024460 e t f - m e t h o d - e x p a n
0024500 d e r , e x p a n d e r ) ) \r
0024520
0024540 , @ ( a n d d o c
0024560 ` ( ( c l : s e t f ( c l :
0024600 d o c u m e n t a t i o n ' ,
0024620 n a m e ' c l : s e t f ) \r
0024640
*
0024700 , d o c ) ) )
0024720 ) ) ) ) ) \r ( t (
0024740 c l : e r r o r " I l l - f o
0024760 r m e d D E F S E T F f o r
0025000 ~ S . " n a m e ) ) ) ) \r \r
0025020 ( c l : d e f i n e - m o d i f
0025040 y - m a c r o 006 002 c l : i n c
0025060 f 006 001 ( & o p t i o n a l (
0025100 d e l t a 1 ) ) + " T h e
0025120 f i r s t a r g u m e n t
0025140 i s s o m e l o c a t i o n
0025160 h o l d i n g a n u m b e
0025200 r . T h i s n u m b e r
0025220 i s \r i n c r e m e n t e d
0025240 b y t h e s e c o n d a
0025260 r g u m e n t , D E L T A ,
0025300 w h i c h d e f a u l t s t
0025320 o 1 . " ) \r \r ( c l : d e f i
0025340 n e - m o d i f y - m a c r o
0025360 006 002 c l : d e c f 006 001 ( & o p
0025400 t i o n a l ( d e l t a 1 )
0025420 ) - " T h e f i r s t a
0025440 r g u m e n t i s s o m e
0025460 l o c a t i o n h o l d i n g
0025500 a n u m b e r . T h i s
0025520 n u m b e r i s \r d e c
0025540 r e m e n t e d b y t h e
0025560 s e c o n d a r g u m e n t ,
0025600 D E L T A , w h i c h d e
0025620 f a u l t s t o 1 . " ) \r \r
0025640 ( d e f m a c r o 006 002 c l : s
0025660 e t f 006 001 ( p l a c e n e w
0025700 v a l u e & r e s t o t h e
0025720 r s & e n v i r o n m e n t
0025740 e n v & a u x t e m p ) \r
0025760 \r
0026000 006 003 ( * * " T a k
0026020 e s p a i r s o f a r g u
0026040 m e n t s l i k e S E T Q .
0026060 T h e f i r s t i s a
0026100 p l a c e a n d t h e s e
0026120 c o n d i s t h e v a l u
0026140 e " \r 006 001
0026160 006 003 " t h a t i s s u p p o
0026200 s e d t o g o i n t o t
0026220 h a t p l a c e . R e t u r
0026240 n s t h e l a s t v a l u
0026260 e . " \r 006 001
0026300 006 003 " T h e p l a c e a r
0026320 g u m e n t m a y b e a n
0026340 y o f t h e a c c e s s
0026360 f o r m s f o r w h i c h "
0026400 \r 006 001 006 003
0026420 " S E T F k n o w s a c o
0026440 r r e s p o n d i n g s e t t
0026460 i n g f o r m . " ) 006 001 \r (
0026500 l e t ( ( e x p ( c o n d \r
0026520 (
0026540 ( c l : s y m b o l p p l a c
0026560 e ) \r
0026600 ` ( s e t q , p l a c e
0026620 , n e w v a l u e ) ) \r
0026640 ( ( a n
0026660 d ( c l : s y m b o l p ( c
0026700 a r p l a c e ) ) \r
0026720
0026740 ( s e t q t e m p ( o r (
0026760 g e t ( c a r p l a c e ) \r
0027000
*
0027040 ' s e t f - i
0027060 n v e r s e ) \r
0027100
0027120 ( g e t
0027140 ( c a r p l a c e ) \r
0027160
*
0027220 ' s e t f n ) ) ) )
0027240 \r
0027260 ` ( , t e m p , @ ( c d r
0027300 p l a c e ) , n e w v a l u e
0027320 ) ) \r
0027340 ( t ( c l : m u l t i p l
0027360 e - v a l u e - b i n d ( d u
0027400 m m i e s v a l s n e w v a
0027420 l s s e t t e r g e t t e r
0027440 ) \r
0027460 ( c l : g
0027500 e t - s e t f - m e t h o d p
0027520 l a c e e n v ) \r
0027540
0027560 ` ( l e t * ( \ , @ (
0027600 | f o r | d | i n | d u m
0027620 m i e s | a s | v | i n |
0027640 v a l s | c o l l e c t | \r
0027660
*
0027720 ( l i s
0027740 t d v ) ) \r
0027760
0030000 ( \ ,
0030020 ( c a r n e w v a l s ) \r
0030040
*
0030100 \ , n e w v a
0030120 l u e ) ) \r
0030140
0030160 , s e t t e r ) ) )
0030200 ) ) \r t e m p ) \r
0030220 ( c o n d \r
0030240 ( o t h e r s ` ( p
0030260 r o g n , e x p ( c l : s e
0030300 t f \ \ \ , o t h e r s ) )
0030320 ) \r ( t e x
0030340 p ) ) ) ) \r \r ( d e f m a c r o
0030360 006 002 c l : p s e t f 006 001 ( &
0030400 r e s t a r g s & e n v i r
0030420 o n m e n t e n v ) " T h i
0030440 s i s t o S E T F a s
0030460 P S E T Q i s t o S E T Q
0030500 . A r g s a r e a l t e
0030520 r n a t i n g p l a c e \r
0030540 e x p r e s s i o n s a n d
0030560 v a l u e s t o g o i n t
0030600 o t h o s e p l a c e s .
0030620 A l l o f t h e s u b f
0030640 o r m s a n d \r v a l u e
0030660 s a r e d e t e r m i n e d
0030700 , l e f t t o r i g h t ,
0030720 a n d o n l y t h e n a
0030740 r e t h e l o c a t i o n s
0030760 \r u p d a t e d . R e t
0031000 u r n s N I L . " ( c l : d
0031020 o ( ( a a r g s ( c d d r
0031040 a ) ) \r
0031060
0031100 ( l e t - l i s t
0031120 n i l ) \r
0031140
0031160 ( s e t f - l i
0031200 s t n i l ) ) \r
0031220
0031240 ( ( c l : a
0031260 t o m a ) \r
0031300
0031320 ` ( l e t *
0031340 , ( c l : n r e v e r s e l e
0031360 t - l i s t ) , @ ( c l : n r
0031400 e v e r s e s e t f - l i s t
0031420 ) n i l ) ) \r
0031440
0031460 ( c l : i f
0031500 ( c l : a t o m ( c d r a )
0031520 ) \r
0031540
0031560 ( c l : e r
0031600 r o r " O d d n u m b e r
0031620 o f a r g s t o P S E T F
0031640 . " ) ) \r
0031660
0031700 ( c l : m u l t i p
0031720 l e - v a l u e - b i n d ( d
0031740 u m m i e s v a l s n e w v
0031760 a l s e t t e r g e t t e r
0032000 ) \r
0032020
0032040 ( c l : g e
0032060 t - s e t f - m e t h o d ( c
0032100 a r a ) \r
0032120
*
0032160 e n v ) \r
0032200
*
0032240 ( d e c l a r e ( i g n o
0032260 r e g e t t e r ) ) \r
0032300
*
0032340 ( c l : d o * ( ( d
0032360 d u m m i e s ( c d r d ) )
0032400 \r
0032420
*
0032460 ( v v a l s ( c d r v
0032500 ) ) ) \r
0032520
*
0032560 ( ( n u l l d ) ) \r
0032600
*
0032640 ( c l
0032660 : p u s h ( l i s t ( c a r
0032700 d ) \r
0032720
*
0033000 ( c a r v ) ) \r
0033020
*
0033100 l e t - l i s t ) ) \r
0033120
*
0033160 ( c l : p u s h ( l i
0033200 s t ( c a r n e w v a l ) \r
0033220
*
0033300 ( c a d r a ) )
0033320 \r
0033340
*
0033400 l e t - l i s t ) \r
0033420
*
0033460 ( c l : p u s h s e t t e
0033500 r s e t f - l i s t ) ) ) ) \r
0033520 \r ( d e f m a c r o 006 002 c l :
0033540 s h i f t f 006 001 ( & r e s t
0033560 a r g s & e n v i r o n m e n
0033600 t e n v ) " T a k e s a n
0033620 y n u m b e r o f S E T F
0033640 - s t y l e p l a c e e x p
0033660 r e s s i o n s . E v a l u
0033700 a t e s a l l o f t h e \r
0033720 e x p r e s s i o n s i n
0033740 t u r n , t h e n a s s i
0033760 g n s t o e a c h p l a c
0034000 e t h e v a l u e o f t
0034020 h e f o r m t o \r i t s
0034040 r i g h t . T h e r i g
0034060 h t m o s t f o r m i s n
0034100 o t a s s i g n e d t o .
0034120 S H I F T F r e t u r n s t
0034140 h e v a l u e o f t h e
0034160 f i r s t p l a c e b e f o
0034200 r e t h e a s s i g n m e n
0034220 t s a r e m a d e . " \r
0034240 ( c o n d \r ( ( o
0034260 r ( n u l l a r g s ) \r
0034300 ( n u l l (
0034320 c d r a r g s ) ) ) \r
0034340 ( c l : e r r o r " S H
0034360 I F T F n e e d s a t l e
0034400 a s t t w o a r g u m e n t
0034420 s " ) ) \r ( t ( c
0034440 l : d o ( ( a a r g s ( c
0034460 d r a ) ) \r
0034500 ( l e t - l i s
0034520 t n i l ) \r
0034540 ( s e t f - l i
0034560 s t n i l ) \r
0034600 ( r e s u l t
0034620 ( g e n s y m ) ) \r
0034640 ( n e x
0034660 t - v a r n i l ) ) \r
0034700 ( ( c l
0034720 : a t o m ( c d r a ) ) \r
0034740
0034760 ( d s u b s t ( c a r a ) \r
0035000
0035020 n e x t - v a r
0035040 \r
0035060 ( c a r s e
0035100 t f - l i s t ) ) \r
0035120 ` ( l e t
0035140 * , ( c l : n r e v e r s e
0035160 l e t - l i s t ) , @ ( c l :
0035200 n r e v e r s e s e t f - l i
0035220 s t ) , r e s u l t ) ) \r
0035240 ( c
0035260 l : m u l t i p l e - v a l u e
0035300 - b i n d ( d u m m i e s v
0035320 a l s n e w v a l s e t t e
0035340 r g e t t e r ) \r
0035360
0035400 ( c l : g e t - s e t f - m e
0035420 t h o d ( c a r a ) \r
0035440
0035460 e n v ) \r
0035500
0035520 ( c l : d o ( (
0035540 d d u m m i e s ( c d r d
0035560 ) ) \r
0035600
0035620 ( v v a l s ( c d r v
0035640 ) ) ) \r
0035660
0035700 ( ( n u l l d ) ) \r
0035720
0035740 ( c l : p
0035760 u s h ( l i s t ( c a r d
0036000 ) \r
0036020
0036040 (
0036060 c a r v ) ) \r
0036100
0036120 l e t
0036140 - l i s t ) ) \r
0036160 (
0036200 c l : u n l e s s n e x t - v
0036220 a r ( c l : s e t q n e x t
0036240 - v a r r e s u l t ) ) \r
0036260
0036300 ( c l : p u s h ( l
0036320 i s t n e x t - v a r g e t
0036340 t e r ) \r
0036360
0036400 l e t - l i s t ) \r
0036420
0036440 ( c l : p u s h s e t
0036460 t e r s e t f - l i s t ) \r
0036500
0036520 ( s e t q n e x t
0036540 - v a r ( c a r n e w v a l
0036560 ) ) ) ) ) ) ) \r \r ( d e f m a c
0036600 r o 006 002 c l : r o t a t e f 006
0036620 001 ( & r e s t a r g s & e
0036640 n v i r o n m e n t e n v )
0036660 " T a k e s a n y n u m b e
0036700 r o f S E T F - s t y l e
0036720 p l a c e e x p r e s s i o n
0036740 s . E v a l u a t e s a l
0036760 l o f t h e \r e x p r e
0037000 s s i o n s i n t u r n ,
0037020 t h e n a s s i g n s t o
0037040 e a c h p l a c e t h e v
0037060 a l u e o f t h e f o r m
0037100 t o \r i t s r i g h t .
0037120 T h e r i g h t m o s t
0037140 f o r m g e t s t h e v a
0037160 l u e o f t h e l e f t m
0037200 o s t . R e t u r n s N I
0037220 L . " \r ( c o n d \r
0037240 ( ( n u l l a r g s ) \r
0037260 n i l ) \r
0037300 ( ( n u l l ( c d r a r
0037320 g s ) ) \r ` ( p r
0037340 o g n , ( c a r a r g s )
0037360 n i l ) ) \r ( t (
0037400 c l : d o ( ( a a r g s (
0037420 c d r a ) ) \r
0037440 ( l e t - l i
0037460 s t n i l ) \r
0037500 ( s e t f - l
0037520 i s t n i l ) \r
0037540 ( n e x t -
0037560 v a r n i l ) \r
0037600 ( f i x - m
0037620 e n i l ) ) \r
0037640 ( ( c l : a t o
0037660 m a ) \r
0037700 ( r p l a c a f i
0037720 x - m e n e x t - v a r ) \r
0037740
0037760 ` ( l e t * , ( c l : n r e v
0040000 e r s e l e t - l i s t ) ,
0040020 @ ( c l : n r e v e r s e s e
0040040 t f - l i s t ) n i l ) ) \r
0040060 (
0040100 c l : m u l t i p l e - v a l u
0040120 e - b i n d ( d u m m i e s
0040140 v a l s n e w v a l s e t t
0040160 e r g e t t e r ) \r
0040200
0040220 ( c l : g e t - s e t f - m
0040240 e t h o d ( c a r a ) \r
0040260
0040300 e n v )
0040320 \r
0040340 ( c l : d o (
0040360 ( d d u m m i e s ( c d r
0040400 d ) ) \r
0040420
0040440 ( v v a l s ( c d r
0040460 v ) ) ) \r
0040500
0040520 ( ( n u l l d ) ) \r
0040540
0040560 ( c l :
0040600 p u s h ( l i s t ( c a r
0040620 d ) \r
0040640
*
0040700 ( c a r v ) ) \r
0040720
0040740 l e
0040760 t - l i s t ) ) \r
0041000
0041020 ( c l : p u s h ( l i s t n
0041040 e x t - v a r g e t t e r ) \r
0041060
0041100 l e
0041120 t - l i s t ) \r
0041140 \r 006 003 (
0041160 * w \ e | d o n ' t | | k
0041200 n o w | | t h e | | n e w v
0041220 a l | | v a r i a b l e | |
0041240 f o r | | t h e | | l a s t
0041260 | | f o r m | \r 006 001
0041300 006 003 | y e t , | *
0041320 ) 006 001 \r \r
0041340 006 003 ( * | s
0041360 o | | f a k e | | i t | |
0041400 f o r | | t h e | | f i r s
0041420 t | | g e t t e r | | a n d
0041440 | | f i x | | i t | | a t
0041460 | | t h e | \r 006 001
0041500 006 003 | e n d . | * )
0041520 006 001 \r \r
0041540 ( c l : u
0041560 n l e s s f i x - m e ( s e
0041600 t q f i x - m e ( c a r l
0041620 e t - l i s t ) ) ) \r
0041640
0041660 ( c l : p u s h s e t t e
0041700 r s e t f - l i s t ) \r
0041720
0041740 ( s e t q n e x t - v
0041760 a r ( c a r n e w v a l ) )
0042000 ) ) ) ) ) \r \r ( d e f m a c r o
0042020 006 002 c l : p u s h 006 001 ( o b
0042040 j p l a c e & e n v i r o n
0042060 m e n t e n v ) " T a k e s
0042100 a n o b j e c t a n d a
0042120 l o c a t i o n h o l d i n
0042140 g a l i s t . C o n s e
0042160 s t h e o b j e c t o n t
0042200 o \r t h e l i s t , r e
0042220 t u r n i n g t h e m o d i
0042240 f i e d l i s t . " \r (
0042260 c l : i f ( c l : s y m b o l
0042300 p p l a c e ) \r
0042320 ` ( s e t q , p l a c e
0042340 ( c o n s , o b j , p l a
0042360 c e ) ) \r (
0042400 c l : m u l t i p l e - v a l u
0042420 e - b i n d ( d u m m i e s
0042440 v a l s n e w v a l s e t t
0042460 e r g e t t e r ) \r
0042500 ( c l :
0042520 g e t - s e t f - m e t h o d
0042540 p l a c e e n v ) \r
0042560 ( c l :
0042600 d o * ( ( d d u m m i e s
0042620 ( c d r d ) ) \r
0042640
0042660 ( v v a l s ( c d r
0042700 v ) ) \r
0042720 ( l
0042740 e t - l i s t n i l ) ) \r
0042760
0043000 ( ( n u l l d ) \r
0043020
0043040 ( c l : p u s
0043060 h ( l i s t ( c a r n e w
0043100 v a l ) \r
0043120
0043140 ` ( c
0043160 o n s , o b j , g e t t e r
0043200 ) ) \r
0043220
0043240 l e t - l i s t ) \r
0043260
0043300 ` ( l e t * , ( c
0043320 l : n r e v e r s e l e t - l
0043340 i s t ) , s e t t e r ) ) \r
0043360
0043400 ( c l : p u s h
0043420 ( l i s t ( c a r d ) \r
0043440
*
0043500 ( c a r v ) ) \r
0043520
0043540 l e t
0043560 - l i s t ) ) ) ) ) \r \r ( d e f
0043600 m a c r o 006 002 c l : p u s h n
0043620 e w 006 001 ( o b j p l a c e
0043640 & r e s t k e y s & e n v i
0043660 r o n m e n t e n v ) " T a
0043700 k e s a n o b j e c t a n
0043720 d a l o c a t i o n h o l
0043740 d i n g a l i s t . I f
0043760 t h e o b j e c t i s a
0044000 l r e a d y \r i n t h e
0044020 l i s t , d o e s n o t h i
0044040 n g . E l s e , c o n s e
0044060 s t h e o b j e c t o n t
0044100 o t h e l i s t . R e t
0044120 u r n s \r N I L . I f
0044140 t h e r e i s a : T E S T
0044160 k e y w o r d , t h i s i
0044200 s u s e d f o r t h e c
0044220 o m p a r i s o n . " \r (
0044240 c l : i f ( c l : s y m b o l
0044260 p p l a c e ) \r
0044300 ` ( s e t q , p l a c e
0044320 ( c l : a d j o i n , o b j
0044340 , p l a c e , @ k e y s ) )
0044360 \r ( c l : m
0044400 u l t i p l e - v a l u e - b i
0044420 n d ( d u m m i e s v a l s
0044440 n e w v a l s e t t e r g
0044460 e t t e r ) \r
0044500 ( c l : g e t -
0044520 s e t f - m e t h o d p l a c
0044540 e e n v ) \r
0044560 ( c l : d o *
0044600 ( ( d d u m m i e s ( c d r
0044620 d ) ) \r
0044640 (
0044660 v v a l s ( c d r v ) ) \r
0044700
0044720 ( l e t - l
0044740 i s t n i l ) ) \r
0044760
0045000 ( ( n u l l d ) \r
0045020
0045040 ( c l : p u s h ( l
0045060 i s t ( c a r n e w v a l )
0045100 \r
0045120
0045140 ` ( c l : a d
0045160 j o i n , o b j , g e t t e
0045200 r , @ k e y s ) ) \r
0045220
0045240 l e t - l
0045260 i s t ) \r
0045300 ` (
0045320 l e t * , ( c l : n r e v e r
0045340 s e l e t - l i s t ) , s e
0045360 t t e r ) ) \r
0045400 (
0045420 c l : p u s h ( l i s t ( c
0045440 a r d ) \r
0045460
0045500 ( c a
0045520 r v ) ) \r
0045540
0045560 l e t - l i s t ) ) )
0045600 ) ) \r \r ( d e f m a c r o 006 002
0045620 c l : p o p 006 001 ( p l a c e
0045640 & e n v i r o n m e n t e n v
0045660 ) " T h e a r g u m e n t
0045700 i s a l o c a t i o n h o
0045720 l d i n g a l i s t . P
0045740 o p s o n e i t e m o f f
0045760 t h e f r o n t \r o f
0046000 t h e l i s t a n d r e t
0046020 u r n s i t . " \r ( c l
0046040 : i f ( c l : s y m b o l p
0046060 p l a c e ) \r
0046100 ` ( p r o g 1 ( c a r , p
0046120 l a c e ) \r
0046140 ( s e t q , p
0046160 l a c e ( c d r , p l a c e
0046200 ) ) ) \r ( c
0046220 l : m u l t i p l e - v a l u e
0046240 - b i n d ( d u m m i e s v
0046260 a l s n e w v a l s e t t e
0046300 r g e t t e r ) \r
0046320 ( c l : g
0046340 e t - s e t f - m e t h o d p
0046360 l a c e e n v ) \r
0046400 ( c l : d
0046420 o * ( ( d d u m m i e s (
0046440 c d r d ) ) \r
0046460
0046500 ( v v a l s ( c d r v
0046520 ) ) \r
0046540 ( l e
0046560 t - l i s t n i l ) ) \r
0046600
0046620 ( ( n u l l d ) \r
0046640
0046660 ( c l : p u s h
0046700 ( l i s t ( c a r n e w v
0046720 a l ) \r
0046740
0046760 g e t t
0047000 e r ) \r
0047020
0047040 l e t - l i s t ) \r
0047060
0047100 ` ( l e t * , (
0047120 c l : n r e v e r s e l e t -
0047140 l i s t ) ( p r o g 1 ( c a
0047160 r , ( c a r n e w v a l ) )
0047200 \r
0047220
*
0047300 ( s e t q , ( c a r n e w v
0047320 a l ) \r
0047340
*
0047420 ( c d r , ( c a r n
0047440 e w v a l ) ) ) \r
0047460
*
0047540 , s e t t e r )
0047560 ) ) \r
0047600 ( c l : p
0047620 u s h ( l i s t ( c a r d
0047640 ) \r
0047660
0047700 ( c a r v )
0047720 ) \r
0047740
0047760 l e t - l i s t ) ) ) ) ) \r \r
0050000 ( d e f m a c r o 006 002 c l : r
0050020 e m f 006 001 ( p l a c e i n d
0050040 i c a t o r & e n v i r o n m
0050060 e n t e n v ) " P l a c e
0050100 m a y b e a n y p l a c e
0050120 e x p r e s s i o n a c c e
0050140 p t a b l e t o S E T F ,
0050160 a n d i s e x p e c t e d
0050200 t o h o l d a p r o p e r
0050220 t y l i s t o r ( ) . T
0050240 h i s l i s t i s d e s t
0050260 r u c t i v e l y a l t e r e
0050300 d t o r e m o v e t h e
0050320 p r o p e r t y s p e c i f i
0050340 e d b y t h e i n d i c a
0050360 t o r . R e t u r n s T i
0050400 f s u c h a p r o p e r t
0050420 y w a s p r e s e n t , N
0050440 I L i f n o t . " \r (
0050460 c l : m u l t i p l e - v a l u
0050500 e - b i n d \r ( d u m m
0050520 i e s v a l s n e w v a l
0050540 s e t t e r g e t t e r ) \r
0050560 ( c l : g e t - s e t f -
0050600 m e t h o d p l a c e e n v
0050620 ) \r ( c l : d o * ( (
0050640 d d u m m i e s ( c d r d
0050660 ) ) \r
0050700 ( v v a l s ( c d r v ) )
0050720 \r ( l
0050740 e t - l i s t n i l ) \r
0050760 ( i n d - t
0051000 e m p ( g e n s y m ) ) \r
0051020 ( l o c a
0051040 l 1 ( g e n s y m ) ) \r
0051060 ( l o c a l
0051100 2 ( g e n s y m ) ) ) \r
0051120 ( ( n u l l d
0051140 ) \r ( c
0051160 l : p u s h ( l i s t ( c a
0051200 r n e w v a l ) \r
0051220
0051240 g e t t e r ) \r
0051260
0051300 l e t - l i s t ) \r
0051320 ( c l : p u s h (
0051340 l i s t i n d - t e m p i n
0051360 d i c a t o r ) \r
0051400 l e t -
0051420 l i s t ) \r
0051440 ` ( l e t * , ( c l : n r
0051460 e v e r s e l e t - l i s t )
0051500 ( c l : d o ( ( , l o c a l
0051520 1 , ( c a r n e w v a l )
0051540 ( c d d r , l o c a l 1 ) ) \r
0051560
*
0051640 ( , l o c a l 2 n i l
0051660 , l o c a l 1 ) ) \r
0051700
*
0051740 ( ( c l
0051760 : a t o m , l o c a l 1 ) \r
0052000
*
0052060 n i l ) \r
0052100
*
0052140 ( c o n d \r
0052160
*
0052240 ( ( c l : a t o m ( c
0052260 d r , l o c a l 1 ) ) \r
0052300
*
0052360 ( c l : e r r o r " O d
0052400 d - l e n g t h p r o p e r t
0052420 y l i s t i n R E M F . "
0052440 ) ) \r
0052460
*
0052520 ( ( e q ( c a
0052540 r , l o c a l 1 ) \r
0052560
*
0052640 , i n d - t e m p ) \r
0052660
*
0052740 ( c o n d \r
0052760
*
0053040 ( , l o c a l 2 ( r
0053060 p l a c d ( c d r , l o c a
0053100 l 2 ) \r
0053120
*
0053200 ( c d
0053220 d r , l o c a l 1 ) ) \r
0053240
*
0053320 ( r e
0053340 t u r n t ) ) \r
0053360
*
0053440 ( t ( c l : s e t q , (
0053460 c a r n e w v a l ) \r
0053500
*
0053560 (
0053600 c d d r , ( c a r n e w v a
0053620 l ) ) ) \r
0053640
*
0053720 , s e t t e r \r
0053740
*
0054020 ( r e t u r n t ) )
0054040 ) ) ) ) ) ) \r
0054060 ( c l : p u s h ( l i s t
0054100 ( c a r d ) \r
0054120
0054140 ( c a r v ) ) \r
0054160 l e
0054200 t - l i s t ) ) ) ) \r \r ( c l :
0054220 d e f s e t f 006 002 c a r 006 001
0054240 ( x ) ( v ) \r
0054260 ` ( c a
0054300 r ( r p l a c a , x , v )
0054320 ) ) \r \r ( c l : d e f s e t f
0054340 006 002 c d r 006 001 ( x ) ( v ) \r
0054360
0054400 ` ( c d r ( r p l a c
0054420 d , x , v ) ) ) \r \r ( c l :
0054440 d e f s e t f 006 002 c a a a a r
0054460 006 001 ( x ) ( v ) \r
0054500
0054520 ` ( c a r ( r p l a c a
0054540 ( c a a a r , x ) \r
0054560
0054600 ,
0054620 v ) ) ) \r \r ( c l : d e f s e t
0054640 f 006 002 c a a a d r 006 001 ( x )
0054660 ( v ) \r
0054700 ` ( c a
0054720 r ( r p l a c a ( c a a d r
0054740 , x ) \r
0054760
0055000 , v ) ) ) \r \r
0055020 ( c l : d e f s e t f 006 002 c a
0055040 a a r 006 001 ( x ) ( v ) \r
0055060
0055100 ` ( c a r ( r p l a c
0055120 a ( c a a r , x ) \r
0055140
0055160 ,
0055200 v ) ) ) \r \r ( c l : d e f s e t
0055220 f 006 002 c a a d a r 006 001 ( x )
0055240 ( v ) \r
0055260 ` ( c a
0055300 r ( r p l a c a ( c a d a r
0055320 , x ) \r
0055340
0055360 , v ) ) ) \r \r
0055400 ( c l : d e f s e t f 006 002 c a
0055420 a d d r 006 001 ( x ) ( v ) \r
0055440
0055460 ` ( c a r ( r p l
0055500 a c a ( c a d d r , x ) \r
0055520
*
0055560 , v ) ) ) \r \r ( c l : d e
0055600 f s e t f 006 002 c a a d r 006 001
0055620 ( x ) ( v ) \r
0055640 ` (
0055660 c a r ( r p l a c a ( c a d
0055700 r , x ) \r
0055720
0055740 , v ) ) ) \r \r
0055760 ( c l : d e f s e t f 006 002 c a
0056000 a r 006 001 ( x ) ( v ) \r
0056020
0056040 ` ( c a r ( r p l a c a
0056060 ( c a r , x ) \r
0056100
0056120 , v ) ) )
0056140 \r \r ( c l : d e f s e t f 006 002
0056160 c a d a a r 006 001 ( x ) ( v )
0056200 \r
0056220 ` ( c a r ( r
0056240 p l a c a ( c d a a r , x )
0056260 \r
0056300
0056320 , v ) ) ) \r \r ( c l :
0056340 d e f s e t f 006 002 c a d a d r
0056360 006 001 ( x ) ( v ) \r
0056400
0056420 ` ( c a r ( r p l a c a
0056440 ( c d a d r , x ) \r
0056460
0056500 ,
0056520 v ) ) ) \r \r ( c l : d e f s e t
0056540 f 006 002 c a d a r 006 001 ( x )
0056560 ( v ) \r
0056600 ` ( c a r
0056620 ( r p l a c a ( c d a r , x
0056640 ) \r
0056660
0056700 , v ) ) ) \r \r ( c l :
0056720 d e f s e t f 006 002 c a d d a r
0056740 006 001 ( x ) ( v ) \r
0056760
0057000 ` ( c a r ( r p l a c a
0057020 ( c d d a r , x ) \r
0057040
0057060 ,
0057100 v ) ) ) \r \r ( c l : d e f s e t
0057120 f 006 002 c a d d d r 006 001 ( x )
0057140 ( v ) \r
0057160 ` ( c a
0057200 r ( r p l a c a ( c d d d r
0057220 , x ) \r
0057240
0057260 , v ) ) ) \r \r
0057300 ( c l : d e f s e t f 006 002 c a
0057320 d d r 006 001 ( x ) ( v ) \r
0057340
0057360 ` ( c a r ( r p l a c
0057400 a ( c d d r , x ) \r
0057420
0057440 ,
0057460 v ) ) ) \r \r ( c l : d e f s e t
0057500 f 006 002 c a d r 006 001 ( x ) (
0057520 v ) \r
0057540 ` ( c a r ( r
0057560 p l a c a ( c d r , x ) \r
0057600
*
0057640 , v ) ) ) \r \r ( c l : d e f s
0057660 e t f 006 002 c d a a a r 006 001 (
0057700 x ) ( v ) \r
0057720 ` (
0057740 c d r ( r p l a c d ( c a a
0057760 a r , x ) \r
0060000
0060020 , v ) ) )
0060040 \r \r ( c l : d e f s e t f 006 002
0060060 c d a a d r 006 001 ( x ) ( v )
0060100 \r
0060120 ` ( c d r ( r
0060140 p l a c d ( c a a d r , x )
0060160 \r
0060200
0060220 , v ) ) ) \r \r ( c l :
0060240 d e f s e t f 006 002 c d a a r 006
0060260 001 ( x ) ( v ) \r
0060300
0060320 ` ( c d r ( r p l a c d ( c
0060340 a a r , x ) \r
0060360
0060400 , v ) ) )
0060420 \r \r ( c l : d e f s e t f 006 002
0060440 c d a d a r 006 001 ( x ) ( v )
0060460 \r
0060500 ` ( c d r ( r
0060520 p l a c d ( c a d a r , x )
0060540 \r
0060560
0060600 , v ) ) ) \r \r ( c l :
0060620 d e f s e t f 006 002 c d a d d r
0060640 006 001 ( x ) ( v ) \r
0060660
0060700 ` ( c d r ( r p l a c d
0060720 ( c a d d r , x ) \r
0060740
0060760 ,
0061000 v ) ) ) \r \r ( c l : d e f s e t
0061020 f 006 002 c d a d r 006 001 ( x )
0061040 ( v ) \r
0061060 ` ( c d r
0061100 ( r p l a c d ( c a d r , x
0061120 ) \r
0061140
0061160 , v ) ) ) \r \r ( c l :
0061200 d e f s e t f 006 002 c d a r 006 001
0061220 ( x ) ( v ) \r
0061240 ` (
0061260 c d r ( r p l a c d ( c a r
0061300 , x ) \r
0061320
0061340 , v ) ) ) \r \r ( c
0061360 l : d e f s e t f 006 002 c d d a
0061400 a r 006 001 ( x ) ( v ) \r
0061420
0061440 ` ( c d r ( r p l a c
0061460 d ( c d a a r , x ) \r
0061500
*
0061540 , v ) ) ) \r \r ( c l : d e f s
0061560 e t f 006 002 c d d a d r 006 001 (
0061600 x ) ( v ) \r
0061620 ` (
0061640 c d r ( r p l a c d ( c d a
0061660 d r , x ) \r
0061700
0061720 , v ) ) )
0061740 \r \r ( c l : d e f s e t f 006 002
0061760 c d d a r 006 001 ( x ) ( v ) \r
0062000
0062020 ` ( c d r ( r p l
0062040 a c d ( c d a r , x ) \r
0062060
*
0062120 , v ) ) ) \r \r ( c l : d e f s
0062140 e t f 006 002 c d d d a r 006 001 (
0062160 x ) ( v ) \r
0062200 ` (
0062220 c d r ( r p l a c d ( c d d
0062240 a r , x ) \r
0062260
0062300 , v ) ) )
0062320 \r \r ( c l : d e f s e t f 006 002
0062340 c d d d d r 006 001 ( x ) ( v )
0062360 \r
0062400 ` ( c d r ( r
0062420 p l a c d ( c d d d r , x )
0062440 \r
0062460
0062500 , v ) ) ) \r \r ( c l :
0062520 d e f s e t f 006 002 c d d d r 006
0062540 001 ( x ) ( v ) \r
0062560
0062600 ` ( c d r ( r p l a c d ( c
0062620 d d r , x ) \r
0062640
0062660 , v ) ) )
0062700 \r \r ( c l : d e f s e t f 006 002
0062720 c d d r 006 001 ( x ) ( v ) \r
0062740
0062760 ` ( c d r ( r p l a c
0063000 d ( c d r , x ) \r
0063020
0063040 , v )
0063060 ) ) \r \r ( c l : d e f s e t f
0063100 006 002 c l : f i r s t 006 001 ( x )
0063120 ( v ) \r
0063140 ` (
0063160 c a r ( r p l a c a , x ,
0063200 v ) ) ) \r \r ( c l : d e f s e t
0063220 f 006 002 c l : s e c o n d 006 001
0063240 ( x ) ( v ) \r
0063260
0063300 ` ( c a r ( r p l a c a
0063320 ( c d r , x ) \r
0063340
*
0063400 , v ) ) ) \r \r ( c l : d e f s e
0063420 t f 006 002 c l : t h i r d 006 001
0063440 ( x ) ( v ) \r
0063460
0063500 ` ( c a r ( r p l a c a (
0063520 c d d r , x ) \r
0063540
0063560 ,
0063600 v ) ) ) \r \r ( c l : d e f s e t
0063620 f 006 002 c l : f o u r t h 006 001
0063640 ( x ) ( v ) \r
0063660
0063700 ` ( c a r ( r p l a c a
0063720 ( c d d d r , x ) \r
0063740
*
0064000 , v ) ) ) \r \r ( c l : d e f
0064020 s e t f 006 002 c l : f i f t h 006
0064040 001 ( x ) ( v ) \r
0064060
0064100 ` ( c a r ( r p l a c a
0064120 ( c d d d d r , x ) \r
0064140
*
0064200 , v ) ) ) \r \r ( c l : d e
0064220 f s e t f 006 002 c l : s i x t h
0064240 006 001 ( x ) ( v ) \r
0064260
0064300 ` ( c a r ( r p l a c
0064320 a ( c d r ( c d d d d r ,
0064340 x ) ) \r
0064360
0064400 , v ) ) ) \r
0064420 \r ( c l : d e f s e t f 006 002 c
0064440 l : s e v e n t h 006 001 ( x )
0064460 ( v ) \r
0064500 `
0064520 ( c a r ( r p l a c a ( c d
0064540 d r ( c d d d d r , x ) ) \r
0064560
*
0064620 , v ) ) ) \r \r (
0064640 c l : d e f s e t f 006 002 c l :
0064660 e i g h t h 006 001 ( x ) ( v )
0064700 \r
0064720 ` ( c a r
0064740 ( r p l a c a ( c d d d r
0064760 ( c d d d d r , x ) ) \r
0065000
*
0065040 , v ) ) ) \r \r ( c l : d
0065060 e f s e t f 006 002 c l : n i n t
0065100 h 006 001 ( x ) ( v ) \r
0065120
0065140 ` ( c a r ( r p l a
0065160 c a ( c d d d d r ( c d d d
0065200 d r , x ) ) \r
0065220
0065240 , v
0065260 ) ) ) \r \r ( c l : d e f s e t f
0065300 006 002 c l : t e n t h 006 001 ( x
0065320 ) ( v ) \r
0065340 `
0065360 ( c a r ( r p l a c a ( c d
0065400 r ( c d d d d r ( c d d d d
0065420 r , x ) ) ) \r
0065440
0065460 , v
0065500 ) ) ) \r \r ( c l : d e f s e t f
0065520 006 002 c l : r e s t 006 001 ( x )
0065540 ( v ) \r
0065560 ` ( c
0065600 d r ( r p l a c d , x , v
0065620 ) ) ) \r \r ( c l : d e f s e t f
0065640 006 002 c l : n t h c d r 006 001 (
0065660 n l i s t ) ( n e w v a l )
0065700 \r
0065720
0065740 ` ( c d r ( r p l a c d ( c
0065760 l : n t h c d r ( c l : 1 -
0066000 , n ) \r
0066020
*
0066060 , l i s t ) \r
0066100
*
0066140 , n e w v
0066160 a l ) ) ) \r \r ( c l : d e f s e
0066200 t f 006 002 c l : n t h 006 001 % s
0066220 e t n t h ) \r \r ( c l : d e f i
0066240 n e - s e t f - m e t h o d 006
0066260 002 c l : g e t h a s h 006 001 ( k
0066300 e y h a s h t a b l e & o p
0066320 t i o n a l d e f a u l t ) \r
0066340 ( l e t ( ( k e y - t e
0066360 m p ( g e n s y m ) ) \r
0066400 ( h a s h t a b l e
0066420 - t e m p ( g e n s y m ) ) \r
0066440 ( d e f a u l
0066460 t - t e m p ( g e n s y m ) )
0066500 \r ( n e w - v
0066520 a l u e - t e m p ( g e n s y
0066540 m ) ) ) \r ( c l
0066560 : v a l u e s ` ( , k e y - t
0066600 e m p , h a s h t a b l e - t
0066620 e m p , @ ( c l : i f d e f
0066640 a u l t ` ( , d e f a u l t -
0066660 t e m p ) ) ) \r
0066700 ` ( , k e y , h
0066720 a s h t a b l e , @ ( c l : i
0066740 f d e f a u l t ` ( , d e f
0066760 a u l t ) ) ) \r
0067000 ` ( , n e w - v a
0067020 l u e - t e m p ) \r
0067040 ` ( c l : : p
0067060 u t h a s h , k e y - t e m p
0067100 , h a s h t a b l e - t e m p
0067120 , n e w - v a l u e - t e m p
0067140 ) \r
0067160 ` ( c l : g e t h a s h , k
0067200 e y - t e m p , h a s h t a b
0067220 l e - t e m p , @ ( c l : i f
0067240 d e f a u l t ` ( , d e f a
0067260 u l t - t e m p ) ) ) ) ) ) \r \r
0067300 ( c l : d e f i n e - s e t f -
0067320 m e t h o d 006 002 c l : g e t f
0067340 006 001 ( p l a c e p r o p &
0067360 o p t i o n a l d e f a u l t
0067400 & e n v i r o n m e n t e n
0067420 v ) \r ( c l : m u l t i p
0067440 l e - v a l u e - b i n d \r
0067460 ( t e m p s c l : v a l u
0067500 e s s t o r e s s e t g e
0067520 t ) \r ( c l : g e t - s
0067540 e t f - m e t h o d p l a c e
0067560 e n v ) \r ( l e t (
0067600 ( n e w v a l ( g e n s y m )
0067620 ) \r ( p t e
0067640 m p ( g e n s y m ) ) \r
0067660 ( d e f - t e m p
0067700 ( g e n s y m ) ) ) \r
0067720 ( c l : v a l u e s
0067740 ` ( , @ t e m p s , ( c a r
0067760 s t o r e s ) , p t e m p ,
0070000 @ ( c l : i f d e f a u l t
0070020 ` ( , d e f - t e m p ) ) ) \r
0070040 `
0070060 ( , @ c l : v a l u e s , g e
0070100 t , p r o p , @ ( c l : i f
0070120 d e f a u l t ` ( , d e f a
0070140 u l t ) ) ) \r
0070160 ` ( , n e w v a l
0070200 ) \r
0070220 ` ( c o n d \r
0070240 ( ( n
0070260 u l l , ( c a r s t o r e s
0070300 ) ) \r
0070320 ( l e t * , (
0070340 f o r v a r i n ( a p p e
0070360 n d t e m p s s t o r e s )
0070400 \r
0070420
0070440 a s v a l i n ( a p p
0070460 e n d c l : v a l u e s ` (
0070500 ( l i s t , p t e m p , n e
0070520 w v a l ) ) ) \r
0070540
0070560 c o l l e c t
0070600 \r
0070620
0070640 ( l i s t v a r v a l )
0070660 ) , s e t ) \r
0070700 , n e
0070720 w v a l ) \r
0070740 ( t ( l i
0070760 s t p u t , ( c a r s t o r
0071000 e s ) , p t e m p , n e w v
0071020 a l ) ) ) \r
0071040 ` ( c l : g e t f
0071060 , ( c a r s t o r e s ) , p
0071100 t e m p , @ ( c l : i f d e
0071120 f a u l t ` ( , d e f - t e m
0071140 p ) ) ) ) ) ) ) \r \r ( c l : d e
0071160 f i n e - s e t f - m e t h o d
0071200 006 002 c l : a p p l y 006 001 ( f
0071220 u n c t i o n & r e s t a r
0071240 g s & e n v i r o n m e n t
0071260 e n v ) \r ( c l : i f (
0071300 a n d ( l i s t p f u n c t
0071320 i o n ) \r
0071340 ( = ( c l : l i s t -
0071360 l e n g t h f u n c t i o n )
0071400 \r
0071420 2 ) \r
0071440 ( m e m b e r ( c l
0071460 : f i r s t f u n c t i o n )
0071500 \r
0071520 ' ( f u n c t i o
0071540 n c l : f u n c t i o n q u
0071560 o t e ) ) \r
0071600 ( c l : s y m b o l p
0071620 ( c l : s e c o n d f u n c
0071640 t i o n ) ) ) \r
0071660 ( s e t q f u n c t i o n
0071700 ( c l : s e c o n d f u n c
0071720 t i o n ) ) \r
0071740 ( c l : e r r o r " S e t f
0071760 o f A p p l y i s o n l
0072000 y d e f i n e d f o r f u
0072020 n c t i o n a r g s o f f
0072040 o r m # ' s y m b o l . " ) )
0072060 \r ( c l : m u l t i p l e
0072100 - v a l u e - b i n d ( d u m
0072120 m i e s v a l s n e w v a l
0072140 s e t t e r g e t t e r ) \r
0072160 ( c l : g e
0072200 t - s e t f - m e t h o d ( c
0072220 o n s f u n c t i o n a r g
0072240 s ) \r
0072260 e n v ) \r
0072300 \r 006 003
0072320 ( * | M a k e | | s u r e |
0072340 | t h e | | p l a c e | |
0072360 i s | | o n e | | t h a t |
0072400 | w e | | c a n | | h a n
0072420 d l e . | \r 006 001
0072440 006 003 * ) 006 001 \r \r
0072460 ( c l : u n l e s s (
0072500 a n d ( e q ( c a r ( l a
0072520 s t a r g s ) ) \r
0072540
0072560 ( c a r ( l a
0072600 s t v a l s ) ) ) \r
0072620
0072640 ( e q ( c a r ( l
0072660 a s t g e t t e r ) ) \r
0072700
0072720 ( c a r
0072740 ( l a s t d u m m i e s ) ) )
0072760 \r
0073000 ( e q (
0073020 c a r ( l a s t s e t t e r
0073040 ) ) \r
0073060
0073100 ( c a r ( l a s t d u m m
0073120 i e s ) ) ) ) \r
0073140 ( c l : e r r
0073160 o r " A p p l y o f ~ S
0073200 n o t u n d e r s t o o d a
0073220 s a l o c a t i o n f o r
0073240 S e t f . " f u n c t i o n
0073260 ) ) \r ( c l
0073300 : v a l u e s d u m m i e s
0073320 v a l s n e w v a l ` ( c l
0073340 : a p p l y ( f u n c t i o n
0073360 , ( c a r s e t t e r ) ) \r
0073400
*
0073460 , @ ( c d r s e t t e r ) )
0073500 ` ( c l : a p p l y ( f u n
0073520 c t i o n , ( c a r g e t t
0073540 e r ) ) \r
0073560
*
0073640 , @
0073660 ( c d r s e t t e r ) ) ) ) )
0073700 \r \r ( c l : d e f i n e - s e t
0073720 f - m e t h o d 006 002 l d b 006 001
0073740 ( b y t e s p e c p l a c e
0073760 & e n v i r o n m e n t e n
0074000 v ) " T h e f i r s t a r
0074020 g u m e n t i s a b y t e
0074040 s p e c i f i e r . T h e
0074060 s e c o n d i s a n y p
0074100 l a c e f o r m \r a c c e
0074120 p t a b l e t o S E T F .
0074140 R e p l a c e s t h e s p
0074160 e c i f i e d b y t e o f
0074200 t h e n u m b e r i n t h
0074220 i s \r p l a c e w i t h
0074240 b i t s f r o m t h e l o
0074260 w - o r d e r e n d o f t
0074300 h e n e w v a l u e . " \r
0074320 ( c l : m u l t i p l e - v
0074340 a l u e - b i n d ( d u m m i
0074360 e s v a l s n e w v a l s
0074400 e t t e r g e t t e r ) \r
0074420 ( c l : g e t -
0074440 s e t f - m e t h o d p l a c
0074460 e e n v ) \r
0074500 ( l e t ( ( b t e m p ( g
0074520 e n s y m ) ) \r
0074540 ( g n u v a l
0074560 ( g e n s y m ) ) ) \r
0074600 ( c l : v a
0074620 l u e s ( c o n s b t e m p
0074640 d u m m i e s ) \r
0074660
0074700 ( c o n s b y t e s p e c v
0074720 a l s ) \r
0074740 ( l i s t
0074760 g n u v a l ) \r
0075000 `
0075020 ( l e t ( ( , ( c a r n e w
0075040 v a l ) ( d p b , g n u v a
0075060 l , b t e m p , g e t t e r
0075100 ) ) ) \r
0075120
0075140 , s e t t e r \r
0075160
0075200 , g n u v a l ) \r
0075220
0075240 ` ( l d b , b t e m p
0075260 , g e t t e r ) ) ) ) ) \r \r ( c
0075300 l : d e f i n e - s e t f - m e
0075320 t h o d 006 002 c l : m a s k - f
0075340 i e l d 006 001 ( b y t e s p e c
0075360 p l a c e & e n v i r o n m
0075400 e n t e n v ) " T h e f i
0075420 r s t a r g u m e n t i s
0075440 a b y t e s p e c i f i e r
0075460 . T h e s e c o n d i s
0075500 a n y p l a c e f o r m \r
0075520 a c c e p t a b l e t o
0075540 S E T F . R e p l a c e s
0075560 t h e s p e c i f i e d b y
0075600 t e o f t h e n u m b e r
0075620 i n t h i s p l a c e \r
0075640 w i t h b i t s f r o m
0075660 t h e c o r r e s p o n d i n
0075700 g p o s i t i o n i n t h
0075720 e n e w v a l u e . " \r
0075740 ( c l : m u l t i p l e - v a
0075760 l u e - b i n d ( d u m m i e
0076000 s v a l s n e w v a l s e
0076020 t t e r g e t t e r ) \r
0076040 ( c l : g e t - s
0076060 e t f - m e t h o d p l a c e
0076100 ) \r ( l e t
0076120 ( ( b t e m p ( g e n s y m
0076140 ) ) \r
0076160 ( g n u v a l ( g e n s
0076200 y m ) ) ) \r
0076220 ( c l : v a l u e s
0076240 ( c o n s b t e m p d u m m
0076260 i e s ) \r
0076300 ( c o n s
0076320 b y t e s p e c v a l s ) \r
0076340
0076360 ( l i s t g n u v
0076400 a l ) \r
0076420 ` ( l e t
0076440 ( ( , ( c a r n e w v a l )
0076460 ( c l : d e p o s i t - f i e l
0076500 d , g n u v a l , b t e m p
0076520 , g e t t e r ) ) ) \r
0076540
0076560 , s e t t e r \r
0076600
0076620 , g n u
0076640 v a l ) \r
0076660 ` ( c l :
0076700 m a s k - f i e l d , b t e m
0076720 p , g e t t e r ) ) ) ) ) \r \r
0076740 ( c l : d e f i n e - s e t f -
0076760 m e t h o d 006 002 c l : c h a r
0077000 - b i t 006 001 ( p l a c e b i
0077020 t - n a m e & e n v i r o n m
0077040 e n t e n v ) " T h e f i
0077060 r s t a r g u m e n t i s
0077100 a n y p l a c e f o r m a
0077120 c c e p t a b l e t o S E T
0077140 F . R e p l a c e s t h e
0077160 \r s p e c i f i e d b i t
0077200 o f t h e c h a r a c t e
0077220 r i n t h i s p l a c e
0077240 w i t h t h e n e w v a l
0077260 u e . " \r ( c l : m u l t
0077300 i p l e - v a l u e - b i n d
0077320 ( d u m m i e s v a l s n e
0077340 w v a l s e t t e r g e t t
0077360 e r ) \r ( c
0077400 l : g e t - s e t f - m e t h o
0077420 d p l a c e e n v ) \r
0077440 ( l e t ( ( b t
0077460 e m p ( g e n s y m ) ) \r
0077500 ( g
0077520 n u v a l ( g e n s y m ) ) )
0077540 \r
0077560 ( c l : v a l u e s ` ( , @ d
0077600 u m m i e s , b t e m p ) `
0077620 ( , @ v a l s , b i t - n a m
0077640 e ) ( l i s t g n u v a l )
0077660 \r
0077700 ` ( l e t ( ( ,
0077720 ( c a r n e w v a l ) ( c l
0077740 : s e t - c h a r - b i t , g
0077760 e t t e r , b t e m p , g n
0100000 u v a l ) ) ) \r
0100020
0100040 , s e t t e r \r
0100060
0100100 , g n u v a l )
0100120 \r
0100140 ` ( c l : c h a r
0100160 - b i t , g e t t e r , b t
0100200 e m p ) ) ) ) ) \r \r ( c l : d e
0100220 f i n e - s e t f - m e t h o d
0100240 006 002 t h e 006 001 ( t y p e p
0100260 l a c e & e n v i r o n m e n
0100300 t e n v ) \r ( c l : m u
0100320 l t i p l e - v a l u e - b i n
0100340 d ( d u m m i e s v a l s
0100360 n e w v a l s e t t e r g e
0100400 t t e r ) \r
0100420 ( c l : g e t - s e t f - m e t
0100440 h o d p l a c e e n v ) \r
0100460 ( c l : v a l
0100500 u e s d u m m i e s v a l s
0100520 n e w v a l ( c l : s u b s
0100540 t ` ( t h e , t y p e , (
0100560 c a r n e w v a l ) ) ( c a
0100600 r n e w v a l ) \r
0100620
*
0100660 s e t t e r
0100700 ) \r
0100720 ` ( t h e , t y p e ,
0100740 g e t t e r ) ) ) ) \r \r ( c l :
0100760 d e f s e t f 006 002 \ \ g e t b
0101000 a s e p t r 006 001 \ \ p u t b a
0101020 s e p t r ) \r \r ( c l : d e f i
0101040 n e - s e t f - m e t h o d 006
0101060 002 g e t h a s h 006 001 ( k e y
0101100 h a s h t a b l e & o p t i o
0101120 n a l d e f a u l t ) \r
0101140 ( l e t ( ( k e y - t e m p
0101160 ( g e n s y m ) ) \r
0101200 ( h a s h t a b l e - t e
0101220 m p ( g e n s y m ) ) \r
0101240 ( d e f a u l t - t
0101260 e m p ( g e n s y m ) ) \r
0101300 ( n e w - v a l u
0101320 e - t e m p ( g e n s y m ) )
0101340 ) \r ( c l : v a
0101360 l u e s ` ( , k e y - t e m p
0101400 , h a s h t a b l e - t e m p
0101420 , @ ( c l : i f d e f a u l
0101440 t ` ( , d e f a u l t - t e m
0101460 p ) ) ) \r
0101500 ` ( , k e y , h a s h
0101520 t a b l e , @ ( c l : i f d
0101540 e f a u l t ` ( , d e f a u l
0101560 t ) ) ) \r
0101600 ` ( , n e w - v a l u e
0101620 - t e m p ) \r
0101640 ` ( p u t h a s h
0101660 , k e y - t e m p , n e w - v
0101700 a l u e - t e m p , h a s h t
0101720 a b l e - t e m p ) \r
0101740 ` ( g e t h
0101760 a s h , k e y - t e m p , h
0102000 a s h t a b l e - t e m p , @
0102020 ( c l : i f d e f a u l t `
0102040 ( , d e f a u l t - t e m p ) )
0102060 ) ) ) ) \r \r \r ( p u t p r o p s
0102100 006 002 c m l s e t f f i l e t
0102120 y p e 006 001 c l : c o m p i l e
0102140 - f i l e ) \r ( d e c l a r e \
0102160 : d o n t e v a l @ l o a d
0102200 d o e v a l @ c o m p i l e d
0102220 o n t c o p y c o m p i l e r
0102240 v a r s \r \r ( a d d t o v a r
0102260 006 002 n l a m a 006 001 ) \r \r ( a
0102300 d d t o v a r 006 002 n l a m l 006
0102320 001 ) \r \r ( a d d t o v a r 006
0102340 002 l a m a 006 001 c l : g e t - s
0102360 e t f - m e t h o d ) \r ) \r ( p
0102400 u t p r o p s c m l s e t f
0102420 c o p y r i g h t ( " X e r o
0102440 x C o r p o r a t i o n " 1
0102460 9 8 6 ) ) \r ( d e c l a r e \ :
0102500 d o n t c o p y \r ( f i l
0102520 e m a p ( n i l ( 1 6 4 2
0102540 4 1 3 2 ( c l : g e t - s e t
0102560 f - m e t h o d 1 6 5 2 .
0102600 3 6 2 4 ) ( g e t - s i m p l
0102620 e - s e t f - m e t h o d 3 6
0102640 2 6 . 4 1 3 0 ) ) ) ) ) \r s
0102660 t o p \r
0102664