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