
(/VERSIONCHECK 2) 

(DEFUN |ARRAY1;oneDimensionalArray;L$;1| (|u| $)
  (PROG (|n| |a| |x| #0=#:G1820 |i|)
    (RETURN
      (SEQ (LETT |n| (LENGTH |u|)
                 . #1=(|ARRAY1;oneDimensionalArray;L$;1|))
           (EXIT (COND
                   ((EQL |n| 0) (SPADCALL (QREFELT $ 7)))
                   ('T
                    (SEQ (LETT |a|
                               (SPADCALL |n| (|SPADfirst| |u|)
                                   (QREFELT $ 9)) . #1#)
                         (SEQ (LETT |x| NIL . #1#)
                              (LETT #0# (CDR |u|) . #1#)
                              (LETT |i| 2 . #1#) G190
                              (COND
                                ((OR (QSGREATERP |i| |n|) (ATOM #0#)
                                     (PROGN
                                       (LETT |x| (CAR #0#) . #1#)
                                       NIL))
                                 (GO G191)))
                              (SEQ (EXIT
                                    (SPADCALL |a| |i| |x|
                                     (QREFELT $ 11))))
                              (LETT |i|
                                    (PROG1 (QSADD1 |i|)
                                      (LETT #0# (CDR #0#) . #1#)) . #1#)
                              (GO G190) G191 (EXIT NIL))
                         (EXIT |a|))))))))) 

(DEFUN |ARRAY1;oneDimensionalArray;NniS$;2| (|n| |s| $)
  (SPADCALL |n| |s| (QREFELT $ 9))) 

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

(DEFUN |OneDimensionalArray;| (|#1|)
  (PROG (DV$1 |dv$| $ #0=#:G1830 |pv$| #1=#:G1831)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #2=(|OneDimensionalArray|))
        (LETT |dv$| (LIST '|OneDimensionalArray| DV$1) . #2#)
        (LETT $ (GETREFV 31) . #2#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3
            (LETT |pv$|
                  (|buildPredVector| 0 0
                      (LIST (|HasCategory| |#1| '(|SetCategory|))
                            (|HasCategory| |#1|
                                '(|ConvertibleTo| (|InputForm|)))
                            (LETT #0#
                                  (|HasCategory| |#1| '(|OrderedSet|)) . #2#)
                            (OR #0#
                                (|HasCategory| |#1| '(|SetCategory|)))
                            (|HasCategory| (|Integer|) '(|OrderedSet|))
                            (AND (|HasCategory| |#1| '(|SetCategory|))
                                 (|HasCategory| |#1|
                                     (LIST '|Evalable|
                                      (|devaluate| |#1|))))
                            (OR (AND #0#
                                     (|HasCategory| |#1|
                                      (LIST '|Evalable|
                                       (|devaluate| |#1|))))
                                (AND (|HasCategory| |#1|
                                      '(|SetCategory|))
                                     (|HasCategory| |#1|
                                      (LIST '|Evalable|
                                       (|devaluate| |#1|))))))) . #2#))
        (|haddProp| |$ConstructorCache| '|OneDimensionalArray|
            (LIST DV$1) (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (AND (LETT #1# (|HasCategory| $ '(|finiteAggregate|)) . #2#)
             (|augmentPredVector| $ 128))
        (AND #1# (|HasCategory| |#1| '(|SetCategory|))
             (|augmentPredVector| $ 256))
        (AND (|HasCategory| $ '(|shallowlyMutable|))
             (|augmentPredVector| $ 512))
        (AND (|HasCategory| $ '(|shallowlyMutable|)) #0#
             (|augmentPredVector| $ 1024))
        $)))) 

(MAKEPROP '|OneDimensionalArray| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL
             (|IndexedOneDimensionalArray| 6 (NRTEVAL 1))
             (|local| |#1|) (0 . |empty|) (|NonNegativeInteger|)
             (4 . |new|) (|Integer|) (10 . |setelt|) (|List| 6)
             |ARRAY1;oneDimensionalArray;L$;1|
             |ARRAY1;oneDimensionalArray;NniS$;2| (|Mapping| 6 6 6)
             (|Boolean|) (|Equation| 6) (|List| 17) (|Mapping| 16 6)
             (|Mapping| 16 6 6) (|UniversalSegment| 10) (|Void|)
             (|Mapping| 6 6) (|InputForm|) (|OutputForm|) (|String|)
             (|SingleInteger|) (|List| $) (|Union| 6 '"failed")
             (|List| 10))
          '#(|setelt| 17 |oneDimensionalArray| 24 |new| 35 |empty| 41)
          'NIL
          (CONS (|makeByteWordVec2| 7
                    '(0 0 0 0 0 0 3 0 0 7 4 0 0 0 0 7 1 2 4))
                (CONS '#(|OneDimensionalArrayAggregate&|
                         |FiniteLinearAggregate&| |LinearAggregate&|
                         |IndexedAggregate&| |Collection&|
                         |HomogeneousAggregate&| |OrderedSet&|
                         |Aggregate&| |EltableAggregate&| |Evalable&|
                         |SetCategory&| NIL NIL NIL NIL
                         |InnerEvalable&| NIL NIL |BasicType&|)
                      (CONS '#((|OneDimensionalArrayAggregate| 6)
                               (|FiniteLinearAggregate| 6)
                               (|LinearAggregate| 6)
                               (|IndexedAggregate| 10 6)
                               (|Collection| 6)
                               (|HomogeneousAggregate| 6)
                               (|OrderedSet|) (|Aggregate|)
                               (|EltableAggregate| 10 6) (|Evalable| 6)
                               (|SetCategory|) (|shallowlyMutable|)
                               (|finiteAggregate|) (|Type|)
                               (|Eltable| 10 6) (|InnerEvalable| 6 6)
                               (|CoercibleTo| 25) (|ConvertibleTo| 24)
                               (|BasicType|))
                            (|makeByteWordVec2| 14
                                '(0 0 0 7 2 0 0 8 6 9 3 0 6 0 10 6 11 3
                                  10 6 0 10 6 11 1 0 0 12 13 2 0 0 8 6
                                  14 2 0 0 8 6 9 0 0 0 7)))))
          '|lookupIncomplete|)) 
