$ od -c -N 50000 [eris]<Lisp>Harmony>Library>BUSEXTENDER.DCOM!1
0000000    (   F   I   L   E   C   R   E   A   T   E   D       "   1   1
0000020    -   O   c   t   -   8   4       1   0   :   4   0   :   1   2
0000040    "       (   "   c   o   m   p   i   l   e   d       o   n    
0000060    "       {   E   R   I   S   }   <   L   I   S   P   >   H   A
0000100    R   M   O   N   Y   >   L   I   B   R   A   R   Y   >   B   U
0000120    S   E   X   T   E   N   D   E   R   .   ;   1   )      \r   "
0000140        3   -   O   c   t   -   8   4       1   7   :   1   8   :
0000160    0   4   "       b   c   o   m   p   l   '   d       i   n    
0000200    "   I   N   T   E   R   L   I   S   P   -   D           3   -
0000220    O   c   t   -   8   4       .   .   .   "       d   a   t   e
0000240    d       "       3   -   O   c   t   -   8   4       1   7   :
0000260    4   5   :   4   5   "   )  \r   (   F   I   L   E   C   R   E
0000300    A   T   E   D       "   1   6   -   S   e   p   -   8   4    
0000320    2   1   :   3   2   :   2   4   "       {   E   R   I   S   }
0000340    <   H   E   R   R   I   N   G   >   B   U   S   E   X   T   E
0000360    N   D   E   R   .   ;   8       3   3   0   9       c   h   a
0000400    n   g   e   s       t   o   :       (   V   A   R   S       B
0000420    U   S   E   X   T   E   N   D   E   R   C   O   M   S  \r   )
0000440        p   r   e   v   i   o   u   s       d   a   t   e   :    
0000460    "   1   4   -   S   e   p   -   8   4       1   7   :   3   9
0000500    :   1   2   "       {   E   R   I   S   }   <   H   E   R   R
0000520    I   N   G   >   B   U   S   E   X   T   E   N   D   E   R   .
0000540    ;   7   )  \r   B   X   .   I   N   P   U   T       D   1  \r
0000560    (   I       0       A   D   D   R   )      \0 027  \0  \0  \0
0000600  001   @   l 036 345 340 340 340   @   k 345   j 360 222   l  \n
0000620  201   l  \t 330   x 001 020  \0   N   I   L  \r   N   I   L  \r
0000640    (   )  \r   B   X   .   O   U   T   P   U   T       D   1  \r
0000660    (   I       1       A   D   D   R       I       0       D   A
0000700    T   U   M   )      \0 027  \0  \0  \0 002   @   A   l 036 345
0000720  340 340 340   A   k 345   j 360 222   l  \v 200   j 330   y 002
0000740  020  \0   N   I   L  \r   N   I   L  \r   (   )  \r   B   X   .
0000760    R   E   A   D   S   T   A   T   U   S       D   1  \r   N   I
0001000    L      \0 022  \0  \0  \0  \0   j   l 016   y 002   l  \a   x
0001020  001 342 342 342 342   l 017 345 020  \0   N   I   L  \r   N   I
0001040    L  \r   (   )  \r   (   P   R   E   T   T   Y   C   O   M   P
0001060    R   I   N   T       B   U   S   E   X   T   E   N   D   E   R
0001100    C   O   M   S   )  \r   (   R   P   A   Q   Q       B   U   S
0001120    E   X   T   E   N   D   E   R   C   O   M   S       (   (   F
0001140    N   S       B   X   .   I   N   P   U   T       B   X   .   O
0001160    U   T   P   U   T       B   X   .   R   E   A   D   S   T   A
0001200    T   U   S   )       (   M   A   C   R   O   S       B   X   .
0001220    I   N   P   U   T       B   X   .   O   U   T   P   U   T   )
0001240    )   )  \r   (   P   U   T   P   R   O   P   S       B   X   .
0001260    I   N   P   U   T       D   M   A   C   R   O       (   A   R
0001300    G   L   I   S   T       (   P   R   O   G       (   A   D   D
0001320    R   A   R   G       L   I   S   T   O   F   A   D   D   R   V
0001340    A   L       A   D   D   R   V   A   L   )       (   *       *
0001360        T   h   e       p   o   i   n   t       o   f       t   h
0001400    i   s       m   a   c   r   o      \r   i   s       t   h   a
0001420    t       a   l   m   o   s   t       a   l   l       o   f    
0001440    t   h   e       c   o   d   e       o   f       t   h   e    
0001460    f   u   n   c   t   i   o   n       c   a   n       b   e    
0001500    c   o   m   p   u   t   e   d       a   t       c   o   m   p
0001520    i   l   e       t   i   m   e       i   f       t   h   e    
0001540    a   r   g   u   m   e   n   t       i   s      \r   k   n   o
0001560    w   n       a   t       c   o   m   p   i   l   e       t   i
0001600    m   e       -   -       T   h   e       f   u   n   c   t   i
0001620    o   n       i   s       -   -       (   \   D   E   V   I   C
0001640    E   .   I   N   P   U   T       (   I   P   L   U   S       (
0001660    L   L   S   H       (   L   O   G   A   N   D       A   D   D
0001700    R       3   0   )       3   )       (   i   f       (   Z   E
0001720    R   O   P  \r       (   L   O   G   A   N   D       A   D   D
0001740    R       1   )   )       t   h   e   n       1   0       e   l
0001760    s   e       9   )   )   )   )       (   S   E   T   Q       A
0002000    D   D   R   A   R   G       (   C   A   R       A   R   G   L
0002020    I   S   T   )   )       (   R   E   T   U   R   N       (   i
0002040    f       (   A   N   D       (   S   E   T   Q       L   I   S
0002060    T   O   F   A   D   D   R   V   A   L  \r       (   C   O   N
0002100    S   T   A   N   T   E   X   P   R   E   S   S   I   O   N   P
0002120        A   D   D   R   A   R   G   )   )       (   S   M   A   L
0002140    L   P       (   S   E   T   Q       A   D   D   R   V   A   L
0002160        (   C   A   R       L   I   S   T   O   F   A   D   D   R
0002200    V   A   L   )   )   )   )       t   h   e   n       (   B   Q
0002220    U   O   T   E       (  \r   \   D   E   V   I   C   E   .   I
0002240    N   P   U   T       ,       (   I   P   L   U   S       (   L
0002260    L   S   H       (   L   O   G   A   N   D       A   D   D   R
0002300    A   R   G       3   0   )       3   )       (   i   f       (
0002320    Z   E   R   O   P       (   L   O   G   A   N   D       A   D
0002340    D   R   A   R   G       1   )   )       t   h   e   n       1
0002360    0       e   l   s   e       9   )   )   )   )      \r   e   l
0002400    s   e       (   B   Q   U   O   T   E       (   \   D   E   V
0002420    I   C   E   .   I   N   P   U   T       (   I   P   L   U   S
0002440        (   L   L   S   H       (   L   O   G   A   N   D       ,
0002460        A   D   D   R   A   R   G       3   0   )       3   )    
0002500    (   i   f       (   Z   E   R   O   P       (   L   O   G   A
0002520    N   D       ,       A   D   D   R   A   R   G       1   )   )
0002540       \r   t   h   e   n       1   0       e   l   s   e       9
0002560    )   )   )   )   )   )   )   )   )  \r   (   P   U   T   P   R
0002600    O   P   S       B   X   .   O   U   T   P   U   T       D   M
0002620    A   C   R   O       (   A   R   G   L   I   S   T       (   P
0002640    R   O   G       (   D   A   T   U   M   A   R   G       A   D
0002660    D   R   A   R   G       L   I   S   T   O   F   A   D   D   R
0002700    V   A   L       A   D   D   R   V   A   L   )       (   *    
0002720    *       T   h   e       p   o   i   n   t       o   f      \r
0002740    t   h   i   s       m   a   c   r   o       i   s       t   h
0002760    a   t       a   l   m   o   s   t       a   l   l       o   f
0003000        t   h   e       c   o   d   e       o   f       t   h   e
0003020        f   u   n   c   t   i   o   n       c   a   n       b   e
0003040        c   o   m   p   u   t   e   d       a   t       c   o   m
0003060    p   i   l   e       t   i   m   e       i   f       t   h   e
0003100       \r   a   r   g   u   m   e   n   t       i   s       k   n
0003120    o   w   n       a   t       c   o   m   p   i   l   e       t
0003140    i   m   e       -   -       T   h   e       f   u   n   c   t
0003160    i   o   n       i   s       -   -       (   \   D   E   V   I
0003200    C   E   .   O   U   T   P   U   T       D   A   T   U   M    
0003220    (   I   P   L   U   S       (   L   L   S   H       (   L   O
0003240    G   A   N   D      \r   A   D   D   R       3   0   )       3
0003260    )       (   i   f       (   Z   E   R   O   P       (   L   O
0003300    G   A   N   D       A   D   D   R       1   )   )       t   h
0003320    e   n       1   1       e   l   s   e       0   )   )   )   )
0003340        (   S   E   T   Q       D   A   T   U   M   A   R   G    
0003360    (   C   A   R       A   R   G   L   I   S   T   )   )       (
0003400    S   E   T   Q       A   D   D   R   A   R   G  \r       (   C
0003420    A   D   R       A   R   G   L   I   S   T   )   )       (   R
0003440    E   T   U   R   N       (   i   f       (   A   N   D       (
0003460    S   E   T   Q       L   I   S   T   O   F   A   D   D   R   V
0003500    A   L       (   C   O   N   S   T   A   N   T   E   X   P   R
0003520    E   S   S   I   O   N   P       A   D   D   R   A   R   G   )
0003540    )       (   S   M   A   L   L   P       (   S   E   T   Q    
0003560   \r   A   D   D   R   V   A   L       (   C   A   R       L   I
0003600    S   T   O   F   A   D   D   R   V   A   L   )   )   )   )    
0003620    t   h   e   n       (   B   Q   U   O   T   E       (   \   D
0003640    E   V   I   C   E   .   O   U   T   P   U   T       ,       D
0003660    A   T   U   M   A   R   G       ,       (   I   P   L   U   S
0003700        (   L   L   S   H       (   L   O   G   A   N   D       A
0003720    D   D   R   A   R   G      \r   3   0   )       3   )       (
0003740    i   f       (   Z   E   R   O   P       (   L   O   G   A   N
0003760    D       A   D   D   R   A   R   G       1   )   )       t   h
0004000    e   n       1   1       e   l   s   e       0   )   )   )   )
0004020        e   l   s   e       (   B   Q   U   O   T   E       (   \
0004040    D   E   V   I   C   E   .   O   U   T   P   U   T       ,    
0004060    D   A   T   U   M   A   R   G       (  \r   I   P   L   U   S
0004100        (   L   L   S   H       (   L   O   G   A   N   D       ,
0004120        A   D   D   R   A   R   G       3   0   )       3   )    
0004140    (   i   f       (   Z   E   R   O   P       (   L   O   G   A
0004160    N   D       ,       A   D   D   R   A   R   G       1   )   )
0004200        t   h   e   n       1   1       e   l   s   e       0   )
0004220    )   )   )   )   )   )   )   )  \r   (   P   U   T   P   R   O
0004240    P   S       B   U   S   E   X   T   E   N   D   E   R       C
0004260    O   P   Y   R   I   G   H   T       (   "   X   e   r   o   x
0004300        C   o   r   p   o   r   a   t   i   o   n   "       1   9
0004320    8   4   )   )  \r   N   I   L  \r                            
0004331