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