
(/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 (|i| #0=#:G1826)
    (RETURN
      (SEQ (SEQ (LETT |i| 0 . #1=(|PRIMARR;fill!;$S$;9|))
                (LETT #0# (QVMAXINDEX |x|) . #1#) G190
                (COND ((QSGREATERP |i| #0#) (GO G191)))
                (SEQ (EXIT (SETELT |x| |i| |s|)))
                (LETT |i| (QSADD1 |i|) . #1#) (GO G190) G191
                (EXIT NIL))
           (EXIT |x|))))) 

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

(DEFUN |PrimitiveArray;| (|#1|)
  (PROG (DV$1 |dv$| $ #0=#:G1835 |pv$| #1=#:G1836)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #2=(|PrimitiveArray|))
        (LETT |dv$| (LIST '|PrimitiveArray| DV$1) . #2#)
        (LETT $ (GETREFV 35) . #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| '|PrimitiveArray| (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 '|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 |size?|
             46 |setelt| 52 |select| 66 |sample| 72 |reverse!| 76
             |reverse| 81 |removeDuplicates| 86 |remove| 91 |reduce|
             103 |qsetelt!| 124 |qelt| 131 |position| 137 |parts| 156
             |new| 161 |more?| 167 |minIndex| 173 |min| 178 |merge| 184
             |members| 197 |member?| 202 |maxIndex| 208 |max| 213
             |map!| 219 |map| 225 |less?| 238 |latex| 244 |insert| 249
             |indices| 263 |index?| 268 |hash| 274 |first| 279 |find|
             284 |fill!| 290 |every?| 296 |eval| 302 |eq?| 328 |entry?|
             334 |entries| 340 |empty?| 345 |empty| 350 |elt| 354
             |delete| 373 |count| 385 |copyInto!| 397 |copy| 404
             |convert| 409 |construct| 414 |concat| 419 |coerce| 442
             |any?| 447 >= 453 > 459 = 465 <= 471 < 477 |#| 483)
          '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| 9 6)
                               (|Collection| 6)
                               (|HomogeneousAggregate| 6)
                               (|OrderedSet|) (|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 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|)) 
