
(/VERSIONCHECK 2) 

(DEFUN |HOAGG-;eval;ALA;1| (|u| |l| $)
  (SPADCALL (CONS #'|HOAGG-;eval;ALA;1!0| (VECTOR $ |l|)) |u|
      (QREFELT $ 11))) 

(DEFUN |HOAGG-;eval;ALA;1!0| (|#1| $$)
  (SPADCALL |#1| (QREFELT $$ 1) (QREFELT (QREFELT $$ 0) 9))) 

(DEFUN |HOAGG-;#;ANni;2| (|c| $)
  (LENGTH (SPADCALL |c| (QREFELT $ 14)))) 

(DEFUN |HOAGG-;any?;MAB;3| (|f| |c| $)
  (PROG (|x| #0=#:G1827 #1=#:G1826)
    (RETURN
      (SEQ (EXIT (SEQ (SEQ (LETT |x| NIL . #2=(|HOAGG-;any?;MAB;3|))
                           (LETT #0#
                                 (SPADCALL |c| (QREFELT $ 14)) . #2#)
                           G190
                           (COND
                             ((OR (ATOM #0#)
                                  (PROGN
                                    (LETT |x| (CAR #0#) . #2#)
                                    NIL))
                              (GO G191)))
                           (SEQ (EXIT (COND
                                        ((SPADCALL |x| |f|)
                                         (PROGN
                                           (LETT #1# 'T . #2#)
                                           (GO #1#))))))
                           (LETT #0# (CDR #0#) . #2#) (GO G190) G191
                           (EXIT NIL))
                      (EXIT 'NIL)))
           #1# (EXIT #1#))))) 

(DEFUN |HOAGG-;every?;MAB;4| (|f| |c| $)
  (PROG (|x| #0=#:G1832 #1=#:G1831)
    (RETURN
      (SEQ (EXIT (SEQ (SEQ (LETT |x| NIL . #2=(|HOAGG-;every?;MAB;4|))
                           (LETT #0#
                                 (SPADCALL |c| (QREFELT $ 14)) . #2#)
                           G190
                           (COND
                             ((OR (ATOM #0#)
                                  (PROGN
                                    (LETT |x| (CAR #0#) . #2#)
                                    NIL))
                              (GO G191)))
                           (SEQ (EXIT (COND
                                        ((COND
                                           ((SPADCALL |x| |f|) 'NIL)
                                           ('T 'T))
                                         (PROGN
                                           (LETT #1# 'NIL . #2#)
                                           (GO #1#))))))
                           (LETT #0# (CDR #0#) . #2#) (GO G190) G191
                           (EXIT NIL))
                      (EXIT 'T)))
           #1# (EXIT #1#))))) 

(DEFUN |HOAGG-;count;MANni;5| (|f| |c| $)
  (PROG (|x| #0=#:G1837 #1=#:G1835 #2=#:G1833 #3=#:G1834)
    (RETURN
      (SEQ (PROGN
             (LETT #3# NIL . #4=(|HOAGG-;count;MANni;5|))
             (SEQ (LETT |x| NIL . #4#)
                  (LETT #0# (SPADCALL |c| (QREFELT $ 14)) . #4#) G190
                  (COND
                    ((OR (ATOM #0#)
                         (PROGN (LETT |x| (CAR #0#) . #4#) NIL))
                     (GO G191)))
                  (SEQ (EXIT (COND
                               ((SPADCALL |x| |f|)
                                (PROGN
                                  (LETT #1# 1 . #4#)
                                  (COND
                                    (#3# (LETT #2# (+ #2# #1#) . #4#))
                                    ('T
                                     (PROGN
                                       (LETT #2# #1# . #4#)
                                       (LETT #3# 'T . #4#)))))))))
                  (LETT #0# (CDR #0#) . #4#) (GO G190) G191 (EXIT NIL))
             (COND (#3# #2#) ('T 0))))))) 

(DEFUN |HOAGG-;members;AL;6| (|x| $) (SPADCALL |x| (QREFELT $ 14))) 

(DEFUN |HOAGG-;count;SANni;7| (|s| |x| $)
  (SPADCALL (CONS #'|HOAGG-;count;SANni;7!0| (VECTOR $ |s|)) |x|
      (QREFELT $ 24))) 

(DEFUN |HOAGG-;count;SANni;7!0| (|#1| $$)
  (SPADCALL (QREFELT $$ 1) |#1| (QREFELT (QREFELT $$ 0) 23))) 

(DEFUN |HOAGG-;member?;SAB;8| (|e| |c| $)
  (SPADCALL (CONS #'|HOAGG-;member?;SAB;8!0| (VECTOR $ |e|)) |c|
      (QREFELT $ 26))) 

(DEFUN |HOAGG-;member?;SAB;8!0| (|#1| $$)
  (SPADCALL (QREFELT $$ 1) |#1| (QREFELT (QREFELT $$ 0) 23))) 

(DEFUN |HOAGG-;=;2AB;9| (|x| |y| $)
  (PROG (|b| #0=#:G1846 |a| #1=#:G1845 #2=#:G1844)
    (RETURN
      (SEQ (EXIT (COND
                   ((NULL (SPADCALL |x| (SPADCALL |y| (QREFELT $ 28))
                              (QREFELT $ 29)))
                    'NIL)
                   ('T
                    (SEQ (SEQ (LETT |b| NIL . #3=(|HOAGG-;=;2AB;9|))
                              (LETT #0#
                                    (SPADCALL |y| (QREFELT $ 14)) . #3#)
                              (LETT |a| NIL . #3#)
                              (LETT #1#
                                    (SPADCALL |x| (QREFELT $ 14)) . #3#)
                              G190
                              (COND
                                ((OR (ATOM #1#)
                                     (PROGN
                                       (LETT |a| (CAR #1#) . #3#)
                                       NIL)
                                     (ATOM #0#)
                                     (PROGN
                                       (LETT |b| (CAR #0#) . #3#)
                                       NIL))
                                 (GO G191)))
                              (SEQ (EXIT
                                    (COND
                                      ((SPADCALL |a| |b|
                                        (QREFELT $ 30))
                                       (PROGN
                                         (LETT #2# 'NIL . #3#)
                                         (GO #2#))))))
                              (LETT #1#
                                    (PROG1 (CDR #1#)
                                      (LETT #0# (CDR #0#) . #3#)) . #3#)
                              (GO G190) G191 (EXIT NIL))
                         (EXIT 'T)))))
           #2# (EXIT #2#))))) 

(DEFUN |HOAGG-;coerce;AOf;10| (|x| $)
  (PROG (#0=#:G1850 |a| #1=#:G1851)
    (RETURN
      (SEQ (SPADCALL
               (SPADCALL
                   (PROGN
                     (LETT #0# NIL . #2=(|HOAGG-;coerce;AOf;10|))
                     (SEQ (LETT |a| NIL . #2#)
                          (LETT #1#
                                (SPADCALL |x| (QREFELT $ 14)) . #2#)
                          G190
                          (COND
                            ((OR (ATOM #1#)
                                 (PROGN
                                   (LETT |a| (CAR #1#) . #2#)
                                   NIL))
                             (GO G191)))
                          (SEQ (EXIT (LETT #0#
                                      (CONS
                                       (SPADCALL |a| (QREFELT $ 33))
                                       #0#) . #2#)))
                          (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                          (EXIT (NREVERSE0 #0#))))
                   (QREFELT $ 35))
               (QREFELT $ 36)))))) 

(DEFUN |HomogeneousAggregate&| (|#1| |#2|)
  (PROG (DV$1 DV$2 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|HomogeneousAggregate&|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT |dv$| (LIST '|HomogeneousAggregate&| DV$1 DV$2) . #0#)
        (LETT $ (GETREFV 39) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3
            (LETT |pv$|
                  (|buildPredVector| 0 0
                      (LIST (|HasCategory| |#1| '(|finiteAggregate|))
                            (|HasCategory| |#1| '(|shallowlyMutable|))
                            (|HasCategory| |#2|
                                (LIST '|Evalable| (|devaluate| |#2|)))
                            (|HasCategory| |#2| '(|SetCategory|)))) . #0#))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7 |#2|)
        (COND
          ((|testBitVector| |pv$| 3)
           (QSETREFV $ 12
               (CONS (|dispatchFunction| |HOAGG-;eval;ALA;1|) $))))
        (COND
          ((|testBitVector| |pv$| 1)
           (PROGN
             (QSETREFV $ 16
                 (CONS (|dispatchFunction| |HOAGG-;#;ANni;2|) $))
             (QSETREFV $ 19
                 (CONS (|dispatchFunction| |HOAGG-;any?;MAB;3|) $))
             (QSETREFV $ 20
                 (CONS (|dispatchFunction| |HOAGG-;every?;MAB;4|) $))
             (QSETREFV $ 21
                 (CONS (|dispatchFunction| |HOAGG-;count;MANni;5|) $))
             (QSETREFV $ 22
                 (CONS (|dispatchFunction| |HOAGG-;members;AL;6|) $))
             (COND
               ((|testBitVector| |pv$| 4)
                (PROGN
                  (QSETREFV $ 25
                      (CONS (|dispatchFunction| |HOAGG-;count;SANni;7|)
                            $))
                  (QSETREFV $ 27
                      (CONS (|dispatchFunction| |HOAGG-;member?;SAB;8|)
                            $))
                  (QSETREFV $ 31
                      (CONS (|dispatchFunction| |HOAGG-;=;2AB;9|) $))
                  (QSETREFV $ 37
                      (CONS (|dispatchFunction| |HOAGG-;coerce;AOf;10|)
                            $))))))))
        $)))) 

(MAKEPROP '|HomogeneousAggregate&| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|List| 38) (0 . |eval|) (|Mapping| 7 7) (6 . |map|)
             (12 . |eval|) (|List| 7) (18 . |parts|)
             (|NonNegativeInteger|) (23 . |#|) (|Boolean|)
             (|Mapping| 17 7) (28 . |any?|) (34 . |every?|)
             (40 . |count|) (46 . |members|) (51 . =) (57 . |count|)
             (63 . |count|) (69 . |any?|) (75 . |member?|) (81 . |#|)
             (86 . |size?|) (92 . ~=) (98 . =) (|OutputForm|)
             (104 . |coerce|) (|List| $) (109 . |commaSeparate|)
             (114 . |bracket|) (119 . |coerce|) (|Equation| 7))
          '#(|members| 124 |member?| 129 |every?| 135 |eval| 141
             |count| 147 |coerce| 159 |any?| 164 = 170 |#| 176)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 37
                                '(2 7 0 0 8 9 2 6 0 10 0 11 2 0 0 0 8
                                  12 1 6 13 0 14 1 0 15 0 16 2 0 17 18
                                  0 19 2 0 17 18 0 20 2 0 15 18 0 21 1
                                  0 13 0 22 2 7 17 0 0 23 2 6 15 18 0
                                  24 2 0 15 7 0 25 2 6 17 18 0 26 2 0
                                  17 7 0 27 1 6 15 0 28 2 6 17 0 15 29
                                  2 7 17 0 0 30 2 0 17 0 0 31 1 7 32 0
                                  33 1 32 0 34 35 1 32 0 0 36 1 0 32 0
                                  37 1 0 13 0 22 2 0 17 7 0 27 2 0 17
                                  18 0 20 2 0 0 0 8 12 2 0 15 7 0 25 2
                                  0 15 18 0 21 1 0 32 0 37 2 0 17 18 0
                                  19 2 0 17 0 0 31 1 0 15 0 16)))))
          '|lookupComplete|)) 
