$ od -c -N 50000 [_CDCSL_93-16_]<1>Cedar>release>SchemeLib>Trace.$cheme 0000000 # 001 006 001 022 * t r a c e d - f u n 0000020 c t i o n s * 021 020 I n t e r p 0000040 r e t e d C o d e 022 \0 017 023 023 001 0000060 \a \0 003 037 \a \0 001 024 $ \0 025 * \0 \a \0 021 0000100 002 ( ) \0 \n # 001 006 027 004 l i s t 004 c 0000120 o n s 022 * t r a c e d - f u n c 0000140 t i o n s * 005 q u o t e 006 r e s 0000160 u l t 005 w r i t e \a d i s p l a 0000200 y 004 a r g s 005 t r a c e 003 c a r 0000220 006 o l d - f n \a n e w l i n e 003 0000240 l e t 004 s e t ! 005 b e g i n 003 m 0000260 a p 003 c d r 005 a p p l y 006 l a m 0000300 b d a 005 n u l l ? 004 n a m e 005 n 0000320 a m e s \v m a k e - s y n t a x 0000340 021 020 I n t e r p r e t e d C 0000360 o d e 022 \0 017 023 023 002 \a 026 \a \b 003 037 \n 0000400 \0 002 032 ( 001 003 $ 001 025 * 021 022 A n o 0000420 n y m o u s f u n c t i o n 022 0000440 002 \a 025 \a 024 016 023 023 004 035 \a 023 \a \t \a \0 0000460 \a \0 \a 001 \a 001 \a \0 \a \0 \a \0 \a \0 \a \0 0000500 \a \0 \a \0 \a \0 \a \0 \a 001 \a 001 \a \0 \a 001 0000520 \a 001 \a 001 \a \0 \a 001 \a \0 \a \0 \a 001 \a \0 0000540 \a 001 \a 020 004 037 037 201 ' \0 033 032 \0 003 022 0000560 \n 024 * 033 \0 003 & \0 001 034 025 035 026 027 036 0000600 004 030 005 036 005 036 006 030 006 036 \a 030 \a 001 004 0000620 001 005 030 \b 004 004 005 036 \b 030 \t 001 036 \t 0000640 030 \n 036 \n 036 \v 030 \v 001 004 003 036 \f 030 \f 0000660 030 \r 036 \r 030 016 030 017 004 036 016 030 020 036 017 030 0000700 021 036 020 036 021 030 022 001 004 030 023 004 004 004 030 0000720 024 036 022 030 025 036 023 030 026 036 024 036 025 030 027 030 0000740 030 004 036 026 036 027 030 031 036 030 030 032 001 004 004 0000760 036 031 036 032 030 033 030 034 004 030 035 004 004 004 004 004 0001000 006 006 005 005 036 033 030 036 036 034 \0 003 004 \f 004 0001020 003 \a 017 \a \t \a 002 \a 016 \a \r \a 002 \a 001 \a 0001040 001 \a 003 001 \a 002 \a \r \a \f \a \n \a 022 \a \a 0001060 \a 006 021 \n E n t e r i n g : \a 005 0001100 \a 001 \a 003 001 \a \a 001 \a \v \a \f 001 002 \a 004 0001120 003 \a 021 \a \n \a \a \a 006 021 \b E x i t i 0001140 n g \a 005 \a 003 \a 006 021 004 = > 003 0001160 002 \a 005 \a 004 001 \a \v \a 004 \a \b 021 005 n a 0001200 m e s \0 \a \b 021 002 ( ) \0 \n # 001 006 027 0001220 004 l i s t 004 c o n s 022 * t r a c 0001240 e d - f u n c t i o n s * 005 q u 0001260 o t e 004 s e t ! 005 e n t r y 003 c 0001300 a r 003 m a p \a u n t r a c e 004 a 0001320 r g s \v m a k e - s y n t a x 005 0001340 t h u n k 005 f i r s t 005 n a m e 0001360 s 006 a p p e n d 005 n u l l ? 004 n 0001400 a m e 005 b e g i n 004 m e m q 006 l 0001420 a m b d a \t r e m o v e - i f 003 0001440 c d r 004 a s s q 021 020 I n t e r 0001460 p r e t e d C o d e 022 \0 017 023 023 0001500 002 \a \n \a \b 003 037 \n \0 002 032 ( 001 003 $ 001 0001520 025 * 021 022 A n o n y m o u s f 0001540 u n c t i o n 022 004 \a \t \a \r \a \f \a 0001560 \v 016 023 023 004 \v \a 001 \a 016 \a \a \a \0 \a \0 0001600 \a 017 \a 001 \a 001 \a \0 \a \0 \a \0 004 016 037 W 0001620 \0 024 \0 & \0 002 ( 001 & \0 003 002 022 024 0001640 002 016 027 003 002 & \0 001 032 025 033 034 ( 003 0001660 001 004 035 036 004 027 030 005 036 005 \0 003 022 4 0001700 030 006 016 S 036 006 030 \a 036 \a 036 \b 030 \b 030 \t 0001720 036 \t 030 \n 030 \v 036 \n 030 \f 001 004 005 005 030 0001740 \r 004 004 005 003 004 \n 021 022 A n o n y m 0001760 o u s f u n c t i o n 022 \0 017 023 0002000 023 003 \a \a \a 006 \a 002 001 037 006 \0 003 032 033 034 0002020 \n 021 002 ( ) \0 \a 021 021 022 A n o n y 0002040 m o u s f u n c t i o n 022 001 \a 0002060 020 017 024 024 004 005 \a \0 \a \0 \a 001 \a 001 \a \0 0002100 004 006 037 027 \0 \v 032 024 \0 033 025 034 026 035 036 0002120 004 027 \0 004 030 005 004 004 004 \v \a 004 \a 025 \a 0002140 026 \a 003 001 \a 002 021 006 ( n a m e ) \0 \a 0002160 004 \a 002 002 \a 003 \0 \a 024 \a 023 001 \a 005 \a 022 0002200 002 \a 006 \a 005 \a 003 001 \a 002 021 004 a r g s 0002220 \0 \a \b 021 002 ( ) \0 \n 0002231