
(/VERSIONCHECK 2) 

(DEFUN |ASTACK;#;$Nni;1| (|s| $) (SPADCALL |s| (QREFELT $ 9))) 

(DEFUN |ASTACK;=;2$B;2| (|s| |t| $) (SPADCALL |s| |t| (QREFELT $ 12))) 

(DEFUN |ASTACK;copy;2$;3| (|s| $) (SPADCALL |s| (QREFELT $ 14))) 

(DEFUN |ASTACK;coerce;$Of;4| (|d| $)
  (PROG (#1=#:G671 |i| #2=#:G670)
    (RETURN
     (SEQ
      (COND ((SPADCALL |d| (QREFELT $ 16)) (SPADCALL NIL (QREFELT $ 19)))
            ('T
             (SPADCALL
              (PROGN
               (LETT #2# NIL . #3=(|ASTACK;coerce;$Of;4|))
               (SEQ (LETT |i| 0 . #3#)
                    (LETT #1# (- (SPADCALL |d| (QREFELT $ 10)) 1) . #3#) G190
                    (COND ((QSGREATERP |i| #1#) (GO G191)))
                    (SEQ
                     (EXIT
                      (LETT #2#
                            (CONS
                             (SPADCALL (SPADCALL |d| |i| (QREFELT $ 21))
                                       (QREFELT $ 22))
                             #2#)
                            . #3#)))
                    (LETT |i| (QSADD1 |i|) . #3#) (GO G190) G191
                    (EXIT (NREVERSE0 #2#))))
              (QREFELT $ 24)))))))) 

(DEFUN |ASTACK;depth;$Nni;5| (|s| $) (SPADCALL |s| (QREFELT $ 10))) 

(DEFUN |ASTACK;empty?;$B;6| (|s| $) (SPADCALL |s| (QREFELT $ 27))) 

(DEFUN |ASTACK;extract!;$S;7| (|s| $) (SPADCALL |s| (QREFELT $ 28))) 

(DEFUN |ASTACK;insert!;S2$;8| (|e| |s| $)
  (SEQ (SPADCALL |e| |s| (QREFELT $ 30)) (EXIT |s|))) 

(DEFUN |ASTACK;push!;S$S;9| (|e| |s| $)
  (SEQ (SPADCALL |e| |s| (QREFELT $ 32)) (EXIT |e|))) 

(DEFUN |ASTACK;pop!;$S;10| (|s| $)
  (PROG (|r| |m|)
    (RETURN
     (SEQ (COND ((SPADCALL |s| (QREFELT $ 16)) (|error| "empty stack")))
          (LETT |m| (SPADCALL |s| (QREFELT $ 33)) . #1=(|ASTACK;pop!;$S;10|))
          (LETT |r| (SPADCALL |s| |m| (QREFELT $ 21)) . #1#)
          (SPADCALL |s| |m| (QREFELT $ 34)) (EXIT |r|))))) 

(DEFUN |ASTACK;top;$S;11| (|s| $)
  (COND ((SPADCALL |s| (QREFELT $ 16)) (|error| "empty stack"))
        ('T (SPADCALL |s| (SPADCALL |s| (QREFELT $ 33)) (QREFELT $ 21))))) 

(DEFUN |ASTACK;arrayStack;L$;12| (|l| $) (SPADCALL |l| (QREFELT $ 36))) 

(DEFUN |ASTACK;empty;$;13| ($) (SPADCALL 0 0 (QREFELT $ 38))) 

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

(DEFUN |ArrayStack;| (|#1|)
  (PROG (|pv$| #1=#:G688 $ |dv$| DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #2=(|ArrayStack|))
      (LETT |dv$| (LIST '|ArrayStack| DV$1) . #2#)
      (LETT $ (GETREFV 46) . #2#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (LETT #1#
                                                (|HasCategory| |#1|
                                                               '(|SetCategory|))
                                                . #2#)
                                          (AND #1#
                                               (|HasCategory| |#1|
                                                              (LIST '|Evalable|
                                                                    (|devaluate|
                                                                     |#1|))))))
                      . #2#))
      (|haddProp| |$ConstructorCache| '|ArrayStack| (LIST DV$1) (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (AND (|HasCategory| $ '(|shallowlyMutable|)) (|augmentPredVector| $ 4))
      (AND (|HasCategory| $ '(|finiteAggregate|)) (|augmentPredVector| $ 8))
      (AND (|HasCategory| $ '(|finiteAggregate|)) #1#
           (|augmentPredVector| $ 16))
      (QSETREFV $ 7 (|IndexedFlexibleArray| |#1| 0))
      $)))) 

(MAKEPROP '|ArrayStack| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) '|Rep|
              (|NonNegativeInteger|) (0 . |#|) |ASTACK;#;$Nni;1| (|Boolean|)
              (5 . =) |ASTACK;=;2$B;2| (11 . |copy|) |ASTACK;copy;2$;3|
              |ASTACK;empty?;$B;6| (|OutputForm|) (|List| 6) (16 . |coerce|)
              (|Integer|) (21 . |elt|) (27 . |coerce|) (|List| 17)
              (32 . |coerce|) |ASTACK;coerce;$Of;4| |ASTACK;depth;$Nni;5|
              (37 . |empty?|) |ASTACK;pop!;$S;10| |ASTACK;extract!;$S;7|
              |ASTACK;push!;S$S;9| |ASTACK;insert!;S2$;8| (42 . |concat|)
              (48 . |maxIndex|) (53 . |delete!|) |ASTACK;top;$S;11|
              (59 . |construct|) |ASTACK;arrayStack;L$;12| (64 . |new|)
              |ASTACK;empty;$;13| (|List| 41) (|Equation| 6) (|Mapping| 11 6)
              (|Mapping| 6 6) (|SingleInteger|) (|String|))
           '#(~= 70 |top| 76 |size?| 81 |sample| 87 |push!| 91 |pop!| 97
              |parts| 102 |more?| 107 |members| 113 |member?| 118 |map!| 124
              |map| 130 |less?| 136 |latex| 142 |inspect| 147 |insert!| 152
              |hash| 158 |extract!| 163 |every?| 168 |eval| 174 |eq?| 200
              |empty?| 206 |empty| 211 |depth| 215 |count| 220 |copy| 232
              |coerce| 237 |bag| 242 |arrayStack| 247 |any?| 252 = 258 |#| 264)
           'NIL
           (CONS (|makeByteWordVec2| 2 '(0 0 0 0 2 1 0 0 0 2 1 1))
                 (CONS
                  '#(NIL |BagAggregate&| |HomogeneousAggregate&| |Aggregate&|
                     |Evalable&| |SetCategory&| NIL NIL NIL |InnerEvalable&|
                     |BasicType&| NIL)
                  (CONS
                   '#((|StackAggregate| 6) (|BagAggregate| 6)
                      (|HomogeneousAggregate| 6) (|Aggregate|) (|Evalable| 6)
                      (|SetCategory|) (|Type|) (|finiteAggregate|)
                      (|shallowlyMutable|) (|InnerEvalable| 6 6) (|BasicType|)
                      (|CoercibleTo| 17))
                   (|makeByteWordVec2| 45
                                       '(1 7 8 0 9 2 7 11 0 0 12 1 7 0 0 14 1
                                         18 17 0 19 2 7 6 0 20 21 1 6 17 0 22 1
                                         23 17 0 24 1 7 11 0 27 2 7 0 6 0 32 1
                                         7 20 0 33 2 7 0 0 20 34 1 7 0 18 36 2
                                         7 0 8 6 38 2 1 11 0 0 1 1 0 6 0 35 2 0
                                         11 0 8 1 0 0 0 1 2 0 6 6 0 30 1 0 6 0
                                         28 1 4 18 0 1 2 0 11 0 8 1 1 4 18 0 1
                                         2 5 11 6 0 1 2 3 0 43 0 1 2 0 0 43 0 1
                                         2 0 11 0 8 1 1 1 45 0 1 1 0 6 0 1 2 0
                                         0 6 0 31 1 1 44 0 1 1 0 6 0 29 2 4 11
                                         42 0 1 3 2 0 0 18 18 1 3 2 0 0 6 6 1 2
                                         2 0 0 40 1 2 2 0 0 41 1 2 0 11 0 0 1 1
                                         0 11 0 16 0 0 0 39 1 0 8 0 26 2 5 8 6
                                         0 1 2 4 8 42 0 1 1 0 0 0 15 1 1 17 0
                                         25 1 0 0 18 1 1 0 0 18 37 2 4 11 42 0
                                         1 2 1 11 0 0 13 1 4 8 0 10)))))
           '|lookupComplete|)) 
