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