$ od -c -N 50000 [_CDCSL_93-16_]<1>Cedar>release>SchemeLib>Expand.$cheme 0000000 # 001 006 020 003 c a r \v e x p a n d - 0000020 o n c e 004 f o r m 003 e n v 004 r e 0000040 s t 004 u s e r 005 n u l l ? 005 v a 0000060 l u e 003 c d r 017 s y n t a x - e 0000100 x p a n d e r 005 a p p l y \a s y 0000120 n t a x ? 017 e n v i r o n m e n 0000140 t - r e f 022 e n v i r o n m e n 0000160 t - b o u n d ? \a s y m b o l ? 0000200 005 p a i r ? 021 020 I n t e r p r 0000220 e t e d C o d e 022 \0 017 023 023 001 \a 0000240 001 003 037 \b \0 001 ( 001 $ \0 025 * \a 001 022 0000260 004 \a 002 \a 004 \a 003 \a \a 016 024 024 004 016 \a 006 0000300 \a 005 \a \0 \a 017 \a 016 \a \0 \a \r \a \0 \a \f 0000320 \a \0 \a \v \a \n \a \t \a \b 003 037 [ \0 004 032 0000340 001 003 022 \v 033 016 017 034 001 003 & \0 002 035 0000360 \0 003 022 1 036 004 036 005 \0 003 003 022 . 036 0000400 006 002 036 \a \0 003 004 016 / 024 016 2 025 022 0000420 X 036 \b 002 036 \t \0 003 004 & \0 003 036 \n 0000440 003 003 022 U 036 \v 036 \f 003 003 036 \r \0 0000460 003 \n \0 * \0 * 017 017 021 ~ ( f o r 0000500 m [ e n v ] ) D o o n e 0000520 s t e p o f t h e e x p a 0000540 n s i o n o f t h e g i v 0000560 e n f o r m i n t h e g 0000600 i v e n e n v i r o n m e n t 0000620 ( o r t h e U S E R e n 0000640 v i r o n m e n t i f n o t 0000660 p r o v i d e d ) \0 \a 001 021 002 ( 0000700 ) \0 \n # 001 006 ! 003 c a r 004 c o n s 0000720 003 e q ? 006 e x p a n d 004 c a d r 0000740 004 c d d r 004 m e m v 003 c d r 004 u 0000760 s e r 005 n u l l ? 005 i n n e r 004 0001000 c m a p 004 f o r m 004 r e s t 003 e 0001020 n v 005 x f o r m 004 t a i l 004 h e 0001040 a d 003 l s t 002 f n 005 p a i r ? \v 0001060 e x p a n d - o n c e \a n e w - 0001100 e n v 005 x b o d y 004 t 2 3 4 005 b 0001120 e g i n 004 e v a l \v m a k e - s 0001140 y n t a x 023 e n v i r o n m e n 0001160 t - d e f i n e ! \a b i n d i n 0001200 g 024 p r i m i t i v e - l e t - 0001220 s y n t a x \b f o r - e a c h 020 0001240 m a k e - e n v i r o n m e n t 0001260 021 020 I n t e r p r e t e d C 0001300 o d e 022 \0 017 023 023 001 \a 003 003 037 \b \0 001 0001320 ( 001 $ \0 025 * \a 003 022 005 \a \f \a \r \a 0001340 016 \a \v \a \n 016 024 024 003 \a \t \a \b \a \0 004 0001360 005 037 ) \0 002 032 001 003 022 \v 033 016 017 034 0001400 001 003 & \0 002 024 & \0 003 025 & \0 004 ( 003 & 0001420 \0 003 ( 004 & \0 004 004 \0 \t 017 017 \a 0001440 \v 022 004 \a 023 \a 022 \a 021 \a 020 017 027 002 027 002 0001460 004 \b \a \t \a \0 \a \a \a 002 \a \0 \a 002 \a \a 0001500 \a 001 002 037 F \0 004 032 001 003 022 \v 001 * 0001520 \0 033 001 003 003 & \0 002 ! 001 003 \0 034 0001540 001 003 004 & \0 003 035 002 036 004 001 003 004 0001560 022 9 036 005 003 036 006 001 003 004 016 : 024 022 0001600 ? 001 * 036 \a 002 003 \n 017 021 5 ( f 0001620 n l s t ) c o n s e r v a t 0001640 i v e m a p ; a v o i d s 0001660 c o n s w h e r e p o s s i 0001700 b l e \0 \a \n 022 005 \a \f \a 017 \a 030 \a 0001720 027 \a 026 017 024 024 004 023 \a 025 \a 002 \a 024 \a \0 0001740 \a 006 \a 006 \a 005 \a 002 \a 005 \a 001 \a 001 \a 004 0001760 \a 006 \a \a 037 \a 004 \a 003 \a 001 \a 005 004 \b 0002000 037 201 037 \0 005 032 \0 ! 001 002 004 & \0 001 033 0002020 \0 001 004 022 231 034 \0 003 022 226 035 \0 0002040 003 & \0 002 036 004 002 024 004 022 , \0 * 036 0002060 005 002 025 004 022 ` ! 001 003 ! 001 004 036 006 0002100 \0 003 004 & \0 003 036 \a 003 036 \b \0 003 004 0002120 022 R \0 * 036 \t 026 036 \n 036 \v \0 003 0002140 003 004 \n 036 \f 002 027 004 022 215 036 \r 030 005 ! 0002160 001 002 004 & \0 004 036 016 ( 006 036 017 \0 003 004 0002200 # 036 020 036 021 030 \a 036 022 \0 003 004 004 \n 0002220 ! 001 003 ! 001 004 \0 \n \0 * ! 001 004 0002240 001 \t 001 \b 001 \v \v 001 \a 036 021 \n l e t - 0002260 s y n t a x 021 022 A n o n y m o 0002300 u s f u n c t i o n 022 001 \a 035 017 0002320 024 024 004 006 \a 034 \a \0 \a 033 \a 032 \a 004 \a \b 0002340 001 037 026 \0 \a 032 ! 001 004 033 \0 003 034 035 036 0002360 004 \0 003 036 005 004 003 \v 021 \t ( b i n d 0002400 i n g ) \0 \a 031 021 006 ( f o r m ) \0 0002420 021 O ( f o r m [ e n v ] ) E 0002440 x p a n d t h e f o r m t 0002460 o g r o u n d t e r m s i 0002500 n t h e e n v i r o n m e n 0002520 t g i v e n ( o r U S E R 0002540 ) \0 \a 003 021 002 ( ) \0 \n # 001 006 033 \v e 0002560 x p a n d - f i l e 004 r e a d \r 0002600 s t r i n g - a p p e n d 004 l o 0002620 o p 005 p a i r ? 003 e q ? \a n e w 0002640 l i n e \f b i n a r y - w r i t 0002660 e 004 c a d r 006 f o r m a t 003 c d 0002700 r 003 c a r 004 u s e r 006 e x p a n 0002720 d \v e o f - o b j e c t ? 003 n o 0002740 t 005 x f o r m 004 f o r m 021 c l o 0002760 s e - o u t p u t - p o r t 020 c 0003000 l o s e - i n p u t - p o r t 003 0003020 o u t 002 i n 020 o u t p u t - f i 0003040 l e - n a m e 017 o p e n - i n p 0003060 u t - f i l e 020 o p e n - o u t 0003100 p u t - f i l e 017 i n p u t - f 0003120 i l e - n a m e 016 f i l e - n a 0003140 m e - r o o t 021 020 I n t e r p 0003160 r e t e d C o d e 022 \0 017 023 023 001 0003200 \a \0 003 037 \b \0 001 ( 001 $ \0 025 * \a \0 0003220 022 006 \a 032 \a 031 \a 026 \a 025 \a 024 \a 003 017 024 0003240 024 004 \a \a 002 \a 002 \a 027 \a 030 \a 001 \a 023 \a 0003260 022 004 005 037 = \0 003 032 \0 024 004 & \0 001 033 0003300 \0 025 004 & \0 002 034 001 003 & \0 003 035 0003320 002 003 & \0 004 026 & \0 005 ( 004 & \0 005 005 0003340 036 004 003 003 003 # 036 005 003 003 # 036 006 0003360 004 \t 021 \a . s c h e m e 021 \a . $ c 0003400 h e m e 017 \a 003 022 002 \a 021 \a 020 017 024 0003420 024 004 016 \a 017 \a 016 \a \r \a \f \a \a \a 006 \a 0003440 004 \a 005 \a \v \a 004 \a \n \a \t \a \b \a 001 004 0003460 \a 037 _ \0 005 032 033 \0 003 003 022 \ 034 \0 0003500 035 004 & \0 001 036 004 001 ! 001 004 004 # 036 005 0003520 ! 001 004 003 # 036 006 001 003 022 A 036 \a 036 \b 0003540 001 003 024 004 022 > 036 \t 036 \n 001 003 003 016 0003560 ? 025 016 B 026 022 R 036 \v 027 030 005 036 \f 001 0003600 003 005 # 016 R ! 001 005 036 \r ! 001 003 003 \t 030 0003620 006 * \t 017 017 016 021 004 ~ S ~ % 036 021 006 ( 0003640 f o r m ) \0 021 V ( f i l e - n a 0003660 m e - r o o t ) w r i t e s 0003700 a v e r s i o n o f t h e 0003720 f i l e w i t h t h e s 0003740 y n t a x e x p a n d e d t 0003760 o g r o u n d t e r m s \0 \a 0004000 \0 021 002 ( ) \0 \n # 001 006 002 030 * s y s 0004020 t e m - s y n t a x - e x p a n 0004040 d e r * 006 e x p a n d 021 020 I n 0004060 t e r p r e t e d C o d e 022 \0 0004100 017 023 023 002 \a 001 \a \0 002 037 \a \0 001 032 $ 001 0004120 024 * \a \0 021 002 ( ) \0 \n 0004132