
(SDEFUN |ELAGG-;delete;AIA;1| ((|x| (A)) (|i| (|Integer|)) (% (A)))
        (SPADCALL (SPADCALL |x| (QREFELT % 8)) |i| (QREFELT % 10))) 

(SDEFUN |ELAGG-;delete;AUsA;2|
        ((|x| (A)) (|i| (|UniversalSegment| (|Integer|))) (% (A)))
        (SPADCALL (SPADCALL |x| (QREFELT % 8)) |i| (QREFELT % 13))) 

(SDEFUN |ELAGG-;remove;M2A;3|
        ((|f| (|Mapping| (|Boolean|) S)) (|x| (A)) (% (A)))
        (SPADCALL |f| (SPADCALL |x| (QREFELT % 8)) (QREFELT % 16))) 

(SDEFUN |ELAGG-;insert;SAIA;4| ((|s| (S)) (|x| (A)) (|i| (|Integer|)) (% (A)))
        (SPADCALL |s| (SPADCALL |x| (QREFELT % 8)) |i| (QREFELT % 18))) 

(SDEFUN |ELAGG-;insert;2AIA;5| ((|w| (A)) (|x| (A)) (|i| (|Integer|)) (% (A)))
        (SPADCALL (SPADCALL |w| (QREFELT % 8)) (SPADCALL |x| (QREFELT % 8)) |i|
                  (QREFELT % 20))) 

(SDEFUN |ELAGG-;select;M2A;6|
        ((|f| (|Mapping| (|Boolean|) S)) (|x| (A)) (% (A)))
        (SPADCALL |f| (SPADCALL |x| (QREFELT % 8)) (QREFELT % 22))) 

(SDEFUN |ELAGG-;concat;3A;7| ((|x| (A)) (|y| (A)) (% (A)))
        (SPADCALL (SPADCALL |x| (QREFELT % 8)) |y| (QREFELT % 24))) 

(SDEFUN |ELAGG-;concat;ASA;8| ((|x| (A)) (|y| (S)) (% (A)))
        (SPADCALL (SPADCALL |x| (QREFELT % 8)) (SPADCALL 1 |y| (QREFELT % 27))
                  (QREFELT % 24))) 

(SDEFUN |ELAGG-;concat!;ASA;9| ((|x| (A)) (|y| (S)) (% (A)))
        (SPADCALL |x| (SPADCALL 1 |y| (QREFELT % 27)) (QREFELT % 24))) 

(SDEFUN |ELAGG-;remove;S2A;10| ((|s| (S)) (|x| (A)) (% (A)))
        (SPADCALL |s| (SPADCALL |x| (QREFELT % 8)) (QREFELT % 30))) 

(SDEFUN |ELAGG-;remove!;S2A;11| ((|s| (S)) (|x| (A)) (% (A)))
        (SPROG NIL
               (SPADCALL (CONS #'|ELAGG-;remove!;S2A;11!0| (VECTOR % |s|)) |x|
                         (QREFELT % 16)))) 

(SDEFUN |ELAGG-;remove!;S2A;11!0| ((|y| NIL) ($$ NIL))
        (PROG (|s| %)
          (LETT |s| (QREFELT $$ 1))
          (LETT % (QREFELT $$ 0))
          (RETURN (PROGN (SPADCALL |y| |s| (QREFELT % 33)))))) 

(SDEFUN |ELAGG-;removeDuplicates;2A;12| ((|x| (A)) (% (A)))
        (SPADCALL (SPADCALL |x| (QREFELT % 8)) (QREFELT % 35))) 

(SDEFUN |ELAGG-;merge!;3A;13| ((|x| (A)) (|y| (A)) (% (A)))
        (SPADCALL (ELT % 37) |x| |y| (QREFELT % 39))) 

(DECLAIM (NOTINLINE |ExtensibleLinearAggregate&;|)) 

(DEFUN |ExtensibleLinearAggregate&| (|#1| |#2|)
  (SPROG ((|pv$| NIL) (% NIL) (|dv$| NIL) (DV$2 NIL) (DV$1 NIL))
         (PROGN
          (LETT DV$1 (|devaluate| |#1|))
          (LETT DV$2 (|devaluate| |#2|))
          (LETT |dv$| (LIST '|ExtensibleLinearAggregate&| DV$1 DV$2))
          (LETT % (GETREFV 42))
          (QSETREFV % 0 |dv$|)
          (QSETREFV % 3
                    (LETT |pv$|
                          (|buildPredVector| 0 0
                                             (LIST
                                              (|HasCategory| |#2|
                                                             '(|OrderedSet|))
                                              (|HasCategory| |#2|
                                                             '(|BasicType|))))))
          (|stuffDomainSlots| %)
          (QSETREFV % 6 |#1|)
          (QSETREFV % 7 |#2|)
          (SETF |pv$| (QREFELT % 3))
          (COND
           ((|testBitVector| |pv$| 2)
            (PROGN
             (QSETREFV % 31
                       (CONS (|dispatchFunction| |ELAGG-;remove;S2A;10|) %))
             (QSETREFV % 34
                       (CONS (|dispatchFunction| |ELAGG-;remove!;S2A;11|) %))
             (QSETREFV % 36
                       (CONS
                        (|dispatchFunction| |ELAGG-;removeDuplicates;2A;12|)
                        %)))))
          (COND
           ((|testBitVector| |pv$| 1)
            (QSETREFV % 40
                      (CONS (|dispatchFunction| |ELAGG-;merge!;3A;13|) %))))
          %))) 

(MAKEPROP '|ExtensibleLinearAggregate&| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
              (0 . |copy|) (|Integer|) (5 . |delete!|) |ELAGG-;delete;AIA;1|
              (|UniversalSegment| 9) (11 . |delete!|) |ELAGG-;delete;AUsA;2|
              (|Mapping| 32 7) (17 . |remove!|) |ELAGG-;remove;M2A;3|
              (23 . |insert!|) |ELAGG-;insert;SAIA;4| (30 . |insert!|)
              |ELAGG-;insert;2AIA;5| (37 . |select!|) |ELAGG-;select;M2A;6|
              (43 . |concat!|) |ELAGG-;concat;3A;7| (|NonNegativeInteger|)
              (49 . |new|) |ELAGG-;concat;ASA;8| |ELAGG-;concat!;ASA;9|
              (55 . |remove!|) (61 . |remove|) (|Boolean|) (67 . =)
              (73 . |remove!|) (79 . |removeDuplicates!|)
              (84 . |removeDuplicates|) (89 . <) (|Mapping| 32 7 7)
              (95 . |merge!|) (102 . |merge!|) (|List| %))
           '#(|select| 108 |removeDuplicates| 114 |remove!| 119 |remove| 125
              |merge!| 137 |insert| 143 |delete| 157 |concat!| 169 |concat|
              175)
           'NIL
           (CONS (|makeByteWordVec2| 1 '(0))
                 (CONS '#(NIL)
                       (CONS
                        '#((|Join|
                            (|mkCategory|
                             (LIST '((|merge!| (|#1| |#1| |#1|)) T)
                                   '((|remove!| (|#1| |#2| |#1|)) T)
                                   '((|merge!|
                                      (|#1| (|Mapping| (|Boolean|) |#2| |#2|)
                                       |#1| |#1|))
                                     T)
                                   '((|remove!|
                                      (|#1| (|Mapping| (|Boolean|) |#2|) |#1|))
                                     T)
                                   '((|concat!| (|#1| |#1| |#1|)) T)
                                   '((|concat!| (|#1| |#1| |#2|)) T)
                                   '((|insert| (|#1| |#1| |#1| (|Integer|))) T)
                                   '((|insert| (|#1| |#2| |#1| (|Integer|))) T)
                                   '((|delete|
                                      (|#1| |#1|
                                       (|UniversalSegment| (|Integer|))))
                                     T)
                                   '((|delete| (|#1| |#1| (|Integer|))) T)
                                   '((|concat| (|#1| (|List| |#1|))) T)
                                   '((|concat| (|#1| |#1| |#1|)) T)
                                   '((|concat| (|#1| |#2| |#1|)) T)
                                   '((|concat| (|#1| |#1| |#2|)) T)
                                   '((|remove|
                                      (|#1| (|Mapping| (|Boolean|) |#2|) |#1|))
                                     T)
                                   '((|select|
                                      (|#1| (|Mapping| (|Boolean|) |#2|) |#1|))
                                     T)
                                   '((|remove| (|#1| |#2| |#1|)) T)
                                   '((|removeDuplicates| (|#1| |#1|)) T))
                             (LIST) NIL NIL)))
                        (|makeByteWordVec2| 40
                                            '(1 6 0 0 8 2 6 0 0 9 10 2 6 0 0 12
                                              13 2 6 0 15 0 16 3 6 0 7 0 9 18 3
                                              6 0 0 0 9 20 2 6 0 15 0 22 2 6 0
                                              0 0 24 2 6 0 26 7 27 2 6 0 7 0 30
                                              2 0 0 7 0 31 2 7 32 0 0 33 2 0 0
                                              7 0 34 1 6 0 0 35 1 0 0 0 36 2 7
                                              32 0 0 37 3 6 0 38 0 0 39 2 0 0 0
                                              0 40 2 0 0 15 0 23 1 0 0 0 36 2 0
                                              0 7 0 34 2 0 0 7 0 31 2 0 0 15 0
                                              17 2 0 0 0 0 40 3 0 0 7 0 9 19 3
                                              0 0 0 0 9 21 2 0 0 0 9 11 2 0 0 0
                                              12 14 2 0 0 0 7 29 2 0 0 0 7 28 2
                                              0 0 0 0 25)))))
           '|lookupComplete|)) 
