(/VERSIONCHECK 2) (PUT '|PRIMARR;#;$Nni;1| '|SPADreplace| '|sizeOfSimpleArray|) (DEFUN |PRIMARR;#;$Nni;1| (|x| $) (|sizeOfSimpleArray| |x|)) (PUT '|PRIMARR;minIndex;$I;2| '|SPADreplace| '(XLAM (|x|) 0)) (DEFUN |PRIMARR;minIndex;$I;2| (|x| $) 0) (DEFUN |PRIMARR;empty;$;3| ($) (|makeSimpleArray| (|getVMType| (|getShellEntry| $ 6)) 0)) (DEFUN |PRIMARR;new;NniS$;4| (|n| |x| $) (|makeFilledSimpleArray| (|getVMType| (|getShellEntry| $ 6)) |n| |x|)) (PUT '|PRIMARR;qelt;$IS;5| '|SPADreplace| '|getSimpleArrayEntry|) (DEFUN |PRIMARR;qelt;$IS;5| (|x| |i| $) (|getSimpleArrayEntry| |x| |i|)) (PUT '|PRIMARR;elt;$IS;6| '|SPADreplace| '|getSimpleArrayEntry|) (DEFUN |PRIMARR;elt;$IS;6| (|x| |i| $) (|getSimpleArrayEntry| |x| |i|)) (PUT '|PRIMARR;qsetelt!;$I2S;7| '|SPADreplace| '|setSimpleArrayEntry|) (DEFUN |PRIMARR;qsetelt!;$I2S;7| (|x| |i| |s| $) (|setSimpleArrayEntry| |x| |i| |s|)) (PUT '|PRIMARR;setelt;$I2S;8| '|SPADreplace| '|setSimpleArrayEntry|) (DEFUN |PRIMARR;setelt;$I2S;8| (|x| |i| |s| $) (|setSimpleArrayEntry| |x| |i| |s|)) (DEFUN |PRIMARR;fill!;$S$;9| (|x| |s| $) (PROG (|i| #0=#:G1403) (RETURN (SEQ (SEQ (LETT |i| 0 |PRIMARR;fill!;$S$;9|) (LETT #0# (|maxIndexOfSimpleArray| |x|) |PRIMARR;fill!;$S$;9|) G190 (COND ((QSGREATERP |i| #0#) (GO G191))) (SEQ (EXIT (|setSimpleArrayEntry| |x| |i| |s|))) (LETT |i| (QSADD1 |i|) |PRIMARR;fill!;$S$;9|) (GO G190) G191 (EXIT NIL)) (EXIT |x|))))) (DEFUN |PrimitiveArray| (#0=#:G1411) (PROG () (RETURN (PROG (#1=#:G1412) (RETURN (COND ((LETT #1# (|lassocShiftWithFunction| (LIST (|devaluate| #0#)) (HGET |$ConstructorCache| '|PrimitiveArray|) '|domainEqualList|) |PrimitiveArray|) (|CDRwithIncrement| #1#)) ('T (UNWIND-PROTECT (PROG1 (|PrimitiveArray;| #0#) (LETT #1# T |PrimitiveArray|)) (COND ((NOT #1#) (HREM |$ConstructorCache| '|PrimitiveArray|))))))))))) (DEFUN |PrimitiveArray;| (|#1|) (PROG (|dv$1| |dv$| $ |pv$|) (RETURN (PROGN (LETT |dv$1| (|devaluate| |#1|) . #0=(|PrimitiveArray|)) (LETT |dv$| (LIST '|PrimitiveArray| |dv$1|) . #0#) (LETT $ (|newShell| 35) . #0#) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 (LETT |pv$| (|buildPredVector| 0 0 (LIST (OR (AND (|HasCategory| |#1| '(|OrderedSet|)) (|HasCategory| |#1| (LIST '|Evalable| (|devaluate| |#1|)))) (AND (|HasCategory| |#1| '(|SetCategory|)) (|HasCategory| |#1| (LIST '|Evalable| (|devaluate| |#1|))))) (OR (AND (|HasCategory| |#1| '(|SetCategory|)) (|HasCategory| |#1| (LIST '|Evalable| (|devaluate| |#1|)))) (|HasCategory| |#1| '(|CoercibleTo| (|OutputForm|)))) (|HasCategory| |#1| '(|ConvertibleTo| (|InputForm|))) (OR (|HasCategory| |#1| '(|OrderedSet|)) (|HasCategory| |#1| '(|SetCategory|))) (|HasCategory| |#1| '(|OrderedSet|)) (|HasCategory| (|Integer|) '(|OrderedSet|)) (|HasCategory| |#1| '(|SetCategory|)) (AND (|HasCategory| |#1| '(|SetCategory|)) (|HasCategory| |#1| (LIST '|Evalable| (|devaluate| |#1|)))) (|HasCategory| |#1| '(|CoercibleTo| (|OutputForm|))))) . #0#)) (|haddProp| |$ConstructorCache| '|PrimitiveArray| (LIST |dv$1|) (CONS 1 $)) (|stuffDomainSlots| $) (|setShellEntry| $ 6 |#1|) $)))) (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;new;NniS$;4| |PRIMARR;qelt;$IS;5| |PRIMARR;elt;$IS;6| |PRIMARR;qsetelt!;$I2S;7| |PRIMARR;setelt;$I2S;8| |PRIMARR;fill!;$S$;9| (|Mapping| 6 6 6) (|Boolean|) (|List| 6) (|Equation| 6) (|List| 21) (|Mapping| 19 6) (|Mapping| 19 6 6) (|UniversalSegment| 9) (|Void|) (|Mapping| 6 6) (|OutputForm|) (|InputForm|) (|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) '((|shallowlyMutable| . 0) (|finiteAggregate| . 0)) (CONS (|makeByteWordVec2| 5 '(0 0 0 0 0 0 5 0 0 1 4 0 0 1 2 3 4)) (CONS '#(|OneDimensionalArrayAggregate&| |FiniteLinearAggregate&| |LinearAggregate&| |IndexedAggregate&| |Collection&| |HomogeneousAggregate&| |OrderedSet&| |Aggregate&| |EltableAggregate&| |Evalable&| |SetCategory&| 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|) (|Type|) (|Eltable| 9 6) (|InnerEvalable| 6 6) (|CoercibleTo| 28) (|ConvertibleTo| 29) (|BasicType|)) (|makeByteWordVec2| 34 '(2 7 19 0 0 1 3 0 26 0 9 9 1 1 5 19 0 1 2 0 19 24 0 1 1 5 0 0 1 2 0 0 24 0 1 1 5 0 0 1 2 0 0 24 0 1 2 0 19 0 7 1 3 0 6 0 25 6 1 3 0 6 0 9 6 16 2 0 0 23 0 1 0 0 0 1 1 0 0 0 1 1 0 0 0 1 1 7 0 0 1 2 7 0 6 0 1 2 0 0 23 0 1 4 7 6 18 0 6 6 1 3 0 6 18 0 6 1 2 0 6 18 0 1 3 0 6 0 9 6 15 2 0 6 0 9 13 2 7 9 6 0 1 3 7 9 6 0 9 1 2 0 9 23 0 1 1 0 20 0 1 2 0 0 7 6 12 2 0 19 0 7 1 1 6 9 0 10 2 5 0 0 0 1 2 5 0 0 0 1 3 0 0 24 0 0 1 1 0 20 0 1 2 7 19 6 0 1 1 6 9 0 1 2 5 0 0 0 1 2 0 0 27 0 1 3 0 0 18 0 0 1 2 0 0 27 0 1 2 0 19 0 7 1 1 7 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 7 31 0 1 1 6 6 0 1 2 0 33 23 0 1 2 0 0 0 6 17 2 0 19 23 0 1 3 8 0 0 20 20 1 2 8 0 0 21 1 3 8 0 0 6 6 1 2 8 0 0 22 1 2 0 19 0 0 1 2 7 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 14 3 0 6 0 9 6 1 2 0 0 0 9 1 2 0 0 0 25 1 2 7 7 6 0 1 2 0 7 23 0 1 3 0 0 0 0 9 1 1 0 0 0 1 1 3 29 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 9 28 0 1 2 0 19 23 0 1 2 5 19 0 0 1 2 5 19 0 0 1 2 7 19 0 0 1 2 5 19 0 0 1 2 5 19 0 0 1 1 0 7 0 8))))) '|lookupComplete|))