$ od -c -N 50000 [_CDCSL_93-16_]<1>Cedar>release>SchemeLib>Records.$cheme 0000000 # 001 006 O 003 c d r 005 e r r o r \f % 0000020 r e c o r d - s e t ! 003 c a r 003 0000040 n o t 006 f o r m a t 004 n a m e \n 0000060 c o o k i e - m a p 004 s i z e \v 0000100 % r e c o r d - r e f 016 r e c o 0000120 r d - u p d a t e r 017 r e c o r 0000140 d - a c c e s s o r 020 r e c o r 0000160 d - p r e d i c a t e 022 r e c o 0000200 r d - c o n s t r u c t o r 020 m 0000220 a k e - r e c o r d - t y p e 006 0000240 r e c o r d 004 l o o p 004 c o n s 0000260 \n d e s c r i p t o r 005 i n d e 0000300 x \a i n d i c e s 004 c d a r 003 e 0000320 q ? 016 % r e c o r d - l e n g t 0000340 h \b % r e c o r d ? 004 c a a r \r 0000360 a l l - f i e l d - m a p \t f i 0000400 e l d - m a p 006 l e n g t h 001 = 0000420 \v f i e l d - n a m e s \n p r i 0000440 n t - p r o c 006 c o o k i e 005 v 0000460 a l u e 002 > = 004 p a i r 005 n u l 0000500 l ? 001 + 003 m a p \f % m a k e - r 0000520 e c o r d 004 a r g s \n f i e l d 0000540 - n a m e 004 a s s q \f c o o k i 0000560 e - i n d e x \b d i s p l a y ? 0000600 004 p o r t 021 c o m p u t e - f i 0000620 e l d - m a p 020 p r i n t - d e 0000640 s c r i p t o r 002 < = \v p a r e 0000660 n t - s i z e 005 t h u n k 005 f i 0000700 r s t 017 d e f a u l t - p r i n 0000720 t e r 030 m a k e - d e s c r i p 0000740 t o r - a c c e s s o r \v d e s 0000760 c r i p t o r ? 017 m a k e - d e 0001000 s c r i p t o r 021 d e s c r i p 0001020 t o r - c o o k i e 030 d e s c r 0001040 i p t o r - a l l - f i e l d - 0001060 m a p 024 d e s c r i p t o r - f 0001100 i e l d - m a p 017 d e s c r i p 0001120 t o r - s i z e 017 d e s c r i p 0001140 t o r - n a m e 003 l s t \n n e w 0001160 - c o o k i e 017 r e a l - p r i 0001200 n t - p r o c 004 c a d r 004 c d d 0001220 r 025 d e s c r i p t o r - p r i 0001240 n t - p r o c 025 d e s c r i p t 0001260 o r - c o o k i e - m a p 022 d e 0001300 s c r i p t o r - i n d i c e s 0001320 004 l i s t 004 r e s t \n p a r e n 0001340 t - m a p 006 p a r e n t 005 n a r 0001360 g s \a d i s p l a y \b f o r - e 0001400 a c h 005 c o u n t 006 a p p e n d 0001420 \a r e v e r s e 021 020 I n t e r 0001440 p r e t e d C o d e 022 023 \a = \a 0001460 016 \a \r \a \f \a \v \a \n \a 4 \a 8 \a 7 \a 0001500 6 \a 5 \a < \a ; \a : \a 9 \a D \a C \a 0001520 B \a / 017 023 023 004 026 \a 016 \a \r \a \f \a \v 0001540 \a \n \a 021 \a E \a 003 \a 016 \a \0 \a 003 \a \r 0001560 \a \0 \a 003 \a \f \a \0 \a 003 \a \v \a \0 \a 003 0001600 \a \n \a \0 004 : 037 202 u \0 006 024 $ \0 025 $ 0001620 001 026 $ 002 027 $ 003 030 005 $ 004 030 006 & \0 001 0001640 030 \a & \0 002 030 \b & \0 003 030 \t & \0 004 030 0001660 \n & \0 005 030 \v & \0 006 030 \f & \0 \a 030 \r 0001700 & \0 \b 030 016 & \0 \t 030 017 & \0 \n 030 020 & 0001720 \0 \v 030 021 & \0 \f 030 022 & \0 \r 030 023 & \0 0001740 016 030 024 & \0 017 030 025 & \0 020 030 026 & \0 021 0001760 030 027 & \0 022 ( 030 & \0 001 ( 031 & \0 002 ( 0002000 032 & \0 003 ( 033 & \0 004 ( 034 & \0 005 ( 035 0002020 & \0 006 030 036 & \0 \a ( 037 & \0 \b ( & 0002040 \0 \t ( ! & \0 \n 030 " & \0 \v 030 # & \0 0002060 \f 030 $ & \0 \r 030 % & \0 016 030 & & \0 017 0002100 030 ' & \0 020 030 ( & \0 021 ( ) & \0 022 036 0002120 005 022 030 * 004 & \0 \a \n 030 + 030 , 004 0002140 & \0 \v \n 030 - 030 . 004 & \0 \f \n 030 0002160 / 030 0 004 & \0 \r \n 030 1 030 2 004 & \0 0002200 016 \n 030 3 030 4 004 & \0 017 \n 030 5 030 0002220 6 004 & \0 020 \n 030 7 030 8 004 & \0 021 036 0002240 006 001 002 003 004 005 006 005 & \0 \0 0002260 036 \a \0 003 $ \b 036 \t \0 003 & \0 \0 036 0002300 \n \0 003 $ \v 036 \f \0 003 & \0 \0 036 \r 0002320 \0 003 $ 016 036 017 \0 003 & \0 \0 036 020 0002340 \0 003 $ 021 036 022 \0 003 & \0 \0 036 023 \0 0002360 003 $ 024 036 025 \0 003 & \0 \0 030 9 * 017 017 0002400 017 017 017 017 017 017 017 017 017 017 017 017 017 017 017 017 0002420 017 017 017 017 017 \a 016 022 021 \a 006 \a 036 \a F 0002440 \a . \a I \a H \a 037 \a G \a 1 \a 033 \a 032 0002460 \a ? \a 3 \a 2 \a \b \a > \a \a 016 027 002 027 0002500 002 004 021 \a 034 \a 035 \a 003 \a 0 \a @ \a 004 \a 0002520 0 \a 001 \a A \a M \a % \a 034 \a 021 \a 021 \a 0002540 021 \a & \a \0 004 017 037 201 l \0 \b 024 & \0 003 0002560 ( 002 & \0 003 032 002 003 & \0 004 033 004 026 0002600 004 022 034 027 016 034 002 003 & \0 005 035 004 0002620 030 005 004 022 / 030 006 016 4 036 004 002 003 & \0 0002640 006 036 005 036 006 004 030 \a 004 003 022 R 036 \a 030 0002660 \b 036 \b 002 003 030 \t 005 # 016 R 005 022 ^ 0002700 ! 001 016 005 003 016 ` 030 \n & \0 \a 005 022 0002720 o ! 001 \f 005 003 016 q 030 \v & \0 \b 003 0002740 \b 001 004 & \0 \t 036 \t \a \t 004 & 0002760 \0 \n 006 & \0 \f ( \f & \0 \r \f 022 232 0003000 \f 016 235 \r 002 & \0 \v 036 \n \b 030 \r 0003020 036 \v 001 003 005 & \0 016 036 \f \v 016 004 0003040 & \0 017 036 \r 036 016 017 \b 004 005 022 316 0003060 ! 001 020 005 003 016 320 030 016 004 & \0 020 ! 001 0003100 \b \0 016 \t \n 036 017 036 020 \n 004 0003120 020 006 \f \a 017 \a . 022 003 \a 1 \a 036 0003140 \a 020 017 027 002 027 002 001 \a % 004 005 037 026 \0 004 0003160 024 & \0 002 ( 002 & \0 002 002 032 \0 026 004 0003200 001 027 \v 017 \a 020 022 003 \a 023 \a 036 \a 033 0003220 017 027 003 027 003 004 \a \a $ \a N \a % \a \0 \a 0003240 021 \a 021 \a 003 002 037 ( \0 \a 032 001 003 022 \f 0003260 033 002 \t ! 001 002 034 \0 024 004 035 001 003 0003300 036 004 036 005 036 006 001 003 \0 004 002 004 \v 0003320 024 021 035 ( i n d e x f i e l d - 0003340 n a m e s f i e l d - m a p ) 0003360 \0 024 \0 021 031 ( p a r e n t - s i z 0003400 e f i e l d - n a m e s ) \0 023 0003420 017 024 017 027 002 \a 016 021 022 T o o m a n 0003440 y a r g u m e n t s \0 023 021 022 0003460 A n o n y m o u s f u n c t i 0003500 o n 022 002 \a 3 \a 2 017 023 023 \0 003 037 # \0 0003520 002 ! 001 005 022 020 ! 002 021 ! 001 005 003 016 021 024 0003540 & \0 \0 ( 002 & \0 001 \0 022 \0 * 0003560 001 \b 017 021 022 A n o n y m o u s 0003600 f u n c t i o n 022 \0 017 023 023 \0 001 037 0003620 \f \0 003 ! 003 006 ! 002 \0 ! 002 \n \n 021 002 ( 0003640 ) \0 021 002 ( ) \0 024 \0 021 031 ( n a m e 0003660 f i e l d - n a m e s . r 0003700 e s t ) \0 \a \r 022 006 \a 022 \a \b \a L 0003720 \a 024 \a \a \a 006 017 024 024 003 \a 004 \a 001 \a 034 0003740 004 004 037 G \0 004 032 ! 001 \t \0 003 003 022 025 0003760 033 024 \0 025 005 # 016 025 ! 001 \f \0 003 & 0004000 \0 001 034 ! 001 016 \0 003 003 & \0 002 ! 001 017 0004020 \0 003 & \0 003 ! 001 020 \0 003 & \0 004 ! 0004040 001 \v \0 003 & \0 005 ( 003 * \a \r 021 034 n 0004060 o t a r e c o r d - t y p e 0004100 d e s c r i p t o r 021 022 A n 0004120 o n y m o u s f u n c t i o n 0004140 022 004 \a ( \a 017 \a 020 \a 020 016 023 023 004 006 \a 0004160 004 \a 035 \a 034 \a 001 \a 005 \a ' 004 \b 037 J \0 0004200 005 032 033 ! 001 002 034 \0 003 004 003 022 037 035 036 0004220 004 024 025 ! 001 005 005 \0 026 005 # 016 037 036 005 0004240 ! 001 001 003 & \0 001 027 & \0 002 ( 005 & \0 002 0004260 002 ! 001 004 003 # 030 006 & \0 003 ( \a & \0 0004300 003 003 \0 ! 001 003 \n 017 021 016 ~ S c 0004320 o n s t r u c t o r 021 031 W r o n 0004340 g n u m b e r o f a r g u 0004360 m e n t s 017 \a 020 022 001 \a & 017 024 024 0004400 004 006 \a 004 \a $ \a 002 \a 025 \a 031 \a \0 002 037 0004420 $ \0 005 032 033 \0 003 003 022 " 034 ! 001 001 035 0004440 \0 003 036 004 \0 003 005 # ! 001 002 036 005 0004460 \0 003 \t 024 * 036 021 005 ( m a p ) \0 017 0004500 \a 020 022 002 \a ( \a 024 017 027 002 027 002 004 006 \a 0004520 $ \a 002 \a 003 \a 003 \a \0 \a \0 001 037 ( \0 005 0004540 032 \0 003 022 \f ! 001 001 * 033 ! 001 001 034 0004560 001 003 035 \0 003 005 # ! 001 003 036 004 \0 003 0004600 036 005 001 003 \n 021 016 ( a r g s i n 0004620 d i c e s ) \0 021 035 a r g s R e 0004640 c o r d v a l u e c o n s t 0004660 r u c t o r \0 021 \f ( d e s c r i 0004700 p t o r ) \0 \a \f 022 005 \a 022 \a \a \a 0004720 \b \a \a 023 017 024 024 004 004 \a 004 \a 001 \a 031 0004740 \a 025 004 004 037 8 \0 004 032 ! 001 \t \0 003 003 0004760 022 025 033 024 \0 025 005 # 016 025 ! 001 020 \0 0005000 003 & \0 001 ! 001 \f \0 003 & \0 002 034 001 0005020 003 & \0 003 035 001 003 & \0 004 ( 003 * \a \f 0005040 021 034 n o t a r e c o r d - t 0005060 y p e d e s c r i p t o r 021 0005100 022 A n o n y m o u s f u n c t 0005120 i o n 022 001 \a ! 017 024 024 004 005 \a 030 \a " 0005140 \a 027 \a 026 \a \t 003 037 $ \0 004 032 \0 003 022 0005160 " 033 034 \0 003 ! 001 002 004 022 035 036 004 0005200 \0 ! 001 004 004 ! 001 003 \n 024 * 025 * 017 017 021 0005220 035 ( v a l u e ) R e c o r d 0005240 t y p e p r e d i c a t e \0 021 0005260 \f ( d e s c r i p t o r ) \0 \a 0005300 \v 022 \t \a 022 \a ) \a # \a \a \a 006 \a 023 \a 0005320 \b \a \a + 017 027 002 027 002 004 \b \a 004 \a 001 0005340 \a * \a 004 \a 001 \a \0 \a 031 \a 025 004 006 037 e 0005360 \0 004 032 ! 001 \t \0 003 003 022 025 033 024 \0 0005400 025 005 # 016 025 034 001 ! 001 \r \0 003 004 & 0005420 \0 002 ! 001 020 \0 003 & \0 003 ! 001 \v \0 0005440 003 & \0 004 035 002 003 022 A 036 004 026 001 027 0005460 \v 036 005 002 003 & \0 005 ! 001 \f \0 003 & 0005500 \0 006 036 006 003 003 & \0 \a 036 \a 003 003 & 0005520 \0 \b ( 005 * \a \v 021 034 n o t a r 0005540 e c o r d - t y p e d e s c r 0005560 i p t o r \a \v 021 027 u n r e c o g 0005600 n i z e d f i e l d n a m e 0005620 021 022 A n o n y m o u s f u n 0005640 c t i o n 022 001 \a 017 017 024 024 004 \t \a 030 0005660 \a " \a 027 \a 026 \a \t \a \t \a 001 \a 005 \a 005 0005700 004 \a 037 K \0 \a 032 \0 003 022 % 033 034 \0 0005720 003 ! 001 006 004 022 " 035 036 004 \0 ! 001 \b 004 0005740 ! 001 \a 004 016 # 024 016 & 025 022 0 036 005 \0 0005760 ! 001 005 \n 036 006 036 \a 026 027 ! 001 001 ! 001 004 0006000 006 004 \0 036 \b 030 005 030 006 ! 001 004 005 \v 017 0006020 017 017 021 027 ~ S a c c e s s o r 0006040 f o r t y p e ~ S 017 021 017 n o 0006060 t a ~ S r e c o r d 021 036 ( 0006100 r e c o r d ) R e c o r d f 0006120 i e l d a c c e s s o r \0 021 027 0006140 ( d e s c r i p t o r f i e l 0006160 d - n a m e ) \0 \a \n 022 \t \a 022 \a 0006200 ) \a # \a \a \a 006 \a 023 \a \b \a \a + 017 0006220 027 002 027 002 004 \b \a 004 \a 001 \a * \a 004 \a 001 0006240 \a \0 \a 031 \a 025 004 006 037 e \0 004 032 ! 001 \t 0006260 \0 003 003 022 025 033 024 \0 025 005 # 016 025 034 0006300 001 ! 001 \r \0 003 004 & \0 002 ! 001 020 0006320 \0 003 & \0 003 ! 001 \v \0 003 & \0 004 035 0006340 002 003 022 A 036 004 026 001 027 \v 036 005 002 003 0006360 & \0 005 ! 001 \f \0 003 & \0 006 036 006 003 0006400 003 & \0 \a 036 \a 003 003 & \0 \b ( 005 * \a 0006420 \n 021 034 n o t a r e c o r d - 0006440 t y p e d e s c r i p t o r \a 0006460 \n 021 027 u n r e c o g n i z e d 0006500 f i e l d n a m e 021 022 A n o 0006520 n y m o u s f u n c t i o n 022 0006540 002 \a 017 \a ! 017 027 002 027 002 004 \t \a 030 \a " 0006560 \a 027 \a 026 \a \t \a 002 \a 001 \a 005 \a 005 004 \a 0006600 037 M \0 \a 032 \0 003 022 % 033 034 \0 003 ! 0006620 001 006 004 022 " 035 036 004 \0 ! 001 \b 004 ! 001 0006640 \a 004 016 # 024 016 & 025 022 2 036 005 \0 ! 001 0006660 005 001 \v 036 006 036 \a 026 027 ! 001 001 ! 001 004 0006700 006 004 \0 036 \b 030 005 030 006 ! 001 004 005 \v 017 0006720 017 017 021 026 ~ S u p d a t e r f 0006740 o r t y p e ~ S 017 021 017 n o t 0006760 a ~ S r e c o r d 021 # ( r 0007000 e c o r d v a l u e ) R e c 0007020 o r d f i e l d u p d a t e 0007040 r \0 021 027 ( d e s c r i p t o r 0007060 f i e l d - n a m e ) \0 \a 4 022 0007100 002 \a 006 \a 032 017 027 002 027 002 \0 002 037 005 \0 001 0007120 ( 001 * 021 022 A n o n y m o u s 0007140 f u n c t i o n 022 003 \a - \a 017 \a , 0007160 017 027 003 027 003 003 \a 005 \a K \a J 004 004 037 030 0007200 \0 004 032 \0 024 ! 001 \0 005 # 033 ( 002 ! 001 0007220 001 004 # 034 026 \0 \n 021 004 # < ~ S 021 0007240 022 A n o n y m o u s f u n c t 0007260 i o n 022 001 \a # 017 024 024 004 004 \a 005 \a 003 0007300 \a \t \a \0 002 037 026 \0 \b 032 ! 001 \0 024 033 0007320 \0 003 034 ! 001 001 035 \0 003 004 \f 004 021 \a 0007340 ~ S : ~ S 021 006 ( p a i r ) \0 021 0007360 001 > 021 026 ( p o r t r e c o r d 0007400 d i s p l a y ? ) \0 021 024 ( n a 0007420 m e a l l - f i e l d - m a p 0007440 ) \0 017 \a 7 022 \b \a 006 \a \b \a 033 \a 032 0007460 \a 024 \a \a \a 037 \a 017 017 027 \a 027 \a 004 \t \a 0007500 ' \a 002 \a 002 \a 002 \a 002 \a 002 \a 002 \a 002 \a 0007520 002 004 \n 037 V \0 004 032 024 003 & \0 \a 033 \a 0007540 025 ! 001 \a 005 # 034 \a 026 \0 005 # 035 0007560 \a 027 001 005 # 036 004 \a 030 005 002 005 # 0007600 036 005 \a 030 006 003 005 # 036 006 \a 030 \a 0007620 004 005 # 036 \a \a 030 \b 005 005 # 036 \b 0007640 \a 030 \t 006 005 # \a * 027 \b 023 024 027 0007660 002 027 003 027 004 027 005 027 006 027 \a 021 A ( n a 0007700 m e s i z e f i e l d - m a 0007720 p a l l - f i e l d - m a p 0007740 i n d i c e s c o o k i e - m 0007760 a p p r i n t - p r o c ) \0 0010000 \a 6 022 001 \a ! 017 024 024 004 005 \a 030 \a 035 \a 0010020 027 \a 026 \a \t 004 005 037 \0 004 032 \0 003 022 0010040 036 033 024 034 \0 003 004 022 034 035 036 004 \0 025 0010060 004 ! 001 \a \n 026 * 027 * 027 \b 023 017 017 021 \a 0010100 ( v a l u e ) \0 \a 5 022 002 \a 006 \a 0010120 023 017 027 002 027 002 \0 002 037 005 \0 001 ( 001 * 0010140 021 022 A n o n y m o u s f u n c 0010160 t i o n 022 001 \a 017 017 024 024 003 \a \t \a 001 0010200 \a 005 004 004 037 035 \0 005 ! 002 \t \0 003 022 021 0010220 032 \0 ! 001 001 \n 033 034 024 025 ! 001 \0 005 0010240 \0 026 \v 017 021 ' ~ S a c c e s s o 0010260 r f o r r e c o r d - t y p 0010300 e d e s c r i p t o r s 021 034 n 0010320 o t a r e c o r d - t y p e 0010340 d e s c r i p t o r 021 \b ( r e 0010360 c o r d ) \0 021 \f ( n a m e i n 0010400 d e x ) \0 017 017 017 017 017 017 017 \a / 022 0010420 003 \a - \a 022 \a , 017 027 003 027 003 001 \a 005 002 0010440 037 \r \0 005 032 \0 024 ! 001 \v 001 003 \v 021 0010460 035 # < R e c o r d - t y p e d 0010500 e s c r i p t o r : ~ S > 021 032 0010520 ( p o r t d e s c r i p t o r 0010540 d i s p l a y ? ) \0 027 \b \a 006 024 0010560 \a \b 027 002 \a 033 027 003 \a 032 027 004 \a 024 027 005 0010600 \a \a 027 006 \a 037 027 \a 004 005 \a 016 \a \r \a \f 0010620 \a \v \a \n 021 002 ( ) \0 \n 0010632