
(/VERSIONCHECK 2) 

(DEFUN |STREAM;explicitlyEmpty?;$B;1| (|x| $)
  (EQ (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 7))) 

(DEFUN |STREAM;lazy?;$B;2| (|x| $)
  (EQ (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 8))) 

(DEFUN |STREAM;uninitialized?| (|x| $)
  (EQ (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 9))) 

(PUT '|STREAM;frst;$S;4| '|SPADreplace| 'QCAR) 

(DEFUN |STREAM;frst;$S;4| (|x| $) (QCAR |x|)) 

(PUT '|STREAM;rst;2$;5| '|SPADreplace| 'QCDR) 

(DEFUN |STREAM;rst;2$;5| (|x| $) (QCDR |x|)) 

(DEFUN |STREAM;setfrst!| (|x| |s| $) (PROGN (RPLACA |x| |s|) (QCAR |x|))) 

(DEFUN |STREAM;setrst!| (|x| |y| $) (PROGN (RPLACD |x| |y|) (QCDR |x|))) 

(DEFUN |STREAM;setToNil!| (|x| $)
  (SEQ (|STREAM;setfrst!| |x| (QREFELT $ 7) $) (|STREAM;setrst!| |x| NIL $)
       (EXIT |x|))) 

(DEFUN |STREAM;getm| (|x| |le| |n| $)
  (COND ((SPADCALL |x| (QREFELT $ 13)) |le|)
        ((SPADCALL |x| (QREFELT $ 14))
         (COND
          ((< 0 |n|)
           (COND ((SPADCALL |x| (QREFELT $ 16)) |le|)
                 (#1='T
                  (|STREAM;getm| (SPADCALL |x| (QREFELT $ 15))
                   (CONS
                    (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 18))
                    |le|)
                   (- |n| 1) $))))
          (#1# (CONS (SPADCALL "..." (QREFELT $ 20)) |le|))))
        ((SPADCALL |x| (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 21))
         (CONS
          (SPADCALL (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 18))
                    (QREFELT $ 22))
          |le|))
        ((< 0 |n|)
         (|STREAM;getm| (SPADCALL |x| (QREFELT $ 15))
          (CONS (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 18)) |le|)
          (- |n| 1) $))
        (#1# (CONS (SPADCALL "..." (QREFELT $ 20)) |le|)))) 

(DEFUN |STREAM;streamCountCoerce| (|x| $)
  (PROG (|pp| |pl| #1=#:G772 |i| |le| #2=#:G771 |fc| |y| |count|)
    (RETURN
     (SEQ (LETT |count| |$streamCount| . #3=(|STREAM;streamCountCoerce|))
          (LETT |y| |x| . #3#)
          (SEQ (LETT |i| 1 . #3#) G190
               (COND
                ((OR (QSGREATERP |i| |count|)
                     (NULL
                      (COND ((SPADCALL |y| (QREFELT $ 16)) 'NIL) ('T 'T))))
                 #4=(GO G191)))
               (SEQ (EXIT (LETT |y| (SPADCALL |y| (QREFELT $ 15)) . #3#)))
               (LETT |i| (QSADD1 |i|) . #3#) #5=(GO G190) G191 (EXIT NIL))
          (LETT |fc| (SPADCALL |count| |x| (QREFELT $ 25)) . #3#)
          (COND
           ((NULL (QVELT |fc| 0))
            (EXIT
             (SPADCALL (NREVERSE (|STREAM;getm| |x| NIL |count| $))
                       (QREFELT $ 27)))))
          (LETT |le| NIL . #3#)
          (SEQ (LETT |i| 1 . #3#) (LETT #2# (QVELT |fc| 1) . #3#) G190
               (COND ((QSGREATERP |i| #2#) #4#))
               (SEQ
                (LETT |le|
                      (CONS
                       (SPADCALL (SPADCALL |x| (QREFELT $ 28)) (QREFELT $ 18))
                       |le|)
                      . #3#)
                (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 29)) . #3#)))
               (LETT |i| (QSADD1 |i|) . #3#) #5# G191 (EXIT NIL))
          (LETT |pp|
                (COND
                 ((EQL (QVELT |fc| 2) 1)
                  (SPADCALL
                   (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 18))
                   (QREFELT $ 22)))
                 ('T
                  (SEQ (LETT |pl| NIL . #3#)
                       (SEQ (LETT |i| 1 . #3#) (LETT #1# (QVELT |fc| 2) . #3#)
                            G190 (COND ((QSGREATERP |i| #1#) #4#))
                            (SEQ
                             (LETT |pl|
                                   (CONS
                                    (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                              (QREFELT $ 18))
                                    |pl|)
                                   . #3#)
                             (EXIT
                              (LETT |x| (SPADCALL |x| (QREFELT $ 29)) . #3#)))
                            (LETT |i| (QSADD1 |i|) . #3#) #5# G191 (EXIT NIL))
                       (EXIT
                        (SPADCALL (SPADCALL (NREVERSE |pl|) (QREFELT $ 30))
                                  (QREFELT $ 22))))))
                . #3#)
          (EXIT (SPADCALL (NREVERSE (CONS |pp| |le|)) (QREFELT $ 27))))))) 

(DEFUN |STREAM;listm| (|x| |le| |n| $)
  (COND ((SPADCALL |x| (QREFELT $ 13)) |le|)
        ((SPADCALL |x| (QREFELT $ 14))
         (COND
          ((< 0 |n|)
           (COND ((SPADCALL |x| (QREFELT $ 16)) |le|)
                 (#1='T
                  (|STREAM;listm| (SPADCALL |x| (QREFELT $ 15))
                   (CONS
                    (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 18))
                    |le|)
                   (- |n| 1) $))))
          (#1# (CONS (SPADCALL "..." (QREFELT $ 20)) |le|))))
        (#1#
         (|STREAM;listm| (SPADCALL |x| (QREFELT $ 15))
          (CONS (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 18)) |le|)
          (- |n| 1) $)))) 

(DEFUN |STREAM;showAllElements;$Of;12| (|x| $)
  (PROG (|pp| |pl| |i| |len| |le| |cycEnt| |cycElt|)
    (RETURN
     (SEQ (SPADCALL |x| |$streamCount| (QREFELT $ 32))
          (LETT |cycElt| (SPADCALL |x| (QREFELT $ 35))
                . #1=(|STREAM;showAllElements;$Of;12|))
          (EXIT
           (COND
            ((QEQCAR |cycElt| 1)
             (SEQ (LETT |le| (|STREAM;listm| |x| NIL |$streamCount| $) . #1#)
                  (EXIT (SPADCALL (NREVERSE |le|) (QREFELT $ 27)))))
            (#2='T
             (SEQ
              (LETT |cycEnt| (SPADCALL |x| (QCDR |cycElt|) (QREFELT $ 36))
                    . #1#)
              (LETT |le| NIL . #1#)
              (SEQ G190
                   (COND
                    ((NULL
                      (COND ((SPADCALL |x| |cycEnt| (QREFELT $ 21)) 'NIL)
                            ('T 'T)))
                     #3=(GO G191)))
                   (SEQ
                    (LETT |le|
                          (CONS
                           (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                     (QREFELT $ 18))
                           |le|)
                          . #1#)
                    (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 15)) . #1#)))
                   NIL #4=(GO G190) G191 (EXIT NIL))
              (LETT |len| (SPADCALL (QCDR |cycElt|) (QREFELT $ 37)) . #1#)
              (LETT |pp|
                    (COND
                     ((EQL |len| 1)
                      (SPADCALL
                       (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 18))
                       (QREFELT $ 22)))
                     (#2#
                      (SEQ (LETT |pl| NIL . #1#)
                           (SEQ (LETT |i| 1 . #1#) G190
                                (COND ((QSGREATERP |i| |len|) #3#))
                                (SEQ
                                 (LETT |pl|
                                       (CONS
                                        (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                                                  (QREFELT $ 18))
                                        |pl|)
                                       . #1#)
                                 (EXIT
                                  (LETT |x| (SPADCALL |x| (QREFELT $ 15))
                                        . #1#)))
                                (LETT |i| (QSADD1 |i|) . #1#) #4# G191
                                (EXIT NIL))
                           (EXIT
                            (SPADCALL (SPADCALL (NREVERSE |pl|) (QREFELT $ 30))
                                      (QREFELT $ 22))))))
                    . #1#)
              (EXIT
               (SPADCALL (NREVERSE (CONS |pp| |le|)) (QREFELT $ 27))))))))))) 

(DEFUN |STREAM;showAll?;B;13| ($)
  (COND ((NULL |$streamsShowAll|) 'NIL) ('T 'T))) 

(DEFUN |STREAM;coerce;$Of;14| (|x| $)
  (COND ((SPADCALL (QREFELT $ 39)) (SPADCALL |x| (QREFELT $ 38)))
        ('T (|STREAM;streamCountCoerce| |x| $)))) 

(DEFUN |STREAM;lazyCopy| (|x| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|STREAM;lazyCopy!0| (VECTOR $ |x|)) (QREFELT $ 45))))) 

(DEFUN |STREAM;lazyCopy!0| ($$)
  (PROG (|x| $)
    (LETT |x| (QREFELT $$ 1) . #1=(|STREAM;lazyCopy|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (COND ((SPADCALL |x| (QREFELT $ 16)) (SPADCALL (QREFELT $ 41)))
            ('T
             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                       (SPADCALL (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 42))
                       (QREFELT $ 43)))))))) 

(DEFUN |STREAM;copy;2$;16| (|x| $)
  (PROG (|head| #1=#:G813 |cycle| |d| |e| |len| |ce| |cycElt|)
    (RETURN
     (SEQ
      (LETT |cycElt| (SPADCALL |x| (QREFELT $ 35)) . #2=(|STREAM;copy;2$;16|))
      (EXIT
       (COND ((QEQCAR |cycElt| 1) (|STREAM;lazyCopy| |x| $))
             (#3='T
              (SEQ (LETT |ce| (QCDR |cycElt|) . #2#)
                   (LETT |len| (SPADCALL |ce| (QREFELT $ 37)) . #2#)
                   (LETT |e| (SPADCALL |x| |ce| (QREFELT $ 36)) . #2#)
                   (LETT |d| (SPADCALL |x| |e| (QREFELT $ 46)) . #2#)
                   (LETT |cycle|
                         (SPADCALL (SPADCALL |e| |len| (QREFELT $ 47))
                                   (QREFELT $ 48))
                         . #2#)
                   (|STREAM;setrst!| (SPADCALL |cycle| (QREFELT $ 49)) |cycle|
                    $)
                   (EXIT
                    (COND ((EQL |d| 0) |cycle|)
                          (#3#
                           (SEQ
                            (LETT |head|
                                  (SPADCALL
                                   (SPADCALL |x|
                                             (PROG1 (LETT #1# |d| . #2#)
                                               (|check-subtype| (>= #1# 0)
                                                                '(|NonNegativeInteger|)
                                                                #1#))
                                             (QREFELT $ 47))
                                   (QREFELT $ 48))
                                  . #2#)
                            (|STREAM;setrst!| (SPADCALL |head| (QREFELT $ 49))
                             |cycle| $)
                            (EXIT |head|))))))))))))) 

(DEFUN |STREAM;construct;L$;17| (|l| $)
  (COND ((NULL |l|) (SPADCALL (QREFELT $ 41)))
        ('T
         (SPADCALL (|SPADfirst| |l|) (SPADCALL (CDR |l|) (QREFELT $ 51))
                   (QREFELT $ 43))))) 

(DEFUN |STREAM;elt;$IS;18| (|x| |n| $)
  (COND
   ((OR (< |n| 1) (SPADCALL |x| (QREFELT $ 16)))
    (|error| "elt: no such element"))
   ('T
    (COND ((EQL |n| 1) (SPADCALL |x| (QREFELT $ 11)))
          ('T
           (SPADCALL (SPADCALL |x| (QREFELT $ 15)) (- |n| 1)
                     (QREFELT $ 52))))))) 

(DEFUN |STREAM;seteltt| (|x| |n| |s| $)
  (COND ((EQL |n| 1) (|STREAM;setfrst!| |x| |s| $))
        ('T (|STREAM;seteltt| (SPADCALL |x| (QREFELT $ 15)) (- |n| 1) |s| $)))) 

(DEFUN |STREAM;setelt;$I2S;20| (|x| |n| |s| $)
  (SEQ
   (COND
    ((OR (< |n| 1) (SPADCALL |x| (QREFELT $ 16)))
     (|error| "setelt: no such element"))
    ('T
     (SEQ
      (LETT |x| (|STREAM;expand!| |x| (+ (- |n| 1) 1) $)
            |STREAM;setelt;$I2S;20|)
      (EXIT (|STREAM;seteltt| |x| |n| |s| $))))))) 

(DEFUN |STREAM;removee| (|p| |x| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|STREAM;removee!0| (VECTOR |p| $ |x|)) (QREFELT $ 45))))) 

(DEFUN |STREAM;removee!0| ($$)
  (PROG (|x| $ |p|)
    (LETT |x| (QREFELT $$ 2) . #1=(|STREAM;removee|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |p| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (COND ((SPADCALL |x| (QREFELT $ 16)) (SPADCALL (QREFELT $ 41)))
            ((SPADCALL (SPADCALL |x| (QREFELT $ 11)) |p|)
             (SPADCALL |p| (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 55)))
            ('T
             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                       (SPADCALL |p| (SPADCALL |x| (QREFELT $ 15))
                                 (QREFELT $ 55))
                       (QREFELT $ 43)))))))) 

(DEFUN |STREAM;remove;M2$;22| (|p| |x| $)
  (COND ((SPADCALL |x| (QREFELT $ 13)) (SPADCALL (QREFELT $ 41)))
        ((SPADCALL |x| (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 21))
         (COND
          ((SPADCALL (SPADCALL |x| (QREFELT $ 11)) |p|)
           (SPADCALL (QREFELT $ 41)))
          (#1='T |x|)))
        (#1# (|STREAM;removee| |p| |x| $)))) 

(DEFUN |STREAM;selectt| (|p| |x| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|STREAM;selectt!0| (VECTOR |p| $ |x|)) (QREFELT $ 45))))) 

(DEFUN |STREAM;selectt!0| ($$)
  (PROG (|x| $ |p|)
    (LETT |x| (QREFELT $$ 2) . #1=(|STREAM;selectt|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |p| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (COND ((SPADCALL |x| (QREFELT $ 16)) (SPADCALL (QREFELT $ 41)))
            ((NULL (SPADCALL (SPADCALL |x| (QREFELT $ 11)) |p|))
             (SPADCALL |p| (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 56)))
            ('T
             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                       (SPADCALL |p| (SPADCALL |x| (QREFELT $ 15))
                                 (QREFELT $ 56))
                       (QREFELT $ 43)))))))) 

(DEFUN |STREAM;select;M2$;24| (|p| |x| $)
  (COND ((SPADCALL |x| (QREFELT $ 13)) (SPADCALL (QREFELT $ 41)))
        ((SPADCALL |x| (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 21))
         (COND ((SPADCALL (SPADCALL |x| (QREFELT $ 11)) |p|) |x|)
               (#1='T (SPADCALL (QREFELT $ 41)))))
        (#1# (|STREAM;selectt| |p| |x| $)))) 

(DEFUN |STREAM;map;M2$;25| (|f| |x| $) (SPADCALL |f| |x| (QREFELT $ 60))) 

(DEFUN |STREAM;map;M3$;26| (|g| |x| |y| $)
  (PROG (|ys| |xs|)
    (RETURN
     (SEQ (LETT |xs| |x| . #1=(|STREAM;map;M3$;26|)) (LETT |ys| |y| . #1#)
          (EXIT (SPADCALL |g| |xs| |ys| (QREFELT $ 64))))))) 

(DEFUN |STREAM;fill!;$S$;27| (|x| |s| $)
  (SEQ (|STREAM;setfrst!| |x| |s| $) (EXIT (|STREAM;setrst!| |x| |x| $)))) 

(DEFUN |STREAM;map!;M2$;28| (|f| |x| $)
  (PROG (|y| #1=#:G915 |tail|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |x| (QREFELT $ 67))
        (SEQ
         (LETT |tail| (SPADCALL |x| (QREFELT $ 68))
               . #2=(|STREAM;map!;M2$;28|))
         (LETT |y| |x| . #2#)
         (SEQ (LETT #1# NIL . #2#) G190 (COND (#1# #3=(GO G191)))
              (SEQ
               (|STREAM;setfrst!| |y|
                (SPADCALL (SPADCALL |y| (QREFELT $ 11)) |f|) $)
               (EXIT (LETT |y| (SPADCALL |y| (QREFELT $ 15)) . #2#)))
              (LETT #1# (SPADCALL |y| |tail| (QREFELT $ 69)) . #2#)
              #4=(GO G190) G191 (EXIT NIL))
         (EXIT |x|)))
       ((SPADCALL |x| (QREFELT $ 70))
        (SEQ (LETT |y| |x| . #2#)
             (SEQ G190
                  (COND
                   ((NULL (COND ((SPADCALL |y| (QREFELT $ 16)) 'NIL) ('T 'T)))
                    #3#))
                  (SEQ
                   (|STREAM;setfrst!| |y|
                    (SPADCALL (SPADCALL |y| (QREFELT $ 11)) |f|) $)
                   (EXIT (LETT |y| (SPADCALL |y| (QREFELT $ 15)) . #2#)))
                  NIL #4# G191 (EXIT NIL))
             (EXIT |x|)))
       ('T (|error| "map!: stream with lazy evaluation"))))))) 

(DEFUN |STREAM;swap!;$2IV;29| (|x| |m| |n| $)
  (PROG (|xn| |xm|)
    (RETURN
     (SEQ
      (COND
       ((SPADCALL |m| |x| (QREFELT $ 72))
        (COND
         ((NULL (SPADCALL |n| |x| (QREFELT $ 72)))
          (EXIT (|error| #1="swap!: no such elements")))))
       ('T (EXIT (|error| #1#))))
      (LETT |x| (|STREAM;expand!| |x| (+ (- (MAX |m| |n|) 1) 1) $)
            . #2=(|STREAM;swap!;$2IV;29|))
      (LETT |xm| (SPADCALL |x| |m| (QREFELT $ 52)) . #2#)
      (LETT |xn| (SPADCALL |x| |n| (QREFELT $ 52)) . #2#)
      (SPADCALL |x| |m| |xn| (QREFELT $ 53))
      (SPADCALL |x| |n| |xm| (QREFELT $ 53)) (EXIT |x|))))) 

(DEFUN |STREAM;concat;$S$;30| (|x| |s| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|STREAM;concat;$S$;30!0| (VECTOR |s| $ |x|))
               (QREFELT $ 45))))) 

(DEFUN |STREAM;concat;$S$;30!0| ($$)
  (PROG (|x| $ |s|)
    (LETT |x| (QREFELT $$ 2) . #1=(|STREAM;concat;$S$;30|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |s| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (COND
       ((SPADCALL |x| (QREFELT $ 16))
        (SPADCALL |s| (SPADCALL (QREFELT $ 41)) (QREFELT $ 43)))
       ('T
        (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                  (SPADCALL (SPADCALL |x| (QREFELT $ 15)) |s| (QREFELT $ 75))
                  (QREFELT $ 43)))))))) 

(DEFUN |STREAM;concat;3$;31| (|x| |y| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|STREAM;concat;3$;31!0| (VECTOR |y| $ |x|))
               (QREFELT $ 45))))) 

(DEFUN |STREAM;concat;3$;31!0| ($$)
  (PROG (|x| $ |y|)
    (LETT |x| (QREFELT $$ 2) . #1=(|STREAM;concat;3$;31|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |y| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (COND ((SPADCALL |x| (QREFELT $ 16)) (SPADCALL |y| (QREFELT $ 42)))
            ('T
             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                       (SPADCALL (SPADCALL |x| (QREFELT $ 15)) |y|
                                 (QREFELT $ 76))
                       (QREFELT $ 43)))))))) 

(DEFUN |STREAM;concat;L$;32| (|l| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|STREAM;concat;L$;32!0| (VECTOR $ |l|))
               (QREFELT $ 45))))) 

(DEFUN |STREAM;concat;L$;32!0| ($$)
  (PROG (|l| $)
    (LETT |l| (QREFELT $$ 1) . #1=(|STREAM;concat;L$;32|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|x|)
        (RETURN
         (COND ((SPADCALL |l| (QREFELT $ 78)) (SPADCALL (QREFELT $ 41)))
               ((SPADCALL (LETT |x| (SPADCALL |l| (QREFELT $ 79)) NIL)
                          (QREFELT $ 16))
                (SPADCALL (SPADCALL |l| (QREFELT $ 80)) (QREFELT $ 81)))
               ('T
                (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                          (SPADCALL (SPADCALL |x| (QREFELT $ 15))
                                    (SPADCALL (SPADCALL |l| (QREFELT $ 80))
                                              (QREFELT $ 81))
                                    (QREFELT $ 76))
                          (QREFELT $ 43)))))))))) 

(DEFUN |STREAM;setelt;$Us2S;33| (|x| |seg| |s| $)
  (PROG (#1=#:G978 |y| #2=#:G982 |i| #3=#:G972 |high| |low|)
    (RETURN
     (SEQ
      (LETT |low| (SPADCALL |seg| (QREFELT $ 83))
            . #4=(|STREAM;setelt;$Us2S;33|))
      (EXIT
       (COND
        ((SPADCALL |seg| (QREFELT $ 84))
         (SEQ (LETT |high| (SPADCALL |seg| (QREFELT $ 85)) . #4#)
              (EXIT
               (COND ((< |high| |low|) |s|)
                     (#5='T
                      (SEQ
                       (COND
                        ((SPADCALL |low| |x| (QREFELT $ 72))
                         (COND
                          ((NULL (SPADCALL |high| |x| (QREFELT $ 72)))
                           (EXIT (|error| #6="setelt: index out of range")))))
                        (#5# (EXIT (|error| #6#))))
                       (LETT |x| (|STREAM;expand!| |x| (+ (- |high| 1) 1) $)
                             . #4#)
                       (LETT |y|
                             (SPADCALL |x|
                                       (PROG1 (LETT #3# (- |low| 1) . #4#)
                                         (|check-subtype| (>= #3# 0)
                                                          '(|NonNegativeInteger|)
                                                          #3#))
                                       (QREFELT $ 86))
                             . #4#)
                       (SEQ (LETT |i| 0 . #4#)
                            (LETT #2# (- |high| |low|) . #4#) G190
                            (COND ((QSGREATERP |i| #2#) (GO G191)))
                            (SEQ (|STREAM;setfrst!| |y| |s| $)
                                 (EXIT
                                  (LETT |y| (SPADCALL |y| (QREFELT $ 15))
                                        . #4#)))
                            (LETT |i| (QSADD1 |i|) . #4#) (GO G190) G191
                            (EXIT NIL))
                       (EXIT |s|)))))))
        ((NULL (SPADCALL |low| |x| (QREFELT $ 72)))
         (|error| "setelt: index out of range"))
        ('T
         (SEQ
          (LETT |x|
                (SPADCALL |x|
                          (PROG1 (LETT #1# (- |low| 1) . #4#)
                            (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|)
                                             #1#))
                          (QREFELT $ 86))
                . #4#)
          (|STREAM;setrst!| |x| |x| $)
          (EXIT (|STREAM;setfrst!| |x| |s| $)))))))))) 

(DEFUN |STREAM;empty;$;34| ($) (CONS (QREFELT $ 7) NIL)) 

(DEFUN |STREAM;lazyEval| (|x| $) (SPADCALL (SPADCALL |x| (QREFELT $ 15)))) 

(DEFUN |STREAM;lazyEvaluate;2$;36| (|x| $)
  (PROG (|st|)
    (RETURN
     (SEQ (LETT |st| (|STREAM;lazyEval| |x| $) |STREAM;lazyEvaluate;2$;36|)
          (|STREAM;setfrst!| |x| (SPADCALL |st| (QREFELT $ 11)) $)
          (|STREAM;setrst!| |x|
           (COND ((EQ (SPADCALL |st| (QREFELT $ 15)) |st|) |x|)
                 ('T (SPADCALL |st| (QREFELT $ 15))))
           $)
          (EXIT |x|))))) 

(DEFUN |STREAM;empty?;$B;37| (|x| $)
  (PROG (|st|)
    (RETURN
     (SEQ
      (SEQ G190 (COND ((NULL (SPADCALL |x| (QREFELT $ 14))) (GO G191)))
           (SEQ (LETT |st| (|STREAM;lazyEval| |x| $) |STREAM;empty?;$B;37|)
                (|STREAM;setfrst!| |x| (SPADCALL |st| (QREFELT $ 11)) $)
                (EXIT
                 (|STREAM;setrst!| |x|
                  (COND ((EQ (SPADCALL |st| (QREFELT $ 15)) |st|) |x|)
                        ('T (SPADCALL |st| (QREFELT $ 15))))
                  $)))
           NIL (GO G190) G191 (EXIT NIL))
      (EXIT
       (COND
        ((|STREAM;uninitialized?| |x| $)
         (|error| "Trying to use uninitialized stream"))
        ('T (SPADCALL |x| (QREFELT $ 13))))))))) 

(DEFUN |STREAM;first;$Nni$;38| (|x| |n| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|STREAM;first;$Nni$;38!0| (VECTOR |x| $ |n|))
               (QREFELT $ 45))))) 

(DEFUN |STREAM;first;$Nni$;38!0| ($$)
  (PROG (|n| $ |x|)
    (LETT |n| (QREFELT $$ 2) . #1=(|STREAM;first;$Nni$;38|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |x| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (#2=#:G1025)
        (RETURN
         (COND
          ((OR (SPADCALL |n| (|spadConstant| $ 89) (QREFELT $ 91))
               (SPADCALL |x| (QREFELT $ 16)))
           (SPADCALL (QREFELT $ 41)))
          ('T
           (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                     (SPADCALL (SPADCALL |x| (QREFELT $ 15))
                               (PROG1
                                   (LETT #2#
                                         (SPADCALL |n| (|spadConstant| $ 92)
                                                   (QREFELT $ 94))
                                         NIL)
                                 (|check-subtype| (>= #2# 0)
                                                  '(|NonNegativeInteger|) #2#))
                               (QREFELT $ 47))
                     (QREFELT $ 43)))))))))) 

(PUT '|STREAM;concat;S2$;39| '|SPADreplace| 'CONS) 

(DEFUN |STREAM;concat;S2$;39| (|s| |x| $) (CONS |s| |x|)) 

(DEFUN |STREAM;cons;S2$;40| (|s| |x| $) (SPADCALL |s| |x| (QREFELT $ 43))) 

(DEFUN |STREAM;cycleSplit!;2$;41| (|x| $)
  (PROG (|z| #1=#:G1041 |y| |cycElt|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (LETT |cycElt| (SPADCALL |x| (QREFELT $ 35))
              . #2=(|STREAM;cycleSplit!;2$;41|))
        (EXIT
         (COND ((QEQCAR |cycElt| 1) (|error| "cycleSplit!: non-cyclic stream"))
               (#3='T
                (SEQ
                 (LETT |y| (SPADCALL |x| (QCDR |cycElt|) (QREFELT $ 36)) . #2#)
                 (EXIT
                  (COND
                   ((SPADCALL |x| |y| (QREFELT $ 21))
                    (SEQ (|STREAM;setToNil!| |x| $)
                         (EXIT (PROGN (LETT #1# |y| . #2#) (GO #1#)))))
                   (#3#
                    (SEQ (LETT |z| (SPADCALL |x| (QREFELT $ 15)) . #2#)
                         (EXIT
                          (SEQ G190 NIL
                               (SEQ
                                (EXIT
                                 (COND
                                  ((SPADCALL |y| |z| (QREFELT $ 21))
                                   (SEQ
                                    (SPADCALL |x| (SPADCALL (QREFELT $ 41))
                                              (QREFELT $ 96))
                                    (EXIT
                                     (PROGN (LETT #1# |y| . #2#) (GO #1#)))))
                                  ('T
                                   (SEQ (LETT |x| |z| . #2#)
                                        (EXIT
                                         (LETT |z|
                                               (SPADCALL |z| (QREFELT $ 15))
                                               . #2#)))))))
                               NIL (GO G190) G191 (EXIT NIL)))))))))))))
      #1# (EXIT #1#))))) 

(DEFUN |STREAM;expand!| (|x| |n| $)
  (PROG (#1=#:G1052 |e| |y| |nLessD| #2=#:G1051 |t| |d| |cycElt| |i|)
    (RETURN
     (SEQ
      (COND ((< |n| 1) |x|)
            (#3='T
             (SEQ (LETT |y| |x| . #4=(|STREAM;expand!|))
                  (SEQ (LETT |i| 1 . #4#) G190
                       (COND
                        ((OR (QSGREATERP |i| |n|)
                             (NULL
                              (COND ((SPADCALL |y| (QREFELT $ 16)) 'NIL)
                                    ('T 'T))))
                         (GO G191)))
                       (SEQ
                        (EXIT (LETT |y| (SPADCALL |y| (QREFELT $ 15)) . #4#)))
                       (LETT |i| (QSADD1 |i|) . #4#) (GO G190) G191 (EXIT NIL))
                  (LETT |cycElt| (SPADCALL |x| (QREFELT $ 35)) . #4#)
                  (EXIT
                   (COND ((QEQCAR |cycElt| 1) |x|)
                         (#3#
                          (SEQ
                           (LETT |e|
                                 (SPADCALL |x| (QCDR |cycElt|) (QREFELT $ 36))
                                 . #4#)
                           (LETT |d| (SPADCALL |x| |e| (QREFELT $ 46)) . #4#)
                           (EXIT
                            (COND
                             ((< |d| |n|)
                              (SEQ
                               (COND
                                ((EQL |d| 0)
                                 (SEQ (LETT |d| 1 . #4#)
                                      (LETT |t| (SPADCALL |e| (QREFELT $ 68))
                                            . #4#)
                                      (EXIT
                                       (COND
                                        ((SPADCALL |t| |e| (QREFELT $ 21))
                                         (SEQ
                                          (LETT |t|
                                                (SPADCALL
                                                 (SPADCALL |t| (QREFELT $ 11))
                                                 (SPADCALL (QREFELT $ 41))
                                                 (QREFELT $ 43))
                                                . #4#)
                                          (LETT |e|
                                                (|STREAM;setrst!| |t| |t| $)
                                                . #4#)
                                          (EXIT (|STREAM;setrst!| |x| |e| $))))
                                        (#3#
                                         (SEQ
                                          (|STREAM;setrst!| |t|
                                           (SPADCALL
                                            (SPADCALL |e| (QREFELT $ 11))
                                            (SPADCALL |e| (QREFELT $ 15))
                                            (QREFELT $ 43))
                                           $)
                                          (EXIT
                                           (LETT |e|
                                                 (SPADCALL |e| (QREFELT $ 15))
                                                 . #4#)))))))))
                               (LETT |nLessD|
                                     (PROG1 (LETT #2# (- |n| |d|) . #4#)
                                       (|check-subtype| (>= #2# 0)
                                                        '(|NonNegativeInteger|)
                                                        #2#))
                                     . #4#)
                               (LETT |y|
                                     (SPADCALL
                                      (SPADCALL |e| |nLessD| (QREFELT $ 47))
                                      (QREFELT $ 48))
                                     . #4#)
                               (LETT |e| (SPADCALL |e| |nLessD| (QREFELT $ 86))
                                     . #4#)
                               (|STREAM;setrst!| (SPADCALL |y| (QREFELT $ 49))
                                |e| $)
                               (|STREAM;setrst!|
                                (SPADCALL |x|
                                          (PROG1 (LETT #1# (- |d| 1) . #4#)
                                            (|check-subtype| (>= #1# 0)
                                                             '(|NonNegativeInteger|)
                                                             #1#))
                                          (QREFELT $ 86))
                                |y| $)
                               (EXIT |x|)))
                             (#3# |x|)))))))))))))) 

(DEFUN |STREAM;first;$S;43| (|x| $)
  (COND
   ((SPADCALL |x| (QREFELT $ 16))
    (|error| "Can't take the first of an empty stream."))
   ('T (SPADCALL |x| (QREFELT $ 11))))) 

(DEFUN |STREAM;concat!;3$;44| (|x| |y| $)
  (COND ((SPADCALL |x| (QREFELT $ 16)) |y|)
        ('T (|STREAM;setrst!| (SPADCALL |x| (QREFELT $ 49)) |y| $)))) 

(DEFUN |STREAM;concat!;$S$;45| (|x| |s| $)
  (SPADCALL |x| (SPADCALL |s| (SPADCALL (QREFELT $ 41)) (QREFELT $ 43))
            (QREFELT $ 98))) 

(DEFUN |STREAM;setfirst!;$2S;46| (|x| |s| $)
  (SPADCALL |x| 0 |s| (QREFELT $ 53))) 

(DEFUN |STREAM;setelt;$first2S;47| (|x| T1 |s| $)
  (SPADCALL |x| |s| (QREFELT $ 100))) 

(DEFUN |STREAM;setrest!;3$;48| (|x| |y| $)
  (COND ((SPADCALL |x| (QREFELT $ 16)) (|error| "setrest!: empty stream"))
        ('T (|STREAM;setrst!| |x| |y| $)))) 

(DEFUN |STREAM;setelt;$rest2$;49| (|x| T2 |y| $)
  (SPADCALL |x| |y| (QREFELT $ 96))) 

(DEFUN |STREAM;setlast!;$2S;50| (|x| |s| $)
  (COND ((SPADCALL |x| (QREFELT $ 16)) (|error| "setlast!: empty stream"))
        ('T (|STREAM;setfrst!| (SPADCALL |x| (QREFELT $ 49)) |s| $)))) 

(DEFUN |STREAM;setelt;$last2S;51| (|x| T3 |s| $)
  (SPADCALL |x| |s| (QREFELT $ 105))) 

(DEFUN |STREAM;split!;$I$;52| (|x| |n| $)
  (PROG (|y| #1=#:G1071)
    (RETURN
     (SEQ
      (COND ((< |n| 1) (|error| "split!: index out of range"))
            ((EQL |n| 1)
             (SEQ
              (LETT |y| (SPADCALL (QREFELT $ 41))
                    . #2=(|STREAM;split!;$I$;52|))
              (|STREAM;setfrst!| |y| (SPADCALL |x| (QREFELT $ 11)) $)
              (|STREAM;setrst!| |y| (SPADCALL |x| (QREFELT $ 15)) $)
              (|STREAM;setToNil!| |x| $) (EXIT |y|)))
            ('T
             (SEQ (LETT |x| (|STREAM;expand!| |x| (- |n| 1) $) . #2#)
                  (LETT |x|
                        (SPADCALL |x|
                                  (PROG1 (LETT #1# (- (- |n| 1) 1) . #2#)
                                    (|check-subtype| (>= #1# 0)
                                                     '(|NonNegativeInteger|)
                                                     #1#))
                                  (QREFELT $ 86))
                        . #2#)
                  (LETT |y| (SPADCALL |x| (QREFELT $ 29)) . #2#)
                  (|STREAM;setrst!| |x| (SPADCALL (QREFELT $ 41)) $)
                  (EXIT |y|)))))))) 

(DEFUN |STREAM;coerce;L$;53| (|l| $) (SPADCALL |l| (QREFELT $ 51))) 

(DEFUN |STREAM;repeating;L$;54| (|l| $)
  (PROG (|x| |x0|)
    (RETURN
     (SEQ
      (COND
       ((NULL |l|)
        (|error| "Need a non-null list to make a repeating stream."))
       ('T
        (SEQ
         (LETT |x0|
               (LETT |x| (SPADCALL |l| (QREFELT $ 51))
                     . #1=(|STREAM;repeating;L$;54|))
               . #1#)
         (SEQ G190
              (COND
               ((NULL
                 (COND
                  ((SPADCALL (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 16))
                   'NIL)
                  ('T 'T)))
                (GO G191)))
              (SEQ (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 15)) . #1#))) NIL
              (GO G190) G191 (EXIT NIL))
         (EXIT (|STREAM;setrst!| |x| |x0| $))))))))) 

(DEFUN |STREAM;repeating?;L$B;55| (|l| |x| $)
  (PROG (#1=#:G1090 #2=#:G1091 |s| |x0|)
    (RETURN
     (SEQ
      (EXIT
       (COND
        ((NULL |l|)
         (|error| "Need a non-empty? list to make a repeating stream."))
        ((NULL (CDR |l|))
         (COND
          ((OR (SPADCALL |x| (QREFELT $ 16))
               (NULL
                (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (|SPADfirst| |l|)
                          (QREFELT $ 111))))
           'NIL)
          ('T (SPADCALL |x| (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 112)))))
        ('T
         (SEQ (LETT |x0| |x| . #3=(|STREAM;repeating?;L$B;55|))
              (SEQ (LETT |s| NIL . #3#) (LETT #2# |l| . #3#) G190
                   (COND
                    ((OR (ATOM #2#) (PROGN (LETT |s| (CAR #2#) . #3#) NIL))
                     (GO G191)))
                   (SEQ
                    (EXIT
                     (COND
                      ((OR (SPADCALL |x| (QREFELT $ 16))
                           (NULL
                            (SPADCALL |s| (SPADCALL |x| (QREFELT $ 11))
                                      (QREFELT $ 111))))
                       (PROGN (LETT #1# 'NIL . #3#) (GO #1#)))
                      ('T (LETT |x| (SPADCALL |x| (QREFELT $ 15)) . #3#)))))
                   (LETT #2# (CDR #2#) . #3#) (GO G190) G191 (EXIT NIL))
              (EXIT (SPADCALL |x| |x0| (QREFELT $ 21)))))))
      #1# (EXIT #1#))))) 

(DEFUN |STREAM;findCycle;Nni$R;56| (|n| |x| $)
  (PROG (|npp| |xp| |per| |i| |tl| |hd|)
    (RETURN
     (SEQ (LETT |hd| |x| . #1=(|STREAM;findCycle;Nni$R;56|))
          (LETT |tl| (SPADCALL |x| |n| (QREFELT $ 86)) . #1#)
          (EXIT
           (COND ((SPADCALL |tl| (QREFELT $ 13)) (VECTOR 'NIL 0 0))
                 (#2='T
                  (SEQ (LETT |i| 0 . #1#)
                       (SEQ G190
                            (COND
                             ((NULL
                               (COND ((SPADCALL |x| |tl| (QREFELT $ 21)) 'NIL)
                                     ('T 'T)))
                              #3=(GO G191)))
                            (SEQ (LETT |x| (SPADCALL |x| (QREFELT $ 15)) . #1#)
                                 (EXIT (LETT |i| (+ |i| 1) . #1#)))
                            NIL #4=(GO G190) G191 (EXIT NIL))
                       (EXIT
                        (COND ((EQL |i| |n|) (VECTOR 'NIL 0 0))
                              (#2#
                               (SEQ
                                (LETT |x| (SPADCALL |x| (QREFELT $ 15)) . #1#)
                                (LETT |per| 1 . #1#)
                                (SEQ G190
                                     (COND
                                      ((NULL
                                        (COND
                                         ((SPADCALL |x| |tl| (QREFELT $ 21))
                                          'NIL)
                                         ('T 'T)))
                                       #3#))
                                     (SEQ
                                      (LETT |x| (SPADCALL |x| (QREFELT $ 15))
                                            . #1#)
                                      (EXIT (LETT |per| (+ |per| 1) . #1#)))
                                     NIL #4# G191 (EXIT NIL))
                                (LETT |x| |hd| . #1#)
                                (LETT |xp| (SPADCALL |hd| |per| (QREFELT $ 86))
                                      . #1#)
                                (LETT |npp| 0 . #1#)
                                (SEQ G190
                                     (COND
                                      ((NULL
                                        (COND
                                         ((SPADCALL |x| |xp| (QREFELT $ 21))
                                          'NIL)
                                         ('T 'T)))
                                       #3#))
                                     (SEQ
                                      (LETT |x| (SPADCALL |x| (QREFELT $ 15))
                                            . #1#)
                                      (LETT |xp| (SPADCALL |xp| (QREFELT $ 15))
                                            . #1#)
                                      (EXIT (LETT |npp| (+ |npp| 1) . #1#)))
                                     NIL #4# G191 (EXIT NIL))
                                (EXIT (VECTOR 'T |npp| |per|)))))))))))))) 

(DEFUN |STREAM;delay;M$;57| (|fs| $) (CONS (QREFELT $ 8) |fs|)) 

(DEFUN |STREAM;explicitEntries?;$B;58| (|x| $)
  (COND ((OR (SPADCALL |x| (QREFELT $ 13)) (SPADCALL |x| (QREFELT $ 14))) 'NIL)
        ('T 'T))) 

(DEFUN |STREAM;numberOfComputedEntries;$Nni;59| (|x| $)
  (COND
   ((SPADCALL |x| (QREFELT $ 114))
    (+ (SPADCALL (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 115)) 1))
   ('T 0))) 

(DEFUN |STREAM;output;I$V;60| (|n| |x| $)
  (SEQ
   (COND
    ((< 0 |n|)
     (COND ((SPADCALL |x| (QREFELT $ 16)) (EXIT (SPADCALL (QREFELT $ 116))))))
    ('T (EXIT (SPADCALL (QREFELT $ 116)))))
   (|mathPrint| (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (QREFELT $ 18)))
   (EXIT (SPADCALL (- |n| 1) (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 117))))) 

(DEFUN |STREAM;setrestt!| (|x| |n| |y| $)
  (COND ((EQL |n| 0) (|STREAM;setrst!| |x| |y| $))
        ('T
         (|STREAM;setrestt!| (SPADCALL |x| (QREFELT $ 15)) (- |n| 1) |y| $)))) 

(DEFUN |STREAM;setrest!;$I2$;62| (|x| |n| |y| $)
  (SEQ
   (COND
    ((OR (< |n| 0) (SPADCALL |x| (QREFELT $ 16)))
     (|error| "setrest!: no such rest"))
    ('T
     (SEQ
      (LETT |x| (|STREAM;expand!| |x| (+ |n| 1) $) |STREAM;setrest!;$I2$;62|)
      (EXIT (|STREAM;setrestt!| |x| |n| |y| $))))))) 

(DEFUN |STREAM;generate;M$;63| (|f| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|STREAM;generate;M$;63!0| (VECTOR $ |f|))
               (QREFELT $ 45))))) 

(DEFUN |STREAM;generate;M$;63!0| ($$)
  (PROG (|f| $)
    (LETT |f| (QREFELT $$ 1) . #1=(|STREAM;generate;M$;63|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |f|) (SPADCALL |f| (QREFELT $ 120))
                (QREFELT $ 43)))))) 

(DEFUN |STREAM;gen| (|f| |s| $)
  (PROG ()
    (RETURN
     (SEQ
      (SPADCALL (CONS #'|STREAM;gen!0| (VECTOR $ |f| |s|)) (QREFELT $ 45)))))) 

(DEFUN |STREAM;gen!0| ($$)
  (PROG (|s| |f| $)
    (LETT |s| (QREFELT $$ 2) . #1=(|STREAM;gen|))
    (LETT |f| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|ss|)
        (RETURN
         (SEQ (LETT |ss| (SPADCALL |s| |f|) NIL)
              (EXIT
               (SPADCALL |ss| (|STREAM;gen| |f| |ss| $) (QREFELT $ 43)))))))))) 

(DEFUN |STREAM;generate;MS$;65| (|f| |s| $)
  (SPADCALL |s| (|STREAM;gen| |f| |s| $) (QREFELT $ 43))) 

(DEFUN |STREAM;concat;3$;66| (|x| |y| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|STREAM;concat;3$;66!0| (VECTOR |y| $ |x|))
               (QREFELT $ 45))))) 

(DEFUN |STREAM;concat;3$;66!0| ($$)
  (PROG (|x| $ |y|)
    (LETT |x| (QREFELT $$ 2) . #1=(|STREAM;concat;3$;66|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |y| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (COND ((SPADCALL |x| (QREFELT $ 16)) |y|)
            ('T
             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                       (SPADCALL (SPADCALL |x| (QREFELT $ 15)) |y|
                                 (QREFELT $ 76))
                       (QREFELT $ 43)))))))) 

(DEFUN |STREAM;swhilee| (|p| |x| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|STREAM;swhilee!0| (VECTOR |p| $ |x|)) (QREFELT $ 45))))) 

(DEFUN |STREAM;swhilee!0| ($$)
  (PROG (|x| $ |p|)
    (LETT |x| (QREFELT $$ 2) . #1=(|STREAM;swhilee|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |p| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (COND
       ((OR (SPADCALL |x| (QREFELT $ 16))
            (NULL (SPADCALL (SPADCALL |x| (QREFELT $ 11)) |p|)))
        (SPADCALL (QREFELT $ 41)))
       ('T
        (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                  (SPADCALL |p| (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 122))
                  (QREFELT $ 43)))))))) 

(DEFUN |STREAM;filterWhile;M2$;68| (|p| |x| $)
  (COND ((SPADCALL |x| (QREFELT $ 13)) (SPADCALL (QREFELT $ 41)))
        ((SPADCALL |x| (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 21))
         (COND ((SPADCALL (SPADCALL |x| (QREFELT $ 11)) |p|) |x|)
               (#1='T (SPADCALL (QREFELT $ 41)))))
        (#1# (|STREAM;swhilee| |p| |x| $)))) 

(DEFUN |STREAM;suntill| (|p| |x| $)
  (PROG ()
    (RETURN
     (SPADCALL (CONS #'|STREAM;suntill!0| (VECTOR |p| $ |x|)) (QREFELT $ 45))))) 

(DEFUN |STREAM;suntill!0| ($$)
  (PROG (|x| $ |p|)
    (LETT |x| (QREFELT $$ 2) . #1=(|STREAM;suntill|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |p| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (COND ((SPADCALL |x| (QREFELT $ 16)) (SPADCALL (QREFELT $ 41)))
            ((SPADCALL (SPADCALL |x| (QREFELT $ 11)) |p|)
             (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (SPADCALL (QREFELT $ 41))
                       (QREFELT $ 43)))
            ('T
             (SPADCALL (SPADCALL |x| (QREFELT $ 11))
                       (SPADCALL |p| (SPADCALL |x| (QREFELT $ 15))
                                 (QREFELT $ 123))
                       (QREFELT $ 43)))))))) 

(DEFUN |STREAM;filterUntil;M2$;70| (|p| |x| $)
  (COND ((SPADCALL |x| (QREFELT $ 13)) (SPADCALL (QREFELT $ 41)))
        ((SPADCALL |x| (SPADCALL |x| (QREFELT $ 15)) (QREFELT $ 21))
         (COND
          ((SPADCALL (SPADCALL |x| (QREFELT $ 11)) |p|)
           (SPADCALL (SPADCALL |x| (QREFELT $ 11)) (SPADCALL (QREFELT $ 41))
                     (QREFELT $ 43)))
          (#1='T |x|)))
        (#1# (|STREAM;suntill| |p| |x| $)))) 

(DEFUN |Stream| (#1=#:G1222)
  (PROG ()
    (RETURN
     (PROG (#2=#:G1223)
       (RETURN
        (COND
         ((LETT #2#
                (|lassocShiftWithFunction| (LIST (|devaluate| #1#))
                                           (HGET |$ConstructorCache| '|Stream|)
                                           '|domainEqualList|)
                . #3=(|Stream|))
          (|CDRwithIncrement| #2#))
         ('T
          (UNWIND-PROTECT (PROG1 (|Stream;| #1#) (LETT #2# T . #3#))
            (COND ((NOT #2#) (HREM |$ConstructorCache| '|Stream|))))))))))) 

(DEFUN |Stream;| (|#1|)
  (PROG (|pv$| #1=#:G1221 $ |dv$| DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #2=(|Stream|))
      (LETT |dv$| (LIST '|Stream| DV$1) . #2#)
      (LETT $ (GETREFV 131) . #2#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (LETT #1#
                                                (|HasCategory| |#1|
                                                               '(|SetCategory|))
                                                . #2#)
                                          (AND #1#
                                               (|HasCategory| |#1|
                                                              (LIST '|Evalable|
                                                                    (|devaluate|
                                                                     |#1|))))
                                          (|HasCategory| |#1|
                                                         '(|ConvertibleTo|
                                                           (|InputForm|)))
                                          (|HasCategory| (|Integer|)
                                                         '(|OrderedSet|))))
                      . #2#))
      (|haddProp| |$ConstructorCache| '|Stream| (LIST DV$1) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (AND (|HasCategory| $ '(|finiteAggregate|)) (|augmentPredVector| $ 16))
      (AND (|HasCategory| $ '(|finiteAggregate|)) #1#
           (|augmentPredVector| $ 32))
      (AND (|HasCategory| $ '(|shallowlyMutable|)) (|augmentPredVector| $ 64))
      (QSETREFV $ 7 |$NullStream|)
      (QSETREFV $ 8 |$NonNullStream|)
      (QSETREFV $ 9 |$UninitializedStream|)
      (QSETREFV $ 10 (|Record| (|:| |firstElt| |#1|) (|:| |restOfStream| $)))
      (COND
       ((|testBitVector| |pv$| 1)
        (PROGN
         (QSETREFV $ 38
                   (CONS (|dispatchFunction| |STREAM;showAllElements;$Of;12|)
                         $))
         (QSETREFV $ 39 (CONS (|dispatchFunction| |STREAM;showAll?;B;13|) $))
         (QSETREFV $ 40
                   (CONS (|dispatchFunction| |STREAM;coerce;$Of;14|) $)))))
      (COND
       ((|testBitVector| |pv$| 1)
        (QSETREFV $ 113
                  (CONS (|dispatchFunction| |STREAM;repeating?;L$B;55|) $))))
      (COND
       ((|testBitVector| |pv$| 1)
        (QSETREFV $ 117 (CONS (|dispatchFunction| |STREAM;output;I$V;60|) $))))
      $)))) 

(MAKEPROP '|Stream| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) '|NullStream|
              '|NonNullStream| '|UninitializedStream| '|Rep| |STREAM;frst;$S;4|
              (|Boolean|) |STREAM;explicitlyEmpty?;$B;1| |STREAM;lazy?;$B;2|
              |STREAM;rst;2$;5| |STREAM;empty?;$B;37| (|OutputForm|)
              (0 . |coerce|) (|String|) (5 . |message|) (10 . |eq?|)
              (16 . |overbar|)
              (|Record| (|:| |cycle?| 12) (|:| |prefix| 24) (|:| |period| 24))
              (|NonNegativeInteger|) |STREAM;findCycle;Nni$R;56| (|List| $)
              (21 . |bracket|) |STREAM;first;$S;43| (26 . |rest|)
              (31 . |commaSeparate|) (|Integer|) (36 . |extend|)
              (|Union| $$ '"failed") (|CyclicStreamTools| 6 $$)
              (42 . |cycleElt|) (47 . |computeCycleEntry|)
              (53 . |computeCycleLength|) (58 . |showAllElements|)
              (63 . |showAll?|) (67 . |coerce|) |STREAM;empty;$;34|
              |STREAM;copy;2$;16| |STREAM;concat;S2$;39| (|Mapping| $)
              |STREAM;delay;M$;57| (72 . |distance|) |STREAM;first;$Nni$;38|
              (78 . |complete|) (83 . |tail|) (|List| 6)
              |STREAM;construct;L$;17| |STREAM;elt;$IS;18|
              |STREAM;setelt;$I2S;20| (|Mapping| 12 6) |STREAM;remove;M2$;22|
              |STREAM;select;M2$;24| (|Stream| 6) (|Mapping| 6 6)
              (|StreamFunctions2| 6 6) (88 . |map|) |STREAM;map;M2$;25|
              (|Mapping| 6 6 6) (|StreamFunctions3| 6 6 6) (94 . |map|)
              |STREAM;map;M3$;26| |STREAM;fill!;$S$;27| (101 . |cyclic?|)
              (106 . |cycleTail|) (111 . =) (117 . |explicitlyFinite?|)
              |STREAM;map!;M2$;28| (122 . |index?|) (|Void|)
              |STREAM;swap!;$2IV;29| |STREAM;concat;$S$;30|
              |STREAM;concat;3$;66| (|List| $$) (128 . |empty?|)
              (133 . |first|) (138 . |rest|) |STREAM;concat;L$;32|
              (|UniversalSegment| 31) (143 . |lo|) (148 . |hasHi|) (153 . |hi|)
              (158 . |rest|) |STREAM;setelt;$Us2S;33|
              |STREAM;lazyEvaluate;2$;36| (164 . |Zero|) (168 . |Zero|)
              (172 . =) (178 . |One|) (182 . |One|) (186 . -)
              |STREAM;cons;S2$;40| |STREAM;setrest!;3$;48|
              |STREAM;cycleSplit!;2$;41| |STREAM;concat!;3$;44|
              |STREAM;concat!;$S$;45| |STREAM;setfirst!;$2S;46| '"first"
              |STREAM;setelt;$first2S;47| '"rest" |STREAM;setelt;$rest2$;49|
              |STREAM;setlast!;$2S;50| '"last" |STREAM;setelt;$last2S;51|
              |STREAM;split!;$I$;52| |STREAM;coerce;L$;53|
              |STREAM;repeating;L$;54| (192 . =) (198 . =) (204 . |repeating?|)
              |STREAM;explicitEntries?;$B;58|
              |STREAM;numberOfComputedEntries;$Nni;59| (210 . |void|)
              (214 . |output|) |STREAM;setrest!;$I2$;62| (|Mapping| 6)
              |STREAM;generate;M$;63| |STREAM;generate;MS$;65|
              |STREAM;filterWhile;M2$;68| |STREAM;filterUntil;M2$;70|
              (|List| 125) (|Equation| 6) '"value" (|InputForm|)
              (|SingleInteger|) (|List| 31) (|Union| 6 '"failed"))
           '#(~= 220 |value| 226 |third| 231 |tail| 236 |swap!| 241 |split!|
              248 |size?| 254 |showAllElements| 260 |showAll?| 265 |setvalue!|
              269 |setrest!| 275 |setlast!| 288 |setfirst!| 294 |setelt| 300
              |setchildren!| 342 |select| 348 |second| 354 |sample| 359 |rst|
              363 |rest| 368 |repeating?| 379 |repeating| 385
              |removeDuplicates| 390 |remove| 395 |reduce| 407 |qsetelt!| 428
              |qelt| 435 |possiblyInfinite?| 441 |parts| 446 |output| 451
              |numberOfComputedEntries| 457 |nodes| 462 |node?| 467 |new| 473
              |more?| 479 |minIndex| 485 |members| 490 |member?| 495 |maxIndex|
              501 |map!| 506 |map| 512 |less?| 525 |leaves| 531 |leaf?| 536
              |lazyEvaluate| 541 |lazy?| 546 |latex| 551 |last| 556 |insert|
              567 |indices| 581 |index?| 586 |hash| 592 |generate| 597 |frst|
              608 |first| 613 |findCycle| 624 |find| 630 |filterWhile| 636
              |filterUntil| 642 |fill!| 648 |extend| 654 |explicitlyFinite?|
              660 |explicitlyEmpty?| 665 |explicitEntries?| 670 |every?| 675
              |eval| 681 |eq?| 707 |entry?| 713 |entries| 719 |empty?| 724
              |empty| 729 |elt| 733 |distance| 776 |delete| 782 |delay| 794
              |cyclic?| 799 |cycleTail| 804 |cycleSplit!| 809 |cycleLength| 814
              |cycleEntry| 819 |count| 824 |copy| 836 |convert| 841 |construct|
              846 |cons| 851 |concat!| 857 |concat| 869 |complete| 892 |coerce|
              897 |children| 907 |child?| 912 |any?| 918 = 924 |#| 930)
           'NIL
           (CONS
            (|makeByteWordVec2| 3 '(0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 2 1 1 3))
            (CONS
             '#(|LazyStreamAggregate&| |StreamAggregate&|
                |UnaryRecursiveAggregate&| |LinearAggregate&|
                |RecursiveAggregate&| |Collection&| |IndexedAggregate&|
                |HomogeneousAggregate&| |EltableAggregate&| |Aggregate&|
                |Evalable&| |SetCategory&| NIL NIL NIL |InnerEvalable&|
                |BasicType&| NIL NIL)
             (CONS
              '#((|LazyStreamAggregate| 6) (|StreamAggregate| 6)
                 (|UnaryRecursiveAggregate| 6) (|LinearAggregate| 6)
                 (|RecursiveAggregate| 6) (|Collection| 6)
                 (|IndexedAggregate| 31 6) (|HomogeneousAggregate| 6)
                 (|EltableAggregate| 31 6) (|Aggregate|) (|Evalable| 6)
                 (|SetCategory|) (|shallowlyMutable|) (|Eltable| 31 6) (|Type|)
                 (|InnerEvalable| 6 6) (|BasicType|) (|CoercibleTo| 17)
                 (|ConvertibleTo| 127))
              (|makeByteWordVec2| 130
                                  '(1 6 17 0 18 1 17 0 19 20 2 0 12 0 0 21 1 17
                                    0 0 22 1 17 0 26 27 1 0 0 0 29 1 17 0 26 30
                                    2 0 0 0 31 32 1 34 33 2 35 2 34 2 2 2 36 1
                                    34 24 2 37 1 0 17 0 38 0 0 12 39 1 0 17 0
                                    40 2 0 31 0 0 46 1 0 0 0 48 1 0 0 0 49 2 59
                                    57 58 57 60 3 63 57 62 57 57 64 1 0 12 0 67
                                    1 0 0 0 68 2 10 12 2 2 69 1 0 12 0 70 2 0
                                    12 31 0 72 1 77 12 0 78 1 77 2 0 79 1 77 0
                                    0 80 1 82 31 0 83 1 82 12 0 84 1 82 31 0 85
                                    2 0 0 0 24 86 0 24 0 89 0 31 0 90 2 24 12 0
                                    0 91 0 24 0 92 0 31 0 93 2 31 0 0 0 94 2 6
                                    12 0 0 111 2 0 12 0 0 112 2 0 12 50 0 113 0
                                    73 0 116 2 0 73 31 0 117 2 1 12 0 0 1 1 0 6
                                    0 1 1 0 6 0 1 1 0 0 0 49 3 7 73 0 31 31 74
                                    2 7 0 0 31 108 2 0 12 0 24 1 1 1 17 0 38 0
                                    1 12 39 2 7 6 0 6 1 2 7 0 0 0 96 3 0 0 0 31
                                    0 118 2 7 6 0 6 105 2 7 6 0 6 100 3 7 6 0
                                    31 6 53 3 7 6 0 82 6 87 3 7 6 0 106 6 107 3
                                    7 0 0 103 0 104 3 7 6 0 101 6 102 3 7 6 0
                                    126 6 1 2 7 0 0 26 1 2 0 0 54 0 56 1 0 6 0
                                    1 0 0 0 1 1 0 0 0 15 2 0 0 0 24 86 1 0 0 0
                                    29 2 1 12 50 0 113 1 0 0 50 110 1 6 0 0 1 2
                                    6 0 6 0 1 2 0 0 54 0 55 4 6 6 62 0 6 6 1 2
                                    5 6 62 0 1 3 5 6 62 0 6 1 3 7 6 0 31 6 1 2
                                    0 6 0 31 1 1 0 12 0 1 1 5 50 0 1 2 1 73 31
                                    0 117 1 0 24 0 115 1 0 26 0 1 2 1 12 0 0 1
                                    2 0 0 24 6 1 2 0 12 0 24 1 1 4 31 0 1 1 5
                                    50 0 1 2 6 12 6 0 1 1 4 31 0 1 2 7 0 58 0
                                    71 3 0 0 62 0 0 65 2 0 0 58 0 61 2 0 12 0
                                    24 1 1 0 50 0 1 1 0 12 0 1 1 0 0 0 88 1 0
                                    12 0 14 1 1 19 0 1 2 0 0 0 24 1 1 0 6 0 1 3
                                    0 0 6 0 31 1 3 0 0 0 0 31 1 1 0 129 0 1 2 0
                                    12 31 0 72 1 1 128 0 1 2 0 0 58 6 121 1 0 0
                                    119 120 1 0 6 0 11 2 0 0 0 24 47 1 0 6 0 28
                                    2 0 23 24 0 25 2 0 130 54 0 1 2 0 0 54 0
                                    122 2 0 0 54 0 123 2 7 0 0 6 66 2 0 0 0 31
                                    32 1 0 12 0 70 1 0 12 0 13 1 0 12 0 114 2 5
                                    12 54 0 1 3 2 0 0 6 6 1 3 2 0 0 50 50 1 2 2
                                    0 0 124 1 2 2 0 0 125 1 2 0 12 0 0 21 2 6
                                    12 6 0 1 1 0 50 0 1 1 0 12 0 16 0 0 0 41 3
                                    0 6 0 31 6 1 2 0 6 0 31 52 2 0 0 0 82 1 2 0
                                    6 0 106 1 2 0 0 0 103 1 2 0 6 0 101 1 2 0 6
                                    0 126 1 2 0 31 0 0 46 2 0 0 0 31 1 2 0 0 0
                                    82 1 1 0 0 44 45 1 0 12 0 67 1 0 0 0 68 1 7
                                    0 0 97 1 0 24 0 1 1 0 0 0 1 2 6 24 6 0 1 2
                                    5 24 54 0 1 1 0 0 0 42 1 3 127 0 1 1 0 0 50
                                    51 2 0 0 6 0 95 2 7 0 0 6 99 2 7 0 0 0 98 2
                                    0 0 0 6 75 1 0 0 26 81 2 0 0 0 0 76 2 0 0 6
                                    0 43 1 0 0 0 48 1 1 17 0 40 1 0 0 50 109 1
                                    0 26 0 1 2 1 12 0 0 1 2 5 12 54 0 1 2 1 12
                                    0 0 112 1 5 24 0 1)))))
           '|lookupComplete|)) 
