
(/VERSIONCHECK 2) 

(PUT '|PRIMARR;#;$Nni;1| '|SPADreplace| 'QVSIZE) 

(DEFUN |PRIMARR;#;$Nni;1| (|x| $) (QVSIZE |x|)) 

(PUT '|PRIMARR;minIndex;$I;2| '|SPADreplace| '(XLAM (|x|) 0)) 

(DEFUN |PRIMARR;minIndex;$I;2| (|x| $) 0) 

(PUT '|PRIMARR;empty;$;3| '|SPADreplace| '(XLAM NIL (GETREFV 0))) 

(DEFUN |PRIMARR;empty;$;3| ($) (GETREFV 0)) 

(DEFUN |PRIMARR;new;NniS$;4| (|n| |x| $)
  (SPADCALL (GETREFV |n|) |x| (QREFELT $ 12))) 

(PUT '|PRIMARR;qelt;$IS;5| '|SPADreplace| 'ELT) 

(DEFUN |PRIMARR;qelt;$IS;5| (|x| |i| $) (ELT |x| |i|)) 

(PUT '|PRIMARR;elt;$IS;6| '|SPADreplace| 'ELT) 

(DEFUN |PRIMARR;elt;$IS;6| (|x| |i| $) (ELT |x| |i|)) 

(PUT '|PRIMARR;qsetelt!;$I2S;7| '|SPADreplace| 'SETELT) 

(DEFUN |PRIMARR;qsetelt!;$I2S;7| (|x| |i| |s| $) (SETELT |x| |i| |s|)) 

(PUT '|PRIMARR;setelt;$I2S;8| '|SPADreplace| 'SETELT) 

(DEFUN |PRIMARR;setelt;$I2S;8| (|x| |i| |s| $) (SETELT |x| |i| |s|)) 

(DEFUN |PRIMARR;fill!;$S$;9| (|x| |s| $)
  (PROG (#1=#:G14394 |i|)
    (RETURN
     (SEQ
      (SEQ (LETT |i| 0 . #2=(|PRIMARR;fill!;$S$;9|))
           (LETT #1# (QVMAXINDEX |x|) . #2#) G190
           (COND ((QSGREATERP |i| #1#) (GO G191)))
           (SEQ (EXIT (SETELT |x| |i| |s|))) (LETT |i| (QSADD1 |i|) . #2#)
           (GO G190) G191 (EXIT NIL))
      (EXIT |x|))))) 

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

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

(MAKEPROP '|PrimitiveArray| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|NonNegativeInteger|)
              |PRIMARR;#;$Nni;1| (|Integer|) |PRIMARR;minIndex;$I;2|
              |PRIMARR;empty;$;3| |PRIMARR;fill!;$S$;9| |PRIMARR;new;NniS$;4|
              |PRIMARR;qelt;$IS;5| |PRIMARR;elt;$IS;6|
              |PRIMARR;qsetelt!;$I2S;7| |PRIMARR;setelt;$I2S;8|
              (|Mapping| 6 6 6) (|Boolean|) (|List| 6) (|Equation| 6)
              (|List| 21) (|Mapping| 19 6) (|Mapping| 19 6 6)
              (|UniversalSegment| 9) (|Void|) (|Mapping| 6 6) (|InputForm|)
              (|OutputForm|) (|String|) (|SingleInteger|) (|List| $)
              (|Union| 6 '"failed") (|List| 9))
           '#(~= 0 |swap!| 6 |sorted?| 13 |sort!| 24 |sort| 35 |smaller?| 46
              |size?| 52 |setelt| 58 |select| 72 |sample| 78 |reverse!| 82
              |reverse| 87 |removeDuplicates| 92 |remove| 97 |reduce| 109
              |qsetelt!| 130 |qelt| 137 |position| 143 |parts| 162 |new| 167
              |more?| 173 |minIndex| 179 |min| 184 |merge| 190 |members| 203
              |member?| 208 |maxIndex| 214 |max| 219 |map!| 225 |map| 231
              |less?| 244 |latex| 250 |insert| 255 |indices| 269 |index?| 274
              |hash| 280 |first| 285 |find| 290 |fill!| 296 |every?| 302 |eval|
              308 |eq?| 334 |entry?| 340 |entries| 346 |empty?| 351 |empty| 356
              |elt| 360 |delete| 379 |count| 391 |copyInto!| 403 |copy| 410
              |convert| 415 |construct| 420 |concat| 425 |coerce| 448 |any?|
              453 >= 459 > 465 = 471 <= 477 < 483 |#| 489)
           'NIL
           (CONS
            (|makeByteWordVec2| 7 '(0 0 0 0 0 3 0 3 0 0 7 4 0 0 0 0 7 1 2 4))
            (CONS
             '#(|OneDimensionalArrayAggregate&| |FiniteLinearAggregate&|
                |LinearAggregate&| |IndexedAggregate&| |Collection&|
                |OrderedSet&| |HomogeneousAggregate&| NIL |Aggregate&|
                |EltableAggregate&| |Evalable&| |SetCategory&| NIL NIL NIL NIL
                |InnerEvalable&| NIL NIL |BasicType&|)
             (CONS
              '#((|OneDimensionalArrayAggregate| 6) (|FiniteLinearAggregate| 6)
                 (|LinearAggregate| 6) (|IndexedAggregate| 9 6)
                 (|Collection| 6) (|OrderedSet|) (|HomogeneousAggregate| 6)
                 (|Comparable|) (|Aggregate|) (|EltableAggregate| 9 6)
                 (|Evalable| 6) (|SetCategory|) (|shallowlyMutable|)
                 (|finiteAggregate|) (|Type|) (|Eltable| 9 6)
                 (|InnerEvalable| 6 6) (|CoercibleTo| 29) (|ConvertibleTo| 28)
                 (|BasicType|))
              (|makeByteWordVec2| 34
                                  '(2 1 19 0 0 1 3 10 26 0 9 9 1 1 3 19 0 1 2 0
                                    19 24 0 1 1 11 0 0 1 2 10 0 24 0 1 1 3 0 0
                                    1 2 0 0 24 0 1 2 3 19 0 0 1 2 0 19 0 7 1 3
                                    10 6 0 25 6 1 3 10 6 0 9 6 17 2 8 0 23 0 1
                                    0 0 0 1 1 10 0 0 1 1 0 0 0 1 1 9 0 0 1 2 9
                                    0 6 0 1 2 8 0 23 0 1 4 9 6 18 0 6 6 1 3 8 6
                                    18 0 6 1 2 8 6 18 0 1 3 10 6 0 9 6 16 2 0 6
                                    0 9 14 2 1 9 6 0 1 3 1 9 6 0 9 1 2 0 9 23 0
                                    1 1 8 20 0 1 2 0 0 7 6 13 2 0 19 0 7 1 1 5
                                    9 0 10 2 3 0 0 0 1 2 3 0 0 0 1 3 0 0 24 0 0
                                    1 1 8 20 0 1 2 9 19 6 0 1 1 5 9 0 1 2 3 0 0
                                    0 1 2 10 0 27 0 1 3 0 0 18 0 0 1 2 0 0 27 0
                                    1 2 0 19 0 7 1 1 1 30 0 1 3 0 0 0 0 9 1 3 0
                                    0 6 0 9 1 1 0 34 0 1 2 0 19 9 0 1 1 1 31 0
                                    1 1 5 6 0 1 2 0 33 23 0 1 2 10 0 0 6 12 2 8
                                    19 23 0 1 3 6 0 0 20 20 1 2 6 0 0 21 1 3 6
                                    0 0 6 6 1 2 6 0 0 22 1 2 0 19 0 0 1 2 9 19
                                    6 0 1 1 0 20 0 1 1 0 19 0 1 0 0 0 11 2 0 0
                                    0 25 1 2 0 6 0 9 15 3 0 6 0 9 6 1 2 0 0 0 9
                                    1 2 0 0 0 25 1 2 9 7 6 0 1 2 8 7 23 0 1 3
                                    10 0 0 0 9 1 1 0 0 0 1 1 2 28 0 1 1 0 0 20
                                    1 1 0 0 32 1 2 0 0 6 0 1 2 0 0 0 0 1 2 0 0
                                    0 6 1 1 1 29 0 1 2 8 19 23 0 1 2 3 19 0 0 1
                                    2 3 19 0 0 1 2 1 19 0 0 1 2 3 19 0 0 1 2 3
                                    19 0 0 1 1 8 7 0 8)))))
           '|lookupComplete|)) 
