
(/VERSIONCHECK 2) 

(DEFUN |STAGG-;explicitlyFinite?;AB;1| (|x| $)
  (COND ((SPADCALL |x| (QREFELT $ 9)) 'NIL) ('T 'T))) 

(DEFUN |STAGG-;possiblyInfinite?;AB;2| (|x| $)
  (SPADCALL |x| (QREFELT $ 9))) 

(DEFUN |STAGG-;first;ANniA;3| (|x| |n| $)
  (PROG (#0=#:G1834 |i|)
    (RETURN
      (SEQ (SPADCALL
               (PROGN
                 (LETT #0# NIL . #1=(|STAGG-;first;ANniA;3|))
                 (SEQ (LETT |i| 1 . #1#) G190
                      (COND ((QSGREATERP |i| |n|) (GO G191)))
                      (SEQ (EXIT (LETT #0#
                                       (CONS
                                        (|STAGG-;c2| |x|
                                         (LETT |x|
                                          (SPADCALL |x| (QREFELT $ 12)) . #1#)
                                         $)
                                        #0#) . #1#)))
                      (LETT |i| (QSADD1 |i|) . #1#) (GO G190) G191
                      (EXIT (NREVERSE0 #0#))))
               (QREFELT $ 14)))))) 

(DEFUN |STAGG-;c2| (|x| |r| $)
  (COND
    ((SPADCALL |x| (QREFELT $ 17)) (|error| "Index out of range"))
    ('T (SPADCALL |x| (QREFELT $ 18))))) 

(DEFUN |STAGG-;elt;AIS;5| (|x| |i| $)
  (PROG (#0=#:G1837)
    (RETURN
      (SEQ (LETT |i| (- |i| (SPADCALL |x| (QREFELT $ 20)))
                 . #1=(|STAGG-;elt;AIS;5|))
           (COND
             ((OR (< |i| 0)
                  (SPADCALL
                      (LETT |x|
                            (SPADCALL |x|
                                (PROG1 (LETT #0# |i| . #1#)
                                  (|check-subtype| (>= #0# 0)
                                      '(|NonNegativeInteger|) #0#))
                                (QREFELT $ 21)) . #1#)
                      (QREFELT $ 17)))
              (EXIT (|error| "index out of range"))))
           (EXIT (SPADCALL |x| (QREFELT $ 18))))))) 

(DEFUN |STAGG-;elt;AUsA;6| (|x| |i| $)
  (PROG (|l| #0=#:G1841 |h| #1=#:G1843 #2=#:G1844)
    (RETURN
      (SEQ (LETT |l|
                 (- (SPADCALL |i| (QREFELT $ 24))
                    (SPADCALL |x| (QREFELT $ 20)))
                 . #3=(|STAGG-;elt;AUsA;6|))
           (EXIT (COND
                   ((< |l| 0) (|error| "index out of range"))
                   ((NULL (SPADCALL |i| (QREFELT $ 25)))
                    (SPADCALL
                        (SPADCALL |x|
                            (PROG1 (LETT #0# |l| . #3#)
                              (|check-subtype| (>= #0# 0)
                                  '(|NonNegativeInteger|) #0#))
                            (QREFELT $ 21))
                        (QREFELT $ 26)))
                   ('T
                    (SEQ (LETT |h|
                               (- (SPADCALL |i| (QREFELT $ 27))
                                  (SPADCALL |x| (QREFELT $ 20))) . #3#)
                         (EXIT (COND
                                 ((< |h| |l|)
                                  (SPADCALL (QREFELT $ 28)))
                                 ('T
                                  (SPADCALL
                                      (SPADCALL |x|
                                       (PROG1 (LETT #1# |l| . #3#)
                                         (|check-subtype| (>= #1# 0)
                                          '(|NonNegativeInteger|) #1#))
                                       (QREFELT $ 21))
                                      (PROG1
                                       (LETT #2#
                                        (+ (- |h| |l|) 1) . #3#)
                                        (|check-subtype| (>= #2# 0)
                                         '(|NonNegativeInteger|) #2#))
                                      (QREFELT $ 29))))))))))))) 

(DEFUN |STAGG-;concat;3A;7| (|x| |y| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 26)) |y| (QREFELT $ 31))) 

(DEFUN |STAGG-;concat;LA;8| (|l| $)
  (COND
    ((NULL |l|) (SPADCALL (QREFELT $ 28)))
    ('T
     (SPADCALL (SPADCALL (|SPADfirst| |l|) (QREFELT $ 26))
         (SPADCALL (CDR |l|) (QREFELT $ 34)) (QREFELT $ 31))))) 

(DEFUN |STAGG-;map!;M2A;9| (|f| |l| $)
  (PROG (|y|)
    (RETURN
      (SEQ (LETT |y| |l| . #0=(|STAGG-;map!;M2A;9|))
           (SEQ G190
                (COND
                  ((NULL (COND
                           ((SPADCALL |l| (QREFELT $ 17)) 'NIL)
                           ('T 'T)))
                   (GO G191)))
                (SEQ (SPADCALL |l|
                         (SPADCALL (SPADCALL |l| (QREFELT $ 18)) |f|)
                         (QREFELT $ 36))
                     (EXIT (LETT |l|
                                 (SPADCALL |l| (QREFELT $ 12)) . #0#)))
                NIL (GO G190) G191 (EXIT NIL))
           (EXIT |y|))))) 

(DEFUN |STAGG-;fill!;ASA;10| (|x| |s| $)
  (PROG (|y|)
    (RETURN
      (SEQ (LETT |y| |x| . #0=(|STAGG-;fill!;ASA;10|))
           (SEQ G190
                (COND
                  ((NULL (COND
                           ((SPADCALL |y| (QREFELT $ 17)) 'NIL)
                           ('T 'T)))
                   (GO G191)))
                (SEQ (SPADCALL |y| |s| (QREFELT $ 36))
                     (EXIT (LETT |y|
                                 (SPADCALL |y| (QREFELT $ 12)) . #0#)))
                NIL (GO G190) G191 (EXIT NIL))
           (EXIT |x|))))) 

(DEFUN |STAGG-;setelt;AI2S;11| (|x| |i| |s| $)
  (PROG (#0=#:G1862)
    (RETURN
      (SEQ (LETT |i| (- |i| (SPADCALL |x| (QREFELT $ 20)))
                 . #1=(|STAGG-;setelt;AI2S;11|))
           (COND
             ((OR (< |i| 0)
                  (SPADCALL
                      (LETT |x|
                            (SPADCALL |x|
                                (PROG1 (LETT #0# |i| . #1#)
                                  (|check-subtype| (>= #0# 0)
                                      '(|NonNegativeInteger|) #0#))
                                (QREFELT $ 21)) . #1#)
                      (QREFELT $ 17)))
              (EXIT (|error| "index out of range"))))
           (EXIT (SPADCALL |x| |s| (QREFELT $ 36))))))) 

(DEFUN |STAGG-;setelt;AUs2S;12| (|x| |i| |s| $)
  (PROG (|l| |h| #0=#:G1867 #1=#:G1868 |z| |y|)
    (RETURN
      (SEQ (LETT |l|
                 (- (SPADCALL |i| (QREFELT $ 24))
                    (SPADCALL |x| (QREFELT $ 20)))
                 . #2=(|STAGG-;setelt;AUs2S;12|))
           (EXIT (COND
                   ((< |l| 0) (|error| "index out of range"))
                   (#3='T
                    (SEQ (LETT |h|
                               (COND
                                 ((SPADCALL |i| (QREFELT $ 25))
                                  (- (SPADCALL |i| (QREFELT $ 27))
                                     (SPADCALL |x| (QREFELT $ 20))))
                                 ('T (SPADCALL |x| (QREFELT $ 41)))) . #2#)
                         (EXIT (COND
                                 ((< |h| |l|) |s|)
                                 (#3#
                                  (SEQ (LETT |y|
                                        (SPADCALL |x|
                                         (PROG1 (LETT #0# |l| . #2#)
                                           (|check-subtype| (>= #0# 0)
                                            '(|NonNegativeInteger|)
                                            #0#))
                                         (QREFELT $ 21)) . #2#)
                                       (LETT |z|
                                        (SPADCALL |y|
                                         (PROG1
                                          (LETT #1#
                                           (+ (- |h| |l|) 1) . #2#)
                                           (|check-subtype| (>= #1# 0)
                                            '(|NonNegativeInteger|)
                                            #1#))
                                         (QREFELT $ 21)) . #2#)
                                       (SEQ G190
                                        (COND
                                          ((NULL
                                            (COND
                                              ((SPADCALL |y| |z|
                                                (QREFELT $ 42))
                                               'NIL)
                                              ('T 'T)))
                                           (GO G191)))
                                        (SEQ
                                         (SPADCALL |y| |s|
                                          (QREFELT $ 36))
                                         (EXIT
                                          (LETT |y|
                                           (SPADCALL |y|
                                            (QREFELT $ 12)) . #2#)))
                                        NIL (GO G190) G191 (EXIT NIL))
                                       (EXIT |s|))))))))))))) 

(DEFUN |STAGG-;concat!;3A;13| (|x| |y| $)
  (SEQ (COND
         ((SPADCALL |x| (QREFELT $ 17)) |y|)
         ('T
          (SEQ (SPADCALL (SPADCALL |x| (QREFELT $ 44)) |y|
                   (QREFELT $ 45))
               (EXIT |x|)))))) 

(DEFUN |StreamAggregate&| (|#1| |#2|)
  (PROG (DV$1 DV$2 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|StreamAggregate&|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT |dv$| (LIST '|StreamAggregate&| DV$1 DV$2) . #0#)
        (LETT $ (GETREFV 51) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7 |#2|)
        (COND
          ((|HasCategory| |#1| '(|shallowlyMutable|))
           (PROGN
             (QSETREFV $ 32
                 (CONS (|dispatchFunction| |STAGG-;concat;3A;7|) $))
             (QSETREFV $ 35
                 (CONS (|dispatchFunction| |STAGG-;concat;LA;8|) $))
             (QSETREFV $ 38
                 (CONS (|dispatchFunction| |STAGG-;map!;M2A;9|) $))
             (QSETREFV $ 39
                 (CONS (|dispatchFunction| |STAGG-;fill!;ASA;10|) $))
             (QSETREFV $ 40
                 (CONS (|dispatchFunction| |STAGG-;setelt;AI2S;11|) $))
             (QSETREFV $ 43
                 (CONS (|dispatchFunction| |STAGG-;setelt;AUs2S;12|) $))
             (QSETREFV $ 46
                 (CONS (|dispatchFunction| |STAGG-;concat!;3A;13|) $)))))
        $)))) 

(MAKEPROP '|StreamAggregate&| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|Boolean|) (0 . |cyclic?|)
             |STAGG-;explicitlyFinite?;AB;1|
             |STAGG-;possiblyInfinite?;AB;2| (5 . |rest|) (|List| 7)
             (10 . |construct|) (|NonNegativeInteger|)
             |STAGG-;first;ANniA;3| (15 . |empty?|) (20 . |first|)
             (|Integer|) (25 . |minIndex|) (30 . |rest|)
             |STAGG-;elt;AIS;5| (|UniversalSegment| 19) (36 . |lo|)
             (41 . |hasHi|) (46 . |copy|) (51 . |hi|) (56 . |empty|)
             (60 . |first|) |STAGG-;elt;AUsA;6| (66 . |concat!|)
             (72 . |concat|) (|List| $) (78 . |concat|) (83 . |concat|)
             (88 . |setfirst!|) (|Mapping| 7 7) (94 . |map!|)
             (100 . |fill!|) (106 . |setelt|) (113 . |maxIndex|)
             (118 . |eq?|) (124 . |setelt|) (131 . |tail|)
             (136 . |setrest!|) (142 . |concat!|) '"rest" '"last"
             '"first" '"value")
          '#(|setelt| 148 |possiblyInfinite?| 162 |map!| 167 |first|
             173 |fill!| 179 |explicitlyFinite?| 185 |elt| 190
             |concat!| 202 |concat| 208)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 46
                                '(1 6 8 0 9 1 6 0 0 12 1 6 0 13 14 1 6
                                  8 0 17 1 6 7 0 18 1 6 19 0 20 2 6 0 0
                                  15 21 1 23 19 0 24 1 23 8 0 25 1 6 0
                                  0 26 1 23 19 0 27 0 6 0 28 2 6 0 0 15
                                  29 2 6 0 0 0 31 2 0 0 0 0 32 1 6 0 33
                                  34 1 0 0 33 35 2 6 7 0 7 36 2 0 0 37
                                  0 38 2 0 0 0 7 39 3 0 7 0 19 7 40 1 6
                                  19 0 41 2 6 8 0 0 42 3 0 7 0 23 7 43
                                  1 6 0 0 44 2 6 0 0 0 45 2 0 0 0 0 46
                                  3 0 7 0 19 7 40 3 0 7 0 23 7 43 1 0 8
                                  0 11 2 0 0 37 0 38 2 0 0 0 15 16 2 0
                                  0 0 7 39 1 0 8 0 10 2 0 7 0 19 22 2 0
                                  0 0 23 30 2 0 0 0 0 46 1 0 0 33 35 2
                                  0 0 0 0 32)))))
          '|lookupComplete|)) 
