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