
(/VERSIONCHECK 2) 

(DEFUN |STREAM1;concat;SS;1| (|z| $)
  (PROG ()
    (RETURN
      (SPADCALL (CONS #'|STREAM1;concat;SS;1!0| (VECTOR $ |z|))
          (QREFELT $ 21))))) 

(DEFUN |STREAM1;concat;SS;1!0| ($$)
  (PROG (|z| $)
    (LETT |z| (QREFELT $$ 1) . #0=(|STREAM1;concat;SS;1|))
    (LETT $ (QREFELT $$ 0) . #0#)
    (RETURN
      (PROGN
        (PROG (|x|)
          (RETURN
            (COND
              ((SPADCALL |z| (QREFELT $ 9)) (SPADCALL (QREFELT $ 11)))
              ((SPADCALL (LETT |x| (SPADCALL |z| (QREFELT $ 12)) NIL)
                   (QREFELT $ 13))
               (SPADCALL (SPADCALL |z| (QREFELT $ 14)) (QREFELT $ 15)))
              ('T
               (SPADCALL (SPADCALL |x| (QREFELT $ 16))
                   (SPADCALL (SPADCALL |x| (QREFELT $ 17))
                       (SPADCALL (SPADCALL |z| (QREFELT $ 14))
                           (QREFELT $ 15))
                       (QREFELT $ 18))
                   (QREFELT $ 19)))))))))) 

(DEFUN |StreamFunctions1| (#0=#:G1830)
  (PROG ()
    (RETURN
      (PROG (#1=#:G1831)
        (RETURN
          (COND
            ((LETT #1#
                   (|lassocShiftWithFunction| (LIST (|devaluate| #0#))
                       (HGET |$ConstructorCache| '|StreamFunctions1|)
                       '|domainEqualList|)
                   . #2=(|StreamFunctions1|))
             (|CDRwithIncrement| #1#))
            ('T
             (UNWIND-PROTECT
               (PROG1 (|StreamFunctions1;| #0#) (LETT #1# T . #2#))
               (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache| '|StreamFunctions1|))))))))))) 

(DEFUN |StreamFunctions1;| (|#1|)
  (PROG (DV$1 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|StreamFunctions1|))
        (LETT |dv$| (LIST '|StreamFunctions1| DV$1) . #0#)
        (LETT $ (GETREFV 22) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|StreamFunctions1| (LIST DV$1)
            (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        $)))) 

(MAKEPROP '|StreamFunctions1| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|Boolean|)
             (|Stream| 10) (0 . |empty?|) (|Stream| 6) (5 . |empty|)
             (9 . |frst|) (14 . |empty?|) (19 . |rst|)
             |STREAM1;concat;SS;1| (24 . |frst|) (29 . |rst|)
             (34 . |concat|) (40 . |concat|) (|Mapping| $)
             (46 . |delay|))
          '#(|concat| 51) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 21
                                '(1 8 7 0 9 0 10 0 11 1 8 10 0 12 1 10
                                  7 0 13 1 8 0 0 14 1 10 6 0 16 1 10 0
                                  0 17 2 10 0 0 0 18 2 10 0 6 0 19 1 10
                                  0 20 21 1 0 10 8 15)))))
          '|lookupComplete|)) 
