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