$ od -c -N 50000 [_CDCSL_93-16_]<1>Cedar>release>SchemeLib>Debugger.$cheme 0000000 # 001 006 002 020 * d e b u g g e r - l 0000020 e v e l * \f m a k e - d y n a m 0000040 i c 021 020 I n t e r p r e t e d 0000060 C o d e 022 \0 017 023 023 002 \a 001 \a \0 003 0000100 037 \t \0 002 032 024 003 $ 001 025 * 023 \a \0 021 002 0000120 ( ) \0 \n # 001 006 ? 006 f o r m a t 004 0000140 m e m v 005 i n n e r 004 l o o p \v 0000160 d y n a m i c - r e f 003 n o t \n 0000200 f r a m e - l i n k \a n e w l i 0000220 n e 003 e q ? \t r e a d - c h a r 0000240 \n f r a m e - n a m e 003 e n v 005 0000260 f r a m e 030 * t o p - l e v e l 0000300 - c o n t i n u a t i o n * 020 * 0000320 d e b u g g e r - l e v e l * 026 0000340 * s y s t e m - e r r o r - h a 0000360 n d l e r * 004 n a m e 022 r e a l 0000400 - e r r o r - h a n d l e r \n b 0000420 o d y - t h u n k 031 c a l l - w 0000440 i t h - d y n a m i c - b i n d 0000460 i n g 016 p r o t e c t e d - e v 0000500 a l 017 p r i n t - v a r i a b l 0000520 e s 020 p r i n t - f r a m e - n 0000540 a m e 004 c h a r 004 r e a d 022 e n 0000560 v i r o n m e n t - p a r e n t 0000600 006 i n d e n t 002 : q 004 u s e r 006 0000620 c h a r = ? \f c h a n g e - l o 0000640 o k s 021 f r a m e - e n v i r o 0000660 n m e n t \v u n r e a d - c h a 0000700 r 002 : r 002 : b 002 : f \r s t r i n 0000720 g - a p p e n d 004 : f r * 003 : f 0000740 r 003 : b t 001 ? 004 e v a l 004 t 1 0 0000760 0 003 t 9 7 001 k 036 c a l l - w i t 0001000 h - c u r r e n t - c o n t i n 0001020 u a t i o n 004 e x p r 005 v a l u 0001040 e 020 w a l k - e n v i r o n m e 0001060 n t \v e o f - o b j e c t ? \a d 0001100 i s p l a y \t n e w - f r a m e 0001120 004 t 1 0 2 \a c o m m a n d 005 i n 0001140 p u t \r c u r r e n t - f r a m 0001160 e 003 t 9 6 001 + 003 t 9 5 005 n u l l 0001200 ? \a m e s s a g e \a c u l p r i 0001220 t \f p a r e n t - f r a m e 021 0001240 020 I n t e r p r e t e d C o d 0001260 e 022 \0 017 023 023 001 \a 017 003 037 \b \0 001 ( 001 0001300 $ \0 025 * \a 017 022 005 \a > \a 020 \a = \a 0001320 < \a 021 017 027 004 027 004 004 005 \a \0 \a \0 \a ; 0001340 \a 004 \a \r 004 020 037 ? \0 \v 024 & \0 004 ( 002 0001360 & \0 004 032 026 027 030 005 030 006 030 \a 001 030 \b 0001400 030 \t 003 030 \n 006 \n # 033 030 \v 030 \f 030 \r 0001420 002 030 016 006 005 # 034 \0 003 022 < 035 036 004 0001440 003 030 017 \t 004 \b 017 \a 021 022 003 \a : \a 0001460 8 \a 022 017 023 023 004 006 \a \0 \a 016 \a 9 \a 004 0001500 \a 016 \a 023 004 \a 037 ' \0 005 032 024 025 026 027 006 0001520 004 # 033 & \0 \0 034 035 036 004 003 030 005 004 & \0 0001540 001 ( 006 & \0 002 036 005 \0 001 002 \v 016 0001560 021 0 ~ L ( T y p e ' ? ' f o 0001600 r h e l p i n u s i n g 0001620 t h e d e b u g g e r . ) ~ L 0001640 ~ % 021 001 i 021 001 I 024 021 022 A n o n 0001660 y m o u s f u n c t i o n 022 001 0001700 \a 003 017 023 023 \0 003 037 021 \0 002 024 & \0 \0 ( 0001720 002 & \0 \0 \0 ! 002 \0 \t 017 \a 003 022 \r 0001740 \a 7 \a 6 \a 5 \a 026 \a 025 \a 024 \a 4 \a 002 0001760 \a 002 \a 3 \a 002 \a 003 \a 027 017 024 024 004 ) \a 0002000 \0 \a 004 \a 016 \a 030 \a 1 \a 001 \a 2 \a 001 \a 0002020 036 \a 036 \a 001 \a \a \a 037 \a \a \a 001 \a \a \a 0002040 037 \a \a \a 001 \a 006 \a 005 \a \0 \a 001 \a \b \a 0002060 \0 \a 001 \a \0 \a \n \a \0 \a \0 \a \t \a \t \a 0002100 035 \a \a 030 \a 034 \a 001 \a 004 \a \r \a \0 \a 0002120 034 004 1 037 203 P \0 \a 032 024 025 026 033 034 003 027 0002140 006 005 # 035 002 & \0 001 036 004 001 003 022 035 030 0002160 005 016 037 001 & \0 002 030 006 & \0 003 030 \a & 0002200 \0 004 030 \b & \0 005 ( \t & \0 003 ( \n & \0 0002220 004 ( \v & \0 005 002 & \0 006 036 005 006 030 0002240 \f 004 022 Z 036 006 030 \r 003 # ! 001 \0 \0 \t 0002260 036 \a 006 030 016 004 022 206 036 \b 030 017 003 # 030 0002300 020 & \0 \a ( 021 & \0 \a \a ! 003 \0 003 # 0002320 036 \t 030 022 003 # ! 001 \0 \0 \t 036 \n 006 0002340 030 023 004 022 256 003 \0 003 # 036 \v 002 # 0002360 004 036 \f \0 003 030 024 004 # 036 \r 002 # ! 001 0002400 \0 \0 \t 036 016 006 030 025 004 022 340 003 0002420 \0 003 # 036 017 002 # 030 026 & \0 \b ( 027 & \0 0002440 \b \b 036 020 \0 003 030 030 004 # 036 021 002 # 0002460 ! 001 \0 \0 \t 036 022 006 030 031 004 023 001 024 0002500 036 023 \0 003 & \0 \t 036 024 \t 003 023 001 \b 0002520 036 025 030 032 030 033 004 # ! 001 \0 \0 \t 003 0002540 \t 003 # ! 001 \0 \t \t 036 026 006 030 034 0002560 004 023 001 G 036 027 \0 ! 003 \0 004 023 001 7 036 0002600 030 030 035 030 036 004 # ! 001 \0 \0 \t 030 037 & 0002620 \0 \n ( & \0 \n \n ! 003 \0 \t 036 031 0002640 006 030 ! 004 023 001 244 036 032 030 " 030 # 036 033 ! 0002660 003 \0 003 005 # 036 034 030 $ 030 % 004 # 036 035 030 0002700 & 030 ' 004 # 030 ( & \0 \v ( ) & \0 \v 0002720 \v 036 036 002 003 # 036 037 002 & \0 \f 036 \f 0002740 030 * 004 023 001 226 ! 001 \0 \0 \t 036 ! \f 0002760 003 # 005 036 " 002 036 # \n 036 $ 006 030 + 0003000 004 023 001 266 036 % 036 & 003 030 , \t 036 ' 030 - 0003020 030 . 030 / 005 002 036 ( 004 030 0 006 005 # 0003040 ! 001 \0 \0 \t 016 021 016 ~ L D e b u g 0003060 ~ S > ~ L 021 001 b 021 001 B \a 033 017 0003100 017 017 \a 026 022 001 \a \f 017 024 024 002 \a \0 \a 0003120 \n 004 005 037 \r \0 006 032 024 025 026 033 \0 003 027 0003140 \f 005 016 021 \b ~ L ~ S ~ L ~ % 021 001 f 0003160 021 001 F 021 \a ( f r a m e ) \0 \a 025 0003200 022 002 \a \v \a 032 017 027 002 027 002 002 \a 031 \a 0 0003220 003 037 020 \0 003 032 \0 003 022 016 033 ( 001 \0 0003240 \n 025 * 021 022 A n o n y m o u s 0003260 f u n c t i o n 022 002 \a 020 \a / 017 027 0003300 002 027 002 001 \a \0 004 005 037 020 \0 \b 032 024 025 026 0003320 ! 001 001 \0 001 027 \f \a 016 021 016 ~ L ~ 0003340 A ~ S : ~ S ~ L ~ % 021 001 f 021 001 0003360 F 021 \f ( n a m e v a l u e ) \0 0003400 036 021 \f ( e n v i n d e n t ) \0 0003420 \a 024 022 002 \a . \a \v 017 027 002 027 002 001 \a 0003440 - 002 037 006 \0 002 032 ( 001 \t 021 022 A n o 0003460 n y m o u s f u n c t i o n 022 0003500 004 \a , \a + \a * \a 022 017 024 024 002 \a \r \a 0003520 023 002 037 030 \0 004 032 & \0 001 \0 & \0 002 ( 0003540 001 & \0 003 033 001 002 003 \v 021 022 A 0003560 n o n y m o u s f u n c t i o 0003600 n 022 \0 017 023 023 001 \a ) 001 037 \n \0 003 032 ! 0003620 002 \0 ! 002 001 \n 021 002 ( ) \0 021 003 ( k ) 0003640 \0 021 \n ( e x p r e n v ) \0 001 \a 0003660 ( 021 203 C T y p e a c o m m a 0003700 n d o r a n e x p r e s s 0003720 i o n t o b e e v a l u a 0003740 t e d i n t h e t o p - l 0003760 e v e l e n v i r o n m e n t 0004000 . T h e f o l l o w i n g 0004020 c o m m a n d s a r e a v 0004040 a i l a b l e : \n \n ? \t P r 0004060 i n t s t h i s m e s s a g 0004100 e . \n : b t \t P r i n t a 0004120 b a c k t r a c e . \n : f 0004140 r \t P r i n t s v a r i a b l 0004160 e s i n c u r r e n t f r 0004200 a m e . \n : f r * \t S a m e 0004220 a s : f r , b u t i n c 0004240 l u d e s n e s t e d s c o 0004260 p e s . \n : f \t M o v e s 0004300 o n t o t h e n e x t o 0004320 u t e r c o n t i n u a t i o 0004340 n f r a m e . \n : b \t M o 0004360 v e s b a c k t o t h e 0004400 p r e v i o u s c o n t i n u 0004420 a t i o n f r a m e . \n : 0004440 r \t R e s u m e s t h e c o 0004460 m p u t a t i o n w i t h a 0004500 v a l u e p r o v i d e d 0004520 b y t h e u s e r . \n : 0004540 q \t A b o r t s t o t o p 0004560 l e v e l . \n 001 \a ' 021 001 f 017 \a 0004600 002 022 001 \a \f 017 024 024 004 006 \a 005 \a 005 \a \0 0004620 \a \b \a \n \a 006 004 006 037 . \0 006 032 033 \0 0004640 003 003 022 + 034 024 025 035 \0 ! 001 \0 004 022 031 0004660 026 016 032 027 036 004 \0 003 006 004 # ! 001 \a 036 0004700 005 \0 003 \t 030 005 * 016 021 006 ~ A ~ S ~ 0004720 % 021 003 = > 021 003 036 021 \a ( f 0004740 r a m e ) \0 021 001 F 001 \a & 021 004 0004760 001 \a % 017 \a 002 022 002 \a \v \a 032 017 0005000 027 002 027 002 002 \a 031 \a $ 003 037 036 \0 005 \0 0005020 022 034 ! 001 004 \0 001 004 # ! 001 \b 032 0005040 \0 003 033 001 024 004 \n 025 * 021 004 0005060 036 021 \f ( e n v i n d e n t ) \0 0005100 021 004 001 \a # 016 021 020 N o n 0005120 e x t f r a m e . ~ % 001 \a " 016 0005140 021 024 N o p r e v i o u s f r 0005160 a m e . ~ % 017 \a 002 022 001 \a \f 017 024 0005200 024 003 \a \b \a 006 \a 006 001 037 " \0 003 032 033 0005220 \0 003 ! 001 \0 004 022 032 ! 001 003 \0 003 # ! 0005240 002 \0 \0 \t ! 001 \n 034 \0 003 \t 021 \a ( 0005260 f r a m e ) \0 001 \a ! 016 021 032 R e t 0005300 u r n i n g a v a l u e t 0005320 o ~ S . ~ % 016 021 J T h e f o 0005340 l l o w i n g e x p r e s s i 0005360 o n w i l l b e e v a l u 0005400 a t e d i n t h e t o p - 0005420 l e v e l e n v i r o n m e n 0005440 t . ~ % 016 021 7 ~ % E x p r e s s 0005460 i o n t o s u p p l y v a 0005500 l u e ( C R t o a b o r t 0005520 r e s u m p t i o n ) : 017 0005540 \a 003 022 001 \a 027 017 024 024 003 \a 005 \a 035 \a \t 0005560 003 037 023 \0 004 032 033 \0 024 004 003 022 021 ! 001 0005600 \v 034 002 \t 025 * 020 \n 036 021 006 ( c h a r 0005620 ) \0 020 \n 001 \a 033 021 021 B a c k t o 0005640 t o p l e v e l 016 021 \b ~ L ~ 0005660 S ~ L ~ % 021 001 i 021 001 I 021 017 ( c u 0005700 r r e n t - f r a m e ) \0 021 002 ( 0005720 ) \0 021 002 ( ) \0 016 021 037 ~ % ~ L E r 0005740 r o r ~ L i n ~ L ~ S ~ L : 0005760 ~ L ~ A ~ L ~ % 021 002 z i 021 001 Z 0006000 021 002 I f 021 001 F 021 001 i 021 001 I 016 021 020 0006020 ~ L ~ S ~ L ~ % ~ % 0006040 021 001 f 021 001 F 021 021 B a c k t o 0006060 t o p l e v e l 021 # ( p a r e 0006100 n t - f r a m e n a m e c u 0006120 l p r i t m e s s a g e ) \0 \a 0006140 017 021 002 ( ) \0 \n # 001 006 002 030 * t o p 0006160 - l e v e l - c o n t i n u a t 0006200 i o n * \f m a k e - d y n a m i 0006220 c 021 020 I n t e r p r e t e d 0006240 C o d e 022 \0 017 023 023 002 \a 001 \a \0 003 037 0006260 \t \0 002 032 024 003 $ 001 025 * 017 \a \0 021 002 ( 0006300 ) \0 \n # 001 006 004 030 * t o p - l e v 0006320 e l - c o n t i n u a t i o n * 0006340 \f d y n a m i c - s e t ! 001 k \a 0006360 c a l l / c c 021 020 I n t e r p 0006400 r e t e d C o d e 022 \0 017 023 023 001 0006420 \a 003 002 037 006 \0 002 032 ( 001 \t 021 022 A n 0006440 o n y m o u s f u n c t i o n 0006460 022 001 \a 002 017 024 024 002 \a 001 \a \0 001 037 \a \0 0006500 003 032 033 \0 \n 021 003 ( k ) \0 021 002 ( ) 0006520 \0 \n 0006522